'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
};
*{_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 {
}
}
-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});
}