my %SPEC;
-my $strict_bits = strict::bits(qw(subs refs vars));
+use constant _strict_bits => strict::bits(qw(subs refs vars));
# it must be "require", because Mouse::Util depends on Mouse::Exporter,
# which depends on Mouse::Util::import()
require Mouse::Util;
sub import{
- $^H |= $strict_bits; # strict->import;
+ $^H |= _strict_bits; # strict->import;
${^WARNING_BITS} = $warnings::Bits{all}; # warnings->import;
return;
}
*{$exporting_package . '::import'} = \&do_import;
*{$exporting_package . '::unimport'} = \&do_unimport;
+ # for backward compatibility
+
+ *{$exporting_package . '::export_to_level'} = sub{
+ my($package, $level, undef, @args) = @_; # the third argument is redundant
+ do_import($package, { into_level => $level + 1 }, @args);
+ };
+ *{$exporting_package . '::export'} = sub{
+ my($package, $into, @args) = @_;
+ do_import($package, { into => $into }, @args);
+ };
+
return;
}
}
}
- $^H |= $strict_bits; # strict->import;
+ $^H |= _strict_bits; # strict->import;
${^WARNING_BITS} = $warnings::Bits{all}; # warnings->import;
if($into eq 'main' && !$spec->{_export_to_main}){
}
}
+#sub _spec{ %SPEC }
+
1;
__END__
L<Moose::Exporter>
-=cut
+=cut
\ No newline at end of file