my %METAS;
-# XXX: work around a warning "useless use of a constant in void context" in 5.6.2
-if(&Mouse::Util::MOUSE_XS){
+if(Mouse::Util::MOUSE_XS){
# register meta storage for performance
Mouse::Util::__register_metaclass_storage(\%METAS, 0);
sub _metaclass_cache { # DEPRECATED
my($class, $name) = @_;
+ Carp::cluck('_metaclass_cache() has been deprecated. Use Mouse::Util::get_metaclass_by_name() instead');
return $METAS{$name};
}
# add_attribute is an abstract method
sub get_attribute_map { # DEPRECATED
- Carp::cluck('get_attribute_map() has been deprecated');
+ Carp::cluck('get_attribute_map() has been deprecated. Use get_attribute_list() and get_attribute() instead');
return $_[0]->{attributes};
}
=head1 VERSION
-This document describes Mouse version 0.44
+This document describes Mouse version 0.4501
=head1 SEE ALSO