X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMoo.git;a=blobdiff_plain;f=lib%2FMoo%2FRole.pm;h=61d66da20de0ec1b3d1c7e38b0f3cd7b08ad97aa;hp=c382dd1143ff908d4bc681ce74d831ec5cbf5ac3;hb=141b507ace5957c098c52ceb7afaf21d5928a02d;hpb=ce08ea519f2105eed00cbef6661c1637cbded27d

diff --git a/lib/Moo/Role.pm b/lib/Moo/Role.pm
index c382dd1..61d66da 100644
--- a/lib/Moo/Role.pm
+++ b/lib/Moo/Role.pm
@@ -190,7 +190,9 @@ sub _make_accessors {
 
 sub apply_roles_to_package {
   my ($me, $to, @roles) = @_;
-  $me->_inhale_if_moose($_) for @roles;
+  foreach my $role (@roles) {
+      $me->_inhale_if_moose($role);
+  }
   $me->SUPER::apply_roles_to_package($to, @roles);
 }
 
@@ -211,7 +213,9 @@ sub create_class_with_roles {
 
   return $new_name if $Role::Tiny::COMPOSED{class}{$new_name};
 
-  $me->_inhale_if_moose($_) for @roles;
+  foreach my $role (@roles) {
+      $me->_inhale_if_moose($role);
+  }
 
   my $m;
   if ($INC{"Moo.pm"}