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
|
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 @tests = (
'Foo' => {
ran => [qw( Foo )],
},
'Bar' => {
ran => [qw( Foo Bar )],
},
'Baz' => {
ran => [qw( Foo Bar )],
},
'Quux' => {
ran => [qw( Foo Bar Quux )],
},
'Fleem' => {
ran => [qw( Foo Bar Quux Fleem1 Fleem2 )],
args => [ foo => 'Fleem1', bar => 'Fleem2' ],
},
'Odd1' => {
ran => [qw( Odd1 )],
},
'Odd2' => {
ran => [qw( Odd1 )],
},
'Odd3' => {
ran => [qw( Odd1 Odd3 )],
args => [ odd1 => 1, odd3 => 3 ],
},
'Sub1' => {
ran => [],
},
'Sub2' => {
ran => [qw( sub2 )],
},
);
while ( my ($class, $conf) = splice(@tests,0,2) ) {
my $o = $class->new( @{ $conf->{args} || [] } );
isa_ok($o, $class);
is_deeply(\@ran, $conf->{ran}, 'BUILDs ran in order');
@ran = ();
}
done_testing;
|
