my $meta = Mouse::Meta::Class->initialize("$class_or_role"); # "" for stringify
return map { $_ => $_ }
grep { $_ ne 'meta' && !Mouse::Object->can($_) && $_ =~ $handles }
- $meta->isa('Mouse::Meta::Class') ? $meta->get_all_method_names : $meta->get_method_list;
+ Mouse::Util::TypeConstraints::_is_a_metarole($meta)
+ ? $meta->get_method_list
+ : $meta->get_all_method_names;
}
else {
$self->throw_error("Unable to canonicalize the 'handles' option with $handles");
}
}
-
sub associate_method{
my ($attribute, $method) = @_;
$attribute->{associated_methods}++;
return;
}
-sub accessor_metaclass(){ 'Mouse::Meta::Method::Accessor' }
-
sub install_accessors{
my($attribute) = @_;
- my $metaclass = $attribute->{associated_class};
+ my $metaclass = $attribute->associated_class;
my $accessor_class = $attribute->accessor_metaclass;
foreach my $type(qw(accessor reader writer predicate clearer)){
=head1 VERSION
-This document describes Mouse version 0.40
+This document describes Mouse version 0.40_01
=head1 METHODS