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
|
package Foo;
use Moose;
## Problem:
## lazy_build sets required => 1
## required does not permit setting to undef
## Possible solutions:
#### remove required => 1
#### check the attr to see if it accepts Undef (Maybe[], | Undef)
#### or, make required accept undef and use a predicate test
has 'foo' => ( isa => 'Int | Undef', is => 'rw', coerce => 1, lazy_build => 1 );
has 'bar' => ( isa => 'Int | Undef', is => 'rw', coerce => 1 );
sub _build_foo { undef }
package main;
use Test::More;
ok ( !defined(Foo->new->bar), 'NonLazyBuild: Undef default' );
ok ( !defined(Foo->new->bar(undef)), 'NonLazyBuild: Undef explicit' );
ok ( !defined(Foo->new->foo), 'LazyBuild: Undef default/lazy_build' );
## This test fails at the time of creation.
ok ( !defined(Foo->new->foo(undef)), 'LazyBuild: Undef explicit' );
done_testing;
|
