roles don't have throw_error

diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm
index 33f6347..4aa0b4b 100644 (file)
--- a/lib/Moose/Meta/Role.pm
+++ b/lib/Moose/Meta/Role.pm
@@ -523,7 +523,7 @@ sub create {
             if exists $options{methods};
 
     (ref $options{roles} eq 'ARRAY')
-        || $class->throw_error("You must pass an ARRAY ref of roles", data => $options{roles})
+        || confess "You must pass an ARRAY ref of roles"
             if exists $options{roles};
 
     my $package      = delete $options{package};