X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FRole%2FApplication%2FToClass.pm;h=8573cc65de72c153ad40e68dd3103cb54023bcaa;hb=f4b86ac0e1fd7ff8a180f2f8332821170db5371e;hp=91f94a31803c240e19c086db17c55878fe3fda82;hpb=6b2f825e73f66af279fa9e0802bc06a0094e5e89;p=gitmo%2FMoose.git diff --git a/lib/Moose/Meta/Role/Application/ToClass.pm b/lib/Moose/Meta/Role/Application/ToClass.pm index 91f94a3..8573cc6 100644 --- a/lib/Moose/Meta/Role/Application/ToClass.pm +++ b/lib/Moose/Meta/Role/Application/ToClass.pm @@ -7,7 +7,7 @@ use metaclass; use Moose::Util 'english_list'; use Scalar::Util 'weaken', 'blessed'; -our $VERSION = '1.11'; +our $VERSION = '1.16'; $VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; @@ -152,7 +152,7 @@ sub apply_methods { foreach my $method ( $role->_get_local_methods ) { my $method_name = $method->name; - next if $method_name eq 'meta'; + next if $method->isa('Class::MOP::Method::Meta'); unless ( $self->is_method_excluded($method_name) ) {