projects
/
gitmo/Role-Tiny.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
clean up and add NAME sections
[gitmo/Role-Tiny.git]
/
t
/
accessor-weaken.t
1
use strictures 1;
2
use Test::More;
3
4
{
5
package Foo;
6
7
use Moo;
8
9
has one => (is => 'ro', weak_ref => 1);
10
}
11
12
my $ref = \'yay';
13
14
my $foo = Foo->new(one => $ref);
15
16
is(${$foo->one},'yay', 'value present');
17
ok(Scalar::Util::isweak($foo->{one}), 'value weakened');
18
19
done_testing;