9 has one => (is => 'ro', weak_ref => 1);
13 my $foo = Foo->new(one => $ref);
14 is($foo->one, $ref, 'value present');
15 ok(Scalar::Util::isweak($foo->{one}), 'value weakened');
17 ok (!defined $foo->{one}, 'weak value gone');
20 sub mk_ref { \ 'yay' };
21 my $foo_ro = eval { Foo->new(one => mk_ref()) };
25 qr/\QReference to readonly value in "one" can not be weakened on Perl < 5.8.3/,
26 'Expected exception thrown on old perls'
30 is(${$foo_ro->one},'yay', 'value present');
31 ok(Scalar::Util::isweak($foo_ro->{one}), 'value weakened');
33 { no warnings 'redefine'; *mk_ref = sub {} }
34 ok (!defined $foo_ro->{one}, 'optree reaped, ro static value gone');