inhale Moose roles in apply_roles_to_package too

diff --git a/Changes b/Changes
index 0055a6b..277b9dd 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,4 @@
+  - inhale Moose roles before checking for composition conflicts
   - enable Moo::sification if only Moo::Role is loaded and not Moo
   - preserve attribute ordering
   - factor out accessor generation code a bit more to enable extension

diff --git a/lib/Moo/Role.pm b/lib/Moo/Role.pm
index 5624585..080ba92 100644 (file)
--- a/lib/Moo/Role.pm
+++ b/lib/Moo/Role.pm
@@ -94,6 +94,12 @@ sub _make_accessors {
   }
 }
 
+sub apply_roles_to_package {
+  my ($me, $to, @roles) = @_;
+  $me->_inhale_if_moose($_) for @roles;
+  $me->SUPER::apply_roles_to_package($to, @roles);
+}
+
 sub apply_single_role_to_package {
   my ($me, $to, $role) = @_;
   $me->_inhale_if_moose($role);