Moose::Meta::Role::create should honor "roles"

[gitmo/Moose.git] / lib / Moose / Meta / Role.pm

diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm
index 2ee6d1f..33f6347 100644 (file)
--- a/lib/Moose/Meta/Role.pm
+++ b/lib/Moose/Meta/Role.pm
@@ -522,7 +522,12 @@ sub create {
         || confess "You must pass a HASH ref of methods"
             if exists $options{methods};
 
+    (ref $options{roles} eq 'ARRAY')
+        || $class->throw_error("You must pass an ARRAY ref of roles", data => $options{roles})
+            if exists $options{roles};
+
     my $package      = delete $options{package};
+    my $roles        = delete $options{roles};
     my $attributes   = delete $options{attributes};
     my $methods      = delete $options{methods};
     my $meta_name    = exists $options{meta_name}
@@ -548,6 +553,10 @@ sub create {
         }
     }
 
+    if ($roles) {
+        Moose::Util::apply_all_roles($meta, @$roles);
+    }
+
     return $meta;
 }