4 use Test::More tests => 2;
6 use Scalar::Util 'weaken';
13 my $role = Moose::Meta::Role->create_anon_role;
14 weaken($weak = $role);
16 $anon_class = Moose::Meta::Class->create_anon_class(
17 roles => [ $role->name ],
21 ok($weak, "we still have the role metaclass because the anonymous class that consumed it is still alive");
25 ok(!$weak, "the role metaclass is freed after its last reference (from a consuming anonymous class) is freed");