X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse.pm;h=1f8e2e25758cbf398dfc6174caf8826e51a70ad8;hb=fe1221ad348f436035e044ff9955b084415c3e7d;hp=e3378a63537d8854444a283f6e39e6de09f4637e;hpb=f3bb863f6a6ef09220bbf51bc4cea3874d862776;p=gitmo%2FMouse.git diff --git a/lib/Mouse.pm b/lib/Mouse.pm index e3378a6..1f8e2e2 100644 --- a/lib/Mouse.pm +++ b/lib/Mouse.pm @@ -4,14 +4,14 @@ use 5.006_002; use strict; use warnings; -our $VERSION = '0.33_01'; +our $VERSION = '0.37_01'; use Exporter; use Carp 'confess'; use Scalar::Util 'blessed'; -use Mouse::Util qw(load_class is_class_loaded not_supported); +use Mouse::Util qw(load_class is_class_loaded get_code_package not_supported); use Mouse::Meta::Module; use Mouse::Meta::Class; @@ -190,7 +190,7 @@ sub unimport { my $code; if(exists $is_removable{$keyword} && ($code = $caller->can($keyword)) - && (Mouse::Util::get_code_info($code))[0] eq __PACKAGE__){ + && get_code_package($code) eq __PACKAGE__){ delete $stash->{$keyword}; } @@ -454,9 +454,9 @@ L =head1 AUTHORS -Shawn M Moore, C<< >> +Shawn M Moore, Esartak at gmail.comE -Yuval Kogman, C<< >> +Yuval Kogman, Enothingmuch at woobling.orgE tokuhirom @@ -464,7 +464,7 @@ Yappo wu-lee -Goro Fuji (gfx) C<< >> +Goro Fuji (gfx) Egfuji at cpan.orgE with plenty of code borrowed from L and L