X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FRole%2FMethod.pm;h=e4ad5034f3097fa5392881174fabd646218c4ec3;hb=refs%2Ftags%2F0.40_04;hp=9286c7aea6d492ac747d97ba86365655cee3e9ba;hpb=06a970ab9fb60a4cac5e3f1774cf9a2914c94cc1;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/Role/Method.pm b/lib/Mouse/Meta/Role/Method.pm index 9286c7a..e4ad503 100755 --- a/lib/Mouse/Meta/Role/Method.pm +++ b/lib/Mouse/Meta/Role/Method.pm @@ -4,6 +4,13 @@ use Mouse::Util; # enables strict and warnings use Mouse::Meta::Method; our @ISA = qw(Mouse::Meta::Method); +sub _new { + my $class = shift; + return $class->meta->new_object(@_) + if $class ne __PACKAGE__; + return bless {@_}, $class; +} + 1; __END__ @@ -13,7 +20,7 @@ Mouse::Meta::Role::Method - A Mouse Method metaclass for Roles =head1 VERSION -This document describes Mouse version 0.38 +This document describes Mouse version 0.40_04 =head1 SEE ALSO