X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMoo.git;a=blobdiff_plain;f=lib%2FMoo.pm;h=fdd46e214ab91c0cabb495fc84b39ec471279faf;hp=3b88f49c2f1da91f46c190abde3db6cf58046d3b;hb=141b507ace5957c098c52ceb7afaf21d5928a02d;hpb=5f0ba39b8b0c5f273e76b2b162b299dc2e259171 diff --git a/lib/Moo.pm b/lib/Moo.pm index 3b88f49..fdd46e2 100644 --- a/lib/Moo.pm +++ b/lib/Moo.pm @@ -5,7 +5,7 @@ use Moo::_Utils; use B 'perlstring'; use Sub::Defer (); -our $VERSION = '1.000004'; # 1.0.4 +our $VERSION = '1.000005'; # 1.0.5 $VERSION = eval $VERSION; require Moo::sification; @@ -75,11 +75,11 @@ sub unimport { sub _set_superclasses { my $class = shift; my $target = shift; - for (@_) { - _load_module($_); - if ($INC{"Role/Tiny.pm"} && $Role::Tiny::INFO{$_}) { + foreach my $superclass (@_) { + _load_module($superclass); + if ($INC{"Role/Tiny.pm"} && $Role::Tiny::INFO{$superclass}) { require Carp; - Carp::croak("Can't extend role '$_'"); + Carp::croak("Can't extend role '$superclass'"); } } # Can't do *{...} = \@_ or 5.10.0's mro.pm stops seeing @ISA @@ -243,7 +243,7 @@ L's surface syntax, preferring instead of provide full interoperability via the metaclass inflation capabilities described in L. For a full list of the minor differences between L and L's surface -syntax, see L. +syntax, see L. =head1 WHY MOO EXISTS