}
}
-
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