4 use Test::More tests => 4;
6 use Scalar::Util 'weaken';
14 my $role = Mouse::Meta::Role->create_anon_role(
16 improperly_freed => sub { 1 },
19 weaken($weak = $role);
23 $anon_class = Mouse::Meta::Class->create_anon_class(
24 roles => [ $role->name ],
28 ok($weak, "we still have the role metaclass because the anonymous class that consumed it is still alive");
29 ok($name->can('improperly_freed'), "we have not blown away the role's symbol table");
32 ok(!$weak, "the role metaclass is freed after its last reference (from a consuming anonymous class) is freed");
34 ok(!$name->can('improperly_freed'), "we blew away the role's symbol table entries");