X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FModule.pm;h=6c3abf6114020d8fc5c9e55d78056ac87004f9cb;hb=60e446e83f3334422660673d3d568726f3cddf1f;hp=690e7c786ef78ecfe3c332691d6cf9fdea81a84e;hpb=9010458d614641c8103b1d06b479e0c80aa1dcda;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/Module.pm b/lib/Mouse/Meta/Module.pm index 690e7c7..6c3abf6 100755 --- a/lib/Mouse/Meta/Module.pm +++ b/lib/Mouse/Meta/Module.pm @@ -149,11 +149,10 @@ sub get_method{ my $method_metaclass = $self->method_metaclass; load_class($method_metaclass); - my $package = $self->name; return $method_metaclass->wrap( - body => $package->can($method_name), + body => $self->get_method_body($method_name), name => $method_name, - package => $package, + package => $self->name, associated_metaclass => $self, ); }