7 package Foo; use Moo; sub BUILD { push @ran, 'Foo' }
8 package Bar; use Moo; extends 'Foo'; sub BUILD { push @ran, 'Bar' }
9 package Baz; use Moo; extends 'Bar';
10 package Quux; use Moo; extends 'Baz'; sub BUILD { push @ran, 'Quux' }
17 has 'foo' => (is => 'ro');
18 sub BUILD { push @ran, $_[0]->foo, $_[1]->{bar} }
24 has 'odd1' => (is => 'ro');
25 sub BUILD { push @ran, 'Odd1' }
32 has 'odd3' => (is => 'ro');
33 sub BUILD { push @ran, 'Odd3' }
38 is(ref($o), 'Quux', 'object returned');
39 is_deeply(\@ran, [ qw(Foo Bar Quux) ], 'BUILDs ran in order');
43 $o = Fleem->new(foo => 'Fleem1', bar => 'Fleem2');
45 is(ref($o), 'Fleem', 'object with inline constructor returned');
46 is_deeply(\@ran, [ qw(Foo Bar Quux Fleem1 Fleem2) ], 'BUILDs ran in order');
50 $o = Odd3->new(odd1 => 1, odd3 => 3);
52 is(ref($o), 'Odd3', 'Odd3 object constructed');
53 is_deeply(\@ran, [ qw(Odd1 Odd3) ], 'BUILDs ran in order');