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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
use Moo::_strictures;
use Test::More;
my @ran;
{
package Foo; use Moo; sub BUILD { push @ran, 'Foo' }
package Bar; use Moo; extends 'Foo'; sub BUILD { push @ran, 'Bar' }
package Baz; use Moo; extends 'Bar';
package Quux; use Moo; extends 'Baz'; sub BUILD { push @ran, 'Quux' }
}
{
package Fleem;
use Moo;
extends 'Quux';
has 'foo' => (is => 'ro');
sub BUILD { push @ran, $_[0]->foo, $_[1]->{bar} }
}
{
package Odd1;
use Moo;
has 'odd1' => (is => 'ro');
sub BUILD { push @ran, 'Odd1' }
package Odd2;
use Moo;
extends 'Odd1';
package Odd3;
use Moo;
extends 'Odd2';
has 'odd3' => (is => 'ro');
sub BUILD { push @ran, 'Odd3' }
}
{
package Sub1;
use Moo;
has 'foo' => (is => 'ro');
package Sub2;
use Moo;
extends 'Sub1';
sub BUILD { push @ran, "sub2" }
}
my $o = Quux->new;
is(ref($o), 'Quux', 'object returned');
is_deeply(\@ran, [ qw(Foo Bar Quux) ], 'BUILDs ran in order');
@ran = ();
$o = Fleem->new(foo => 'Fleem1', bar => 'Fleem2');
is(ref($o), 'Fleem', 'object with inline constructor returned');
is_deeply(\@ran, [ qw(Foo Bar Quux Fleem1 Fleem2) ], 'BUILDs ran in order');
@ran = ();
$o = Odd3->new(odd1 => 1, odd3 => 3);
is(ref($o), 'Odd3', 'Odd3 object constructed');
is_deeply(\@ran, [ qw(Odd1 Odd3) ], 'BUILDs ran in order');
@ran = ();
$o = Sub2->new;
is(ref($o), 'Sub2', 'Sub2 object constructed');
is_deeply(\@ran, [ qw(sub2) ], 'BUILD ran');
@ran = ();
$o = Sub2->new(__no_BUILD__ => 1);
is_deeply(\@ran, [], '__no_BUILD__ surpresses BUILD running');
{
package WithCoerce;
use Moo;
has attr1 => ( is => 'ro', coerce => sub { $_[0] + 5 } );
has build_params => ( is => 'rw', init_arg => undef );
sub BUILD {
my ($self, $args) = @_;
$self->build_params($args);
}
}
$o = WithCoerce->new(attr1 => 2);
is +$o->build_params->{attr1}, 2, 'BUILD gets uncoerced arguments';
done_testing;
|
