4 use Test::More tests => 18;
6 use Scalar::Util 'isweak';
26 $destroyed{ $self->type }++;
30 my $self = Class->new(type => 'accessor');
33 my $self2 = Class->new(type => 'middle');
34 my $self3 = Class->new(type => 'constructor', self => $self2);
37 for my $object ($self, $self2, $self3) {
38 ok(isweak($object->{self}), "weak reference");
39 ok($object->self->self->self->self, "we've got circularity");
43 is($destroyed{accessor}, 1, "destroyed from the accessor");
44 is($destroyed{constructor}, 1, "destroyed from the constructor");
45 is($destroyed{middle}, 1, "casuality of war");
47 ok(!Class->meta->get_attribute('type')->weak_ref, "type is not a weakref");
48 ok(Class->meta->get_attribute('self')->weak_ref, "self IS a weakref");
61 throws_ok { Class2->new } qr/Can't weaken a nonreference/;
62 ok(Class2->meta->get_attribute('value')->weak_ref, "value IS a weakref");
70 default => sub { {} },
72 predicate => 'has_hashref',
76 my $obj = Class3->new;
77 is($obj->hashref, undef, "hashref collected immediately because refcount=0");
78 ok($obj->has_hashref, 'attribute is turned into undef, not deleted from instance');
80 $obj->hashref({1 => 1});
81 is($obj->hashref, undef, "hashref collected between set and get because refcount=0");
82 ok($obj->has_hashref, 'attribute is turned into undef, not deleted from instance');
84 ok(Class3->meta->get_attribute('hashref')->weak_ref, "hashref IS a weakref");