From: Yuval Kogman <nothingmuch@woobling.org>
Date: Sun, 10 Aug 2008 18:24:02 +0000 (+0000)
Subject: package_name >= associated_metaclass->name
X-Git-Tag: 0_64_01~53
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=09ea7f8d2f3e9c7189c0c52762e7c0cab9fd914b;p=gitmo%2FClass-MOP.git

package_name >= associated_metaclass->name
---

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 8630361..c5075dc 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -800,7 +800,7 @@ sub compute_all_applicable_methods {
     return map {
         {
             name  => $_->name,
-            class => $_->associated_metaclass->name,
+            class => $_->package_name,
             code  => $_, # sigh, overloading
         },
     } values %methods;