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;
}
# 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{
}
}
- $^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
+