1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
use strict;
use warnings;
use Test::More;
use Moose ();
use Scalar::Util 'weaken';
my $weak;
my $name;
do {
my $anon_class;
do {
my $role = Moose::Meta::Role->create_anon_role(
methods => {
improperly_freed => sub { 1 },
},
);
weaken($weak = $role);
$name = $role->name;
$anon_class = Moose::Meta::Class->create_anon_class(
roles => [ $role->name ],
);
};
ok($weak, "we still have the role metaclass because the anonymous class that consumed it is still alive");
ok($name->can('improperly_freed'), "we have not blown away the role's symbol table");
};
ok(!$weak, "the role metaclass is freed after its last reference (from a consuming anonymous class) is freed");
ok(!$name->can('improperly_freed'), "we blew away the role's symbol table entries");
do {
my $anon_class;
do {
my $role = Moose::Meta::Role->create_anon_role(
methods => {
improperly_freed => sub { 1 },
},
weaken => 0,
);
weaken($weak = $role);
$name = $role->name;
$anon_class = Moose::Meta::Class->create_anon_class(
roles => [ $role->name ],
);
};
ok($weak, "we still have the role metaclass because the anonymous class that consumed it is still alive");
ok($name->can('improperly_freed'), "we have not blown away the role's symbol table");
};
ok($weak, "the role metaclass still exists because we told it not to weaken");
ok($name->can('improperly_freed'), "the symbol table still exists too");
done_testing;
|
