my %METAS;
-if(Mouse::Util::_MOUSE_XS){
+# XXX: work around a warning "useless use of a constant in void context" in 5.6.2
+if(&Mouse::Util::_MOUSE_XS()){
# register meta storage for performance
Mouse::Util::__register_metaclass_storage(\%METAS, 0);
sub reinitialize {
my($class, $package_name, @args) = @_;
+ $package_name = $package_name->name if ref $package_name;
+
($package_name && !ref($package_name))
|| $class->throw_error("You must pass a package name and it cannot be blessed");
=head1 VERSION
-This document describes Mouse version 0.40_06
+This document describes Mouse version 0.40_07
=head1 SEE ALSO