X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FModule.pm;h=091b8ef05f80eb6fbfa9e6eb030b7f059462b310;hb=08f7a8dbc5e48fcece4396a500d37bb2c6e45b74;hp=12b0453b3bf39ec6d8ff911ab4e847b0571a1d83;hpb=6cfa1e5e70616fb102915489c02d8347ffa912fb;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/Module.pm b/lib/Mouse/Meta/Module.pm index 12b0453..091b8ef 100755 --- a/lib/Mouse/Meta/Module.pm +++ b/lib/Mouse/Meta/Module.pm @@ -3,7 +3,7 @@ use strict; use warnings; use Mouse::Util qw/get_code_info not_supported load_class/; -use Scalar::Util qw/blessed/; +use Scalar::Util qw/blessed weaken/; { @@ -26,7 +26,7 @@ use Scalar::Util qw/blessed/; ||= $class->_new(package => $package_name, @args); } - sub Mouse::class_of{ + sub class_of{ my($class_or_instance) = @_; return undef unless defined $class_or_instance; return $METACLASS_CACHE{ blessed($class_or_instance) || $class_or_instance };