X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse.pm;h=b21d31ec8d2a37a3b64c124d7e327beba35eb8f6;hb=b61e0c46b2d97c1363692dc93a40aa8195a4523a;hp=69c012f83e44f0f297fb7893c95a0ad5f5a38b3e;hpb=15cc3e179c0724ee3d786185b142f380d8e71aaf;p=gitmo%2FMouse.git diff --git a/lib/Mouse.pm b/lib/Mouse.pm index 69c012f..b21d31e 100644 --- a/lib/Mouse.pm +++ b/lib/Mouse.pm @@ -4,14 +4,14 @@ use 5.006_002; use strict; use warnings; -our $VERSION = '0.36'; +our $VERSION = '0.37'; 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