From: gfx <gfuji@cpan.org>
Date: Thu, 1 Oct 2009 06:35:14 +0000 (+0900)
Subject: Tiny tweaks
X-Git-Tag: 0.37_01~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=23274b88b6a445f5a0e806749e73b4134e5efbc2;p=gitmo%2FMouse.git

Tiny tweaks
---

diff --git a/lib/Mouse/Meta/Module.pm b/lib/Mouse/Meta/Module.pm
index 0eba004..282a1cf 100755
--- a/lib/Mouse/Meta/Module.pm
+++ b/lib/Mouse/Meta/Module.pm
@@ -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