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);
},
);
}
sub build_import_methods{
- my($class, %args) = @_;
+ my($self, %args) = @_;
my $exporting_package = $args{exporting_package} ||= caller();
=head1 VERSION
-This document describes Mouse version 0.50_07
+This document describes Mouse version 0.64
=head1 SYNOPSIS