X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FRole.pm;h=4e6eee833f0a933b1109a274f0b76e5ecd335d98;hb=0e8b516797e12873a6cea9a43df1360ecb4bcdf4;hp=33f63478f9077af80ff4b3ec81f25c5100292e92;hpb=0c3696e9f0a51896a1e57d8c6082ec4cd19851cf;p=gitmo%2FMoose.git diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm index 33f6347..4e6eee8 100644 --- 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}; @@ -708,7 +708,7 @@ __END__ This class is a subclass of L that provides additional Moose-specific functionality. -It's API looks a lot like L, but internally it +Its API looks a lot like L, but internally it implements many things differently. This may change in the future. =head1 INHERITANCE