sub associated_metaclass { $_[0]->{associated_metaclass} }
sub fully_qualified_name {
- my $self = shift;
+ my($self) = @_;
return $self->package_name . '::' . $self->name;
}
=head1 VERSION
-This document describes Mouse version 0.40_09
+This document describes Mouse version 0.4501
=head1 SEE ALSO