X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FExporter.pm;h=fc3a495e13591a4441fdb4c89449bd15c4380d9c;hb=e34f688e6df6d393fb5d2aa3ef7bdf5ebc684b7a;hp=d0f5683e806eaaa2120d3eeb9b54f5321e2cf6a4;hpb=de000acd315ecc61bf575e9487fc7f1d09e9600e;p=gitmo%2FMoose.git diff --git a/lib/Moose/Exporter.pm b/lib/Moose/Exporter.pm index d0f5683..fc3a495 100644 --- a/lib/Moose/Exporter.pm +++ b/lib/Moose/Exporter.pm @@ -24,7 +24,7 @@ sub setup_import_methods { ); } -# A reminder to intreped Moose hackers +# A reminder to intrepid Moose hackers # there may be more than one level of exporter # don't make doy cry. -- perigrin @@ -170,7 +170,7 @@ sub _make_exporter { $seen->{$package} = 1; } - return @also, map { _follow_also_real($_) } @also; + return map { $_, _follow_also_real($_) } @also; } } @@ -737,7 +737,11 @@ sub _make_init_meta { return unless %new_style_roles || %old_style_roles || %base_class_roles; - return sub { }; + return sub { + shift; + my %opts = @_; + $meta_lookup->($opts{for_class}); + }; } sub import {