X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FExporter.pm;h=b644c5fd11f5a1607928aa44904df03f48e8bb32;hb=7537134acef99fb05d05136200032945259d7073;hp=c27653f1374fe9f22c7e1c433c6be10fe7af4565;hpb=78a4b12980d68fdfeec7b5289e7203771a6e73d6;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Exporter.pm b/lib/Mouse/Exporter.pm index c27653f..b644c5f 100644 --- a/lib/Mouse/Exporter.pm +++ b/lib/Mouse/Exporter.pm @@ -39,15 +39,10 @@ sub setup_import_methods{ 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); }, ); @@ -55,7 +50,7 @@ sub setup_import_methods{ } sub build_import_methods{ - my($class, %args) = @_; + my($self, %args) = @_; my $exporting_package = $args{exporting_package} ||= caller(); @@ -272,7 +267,7 @@ Mouse::Exporter - make an import() and unimport() just like Mouse.pm =head1 VERSION -This document describes Mouse version 0.50_08 +This document describes Mouse version 0.64 =head1 SYNOPSIS