Implement confliction checks in roles

[gitmo/Mouse.git] / lib / Mouse / Meta / Module.pm

diff --git a/lib/Mouse/Meta/Module.pm b/lib/Mouse/Meta/Module.pm
index 12b0453..091b8ef 100755 (executable)
--- 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 };