package_name >= associated_metaclass->name

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 8630361..c5075dc 100644 (file)
--- 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;