Permalink
Browse files

Really fix all uses of old MetaRole API

Conflicts:

	Changes
  • Loading branch information...
1 parent f3c33ff commit 949ae27775f226fafd3dda2065b91f7ae0b4cf34 @rafl committed Jul 19, 2010
View
@@ -1,3 +1,5 @@
+ * Really avoid warnings from Moose 1.09 (Dave Rolsky).
+
0.07 Mon, 19 Jul 2010 05:56:05 +0200
* Avoid warnings from Moose 1.09 (Dave Rolsky).
@@ -12,11 +12,13 @@ around apply => sub {
my ($next, $self, $role1, $role2) = @_;
return $self->$next(
$role1,
- Moose::Util::MetaRole::apply_metaclass_roles(
- for_class => $role2,
- application_to_class_class_roles => [ ToClass ],
- application_to_role_class_roles => [ __PACKAGE__ ],
- application_to_instance_class_roles => [ ToInstance ],
+ Moose::Util::MetaRole::apply_metaroles(
+ for => $role2,
+ role_metaroles => {
+ application_to_class => [ToClass],
+ application_to_role => [__PACKAGE__],
+ application_to_instance => [ToInstance],
+ },
),
);
};
@@ -17,11 +17,13 @@ Wrapped method to apply various metaclass roles to aid with role composition.
around apply_params => sub {
my ($next, $self, @args) = @_;
- return Moose::Util::MetaRole::apply_metaclass_roles(
- for_class => $self->$next(@args),
- application_to_class_class_roles => [ ToClass ],
- application_to_role_class_roles => [ ToRole ],
- application_to_instance_class_roles => [ ToInstance ],
+ return Moose::Util::MetaRole::apply_metaroles(
+ for => $self->$next(@args),
+ role_metaroles => {
+ application_to_class => [ToClass],
+ application_to_role => [ToRole],
+ application_to_instance => [ToInstance],
+ },
);
};

0 comments on commit 949ae27

Please sign in to comment.