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
|
use strictures 1;
use Test::More;
use Test::Fatal;
my $test = "test";
my $lazy_default = "lazy_default";
{
package Foo;
use Moo;
has rwp => (is => 'rwp');
has lazy => (is => 'lazy');
sub _build_lazy { $test }
has lazy_default => (is => 'lazy', default => sub { $lazy_default });
}
my $foo = Foo->new;
# rwp
{
is $foo->rwp, undef, "rwp value starts out undefined";
ok exception { $foo->rwp($test) }, "rwp is read_only";
is exception { $foo->_set_rwp($test) }, undef, "rwp can be set by writer";
is $foo->rwp, $test, "rwp value was set by writer";
}
# lazy
{
is $foo->{lazy}, undef, "lazy value storage is undefined";
is $foo->lazy, $test, "lazy value returns test value when called";
ok exception { $foo->lazy($test) }, "lazy is read_only";
}
# lazy + default
{
is $foo->{lazy_default}, undef, "lazy_default value storage is undefined";
is $foo->lazy_default, $lazy_default, "lazy_default value returns test value when called";
ok exception { $foo->lazy_default($test) }, "lazy_default is read_only";
}
done_testing;
|
