my %SPEC;
-use constant _strict_bits => strict::bits(qw(subs refs vars));
+my $strict_bits;
+BEGIN{ $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;
}
export_to_level => sub {
my($package, $level, undef, @args) = @_; # the third argument is redundant
+
+ Carp::carp("$package->export_to_level has been deprecated."
+ ." Use $package->import({ into_level => LEVEL }) instead");
$package->import({ into_level => $level + 1 }, @args);
},
export => sub {
my($package, $into, @args) = @_;
+ Carp::carp("$package->export has been deprecated."
+ ." Use $package->import({ into => PACKAGE }) instead");
$package->import({ into => $into }, @args);
},
);
}
}
- $^H |= _strict_bits; # strict->import;
+ $^H |= $strict_bits; # strict->import;
${^WARNING_BITS} |= $warnings::Bits{all}; # warnings->import;
if($spec->{INIT_META}){
=head1 VERSION
-This document describes Mouse version 0.50_03
+This document describes Mouse version 0.50_07
=head1 SYNOPSIS