adjust for latest Role::Tiny
Matt S Trout [Wed, 11 Apr 2012 20:42:06 +0000 (20:42 +0000)]
Makefile.PL
lib/Moo.pm
lib/Moo/Role.pm

index b1dc535..5a45ec3 100644 (file)
@@ -13,7 +13,7 @@ my %RUN_DEPS = (
   'Class::Method::Modifiers' => 1.07,
   'strictures' => 1.001001,
   'Module::Runtime' => 0.013,
-  'Role::Tiny' => 1.000000,
+  'Role::Tiny' => 1.000900,
 );
 
 # have to do this since old EUMM dev releases miss the eval $VERSION line
index eeee9e9..1ccc972 100644 (file)
@@ -33,8 +33,7 @@ sub import {
   };
   *{_getglob("${target}::with")} = sub {
     require Moo::Role;
-    die "Only one role supported at a time by with" if @_ > 1;
-    Moo::Role->apply_role_to_package($target, $_[0]);
+    Moo::Role->apply_roles_to_package($target, $_[0]);
   };
   $MAKERS{$target} = {};
   *{_getglob("${target}::has")} = sub {
index e55836d..66a9948 100644 (file)
@@ -73,11 +73,11 @@ sub _make_accessors_if_moose {
   }
 }
 
-sub apply_role_to_package {
+sub apply_single_role_to_package {
   my ($me, $to, $role) = @_;
   $me->_inhale_if_moose($role);
   $me->_make_accessors_if_moose($role, $to);
-  $me->SUPER::apply_role_to_package($to, $role);
+  $me->SUPER::apply_single_role_to_package($to, $role);
   $me->_handle_constructor($to, $INFO{$role}{attributes});
 }