Tiny tweaks
gfx [Thu, 1 Oct 2009 06:35:14 +0000 (15:35 +0900)]
lib/Mouse/Meta/Module.pm

index 0eba004..282a1cf 100755 (executable)
@@ -30,7 +30,7 @@ sub initialize {
 sub class_of{
     my($class_or_instance) = @_;
     return undef unless defined $class_or_instance;
-    return $METAS{ blessed($class_or_instance) || $class_or_instance };
+    return $METAS{ ref($class_or_instance) || $class_or_instance };
 }
 
 # Means of accessing all the metaclasses that have