X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FAttribute.pm;h=22d556a835809ef12c2a24949f3c84e528161d46;hp=df19986c32a0be5c46401b1a096913e3f5507030;hb=f48920c11c806b2a1fd60be145ff2cdf79750878;hpb=43e49d9325893d1293ffbc7ba2f1e5b9312716fa diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm index df19986..22d556a 100644 --- a/lib/Mouse/Meta/Attribute.pm +++ b/lib/Mouse/Meta/Attribute.pm @@ -361,7 +361,7 @@ sub _canonicalize_handles { my $meta = Mouse::Meta::Class->initialize("$class_or_role"); # "" for stringify return map { $_ => $_ } grep { $_ ne 'meta' && !Mouse::Object->can($_) && $_ =~ $handles } - Mouse::Util::TypeConstraints::_is_a_metarole($meta) + Mouse::Util::is_a_metarole($meta) ? $meta->get_method_list : $meta->get_all_method_names; }