keep the same return value init_meta had previously

[gitmo/Moose.git] / lib / Moose / Exporter.pm

diff --git a/lib/Moose/Exporter.pm b/lib/Moose/Exporter.pm
index d0f5683..fc3a495 100644 (file)
--- 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 {