Weaken anonymous roles in the metaclass lookup table so that they can eventually...

diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm
index 7e44f09..9145fbf 100644 (file)
--- a/lib/Moose/Meta/Role.pm
+++ b/lib/Moose/Meta/Role.pm
@@ -519,6 +519,9 @@ sub create {
         }
     }
 
+    Class::MOP::weaken_metaclass($meta->name)
+        if $meta->is_anon_role;
+
     return $meta;
 }
 

diff --git a/t/030_roles/036_free_anonymous_roles.t b/t/030_roles/036_free_anonymous_roles.t
index a17622d..c243655 100644 (file)
--- a/t/030_roles/036_free_anonymous_roles.t
+++ b/t/030_roles/036_free_anonymous_roles.t
@@ -22,8 +22,5 @@ do {
 
 };
 
-TODO: {
-    local $TODO = "we don't weaken role metaclasses yet";
-    ok(!$weak, "the role metaclass is freed after its last reference (from a consuming anonymous class) is freed");
-};
+ok(!$weak, "the role metaclass is freed after its last reference (from a consuming anonymous class) is freed");