X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FModule.pm;h=690e7c786ef78ecfe3c332691d6cf9fdea81a84e;hb=9010458d614641c8103b1d06b479e0c80aa1dcda;hp=92619f824fa10a341c7420a5e12a5d10c7788dc4;hpb=9b9e4b6566015d6d6e2aa6c745644174efa74623;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/Module.pm b/lib/Mouse/Meta/Module.pm index 92619f8..690e7c7 100755 --- a/lib/Mouse/Meta/Module.pm +++ b/lib/Mouse/Meta/Module.pm @@ -150,10 +150,11 @@ sub get_method{ load_class($method_metaclass); my $package = $self->name; - return $method_metaclass->new( - body => $package->can($method_name), - name => $method_name, - package => $package, + return $method_metaclass->wrap( + body => $package->can($method_name), + name => $method_name, + package => $package, + associated_metaclass => $self, ); } @@ -326,7 +327,7 @@ Mouse::Meta::Module - The base class for Mouse::Meta::Class and Mouse::Meta::Rol =head1 VERSION -This document describes Mouse version 0.39 +This document describes Mouse version 0.40 =head1 SEE ALSO