Implement 'does' attribute in has()

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

diff --git a/lib/Mouse/Exporter.pm b/lib/Mouse/Exporter.pm
index 881a6aa..c701eea 100644 (file)
--- a/lib/Mouse/Exporter.pm
+++ b/lib/Mouse/Exporter.pm
@@ -113,7 +113,7 @@ sub setup_import_methods{
     # for backward compatibility
 
     *{$exporting_package . '::export_to_level'} = sub{
-        my($package, $level, @args) = @_;
+        my($package, $level, undef, @args) = @_; # the third argument is redundant
         do_import($package, { into_level => $level + 1 }, @args);
     };
     *{$exporting_package . '::export'} = sub{