Commit | Line | Data |
---|---|---|
3b0d7efd | 1 | use strictures 1; |
2 | use Test::More; | |
3 | ||
4 | { | |
5 | package Fail1; | |
6 | ||
7 | use Moo; | |
8 | ||
9 | has 'attr1' => (is => 'ro'); | |
10 | ||
11 | package Fail2; | |
12 | ||
13 | use Moo; | |
14 | ||
15 | has 'attr2' => (is => 'ro'); | |
16 | ||
17 | extends 'Fail1'; | |
18 | } | |
19 | ||
20 | my $new = Fail2->new({ attr1 => 'value1', attr2 => 'value2' }); | |
21 | ||
22 | is($new->attr1, 'value1', 'inherited attr ok'); | |
23 | is($new->attr2, 'value2', 'subclass attr ok'); | |
24 | ||
25 | done_testing; |