projects
/
gitmo/Moo.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
changelog constructor generator fix
[gitmo/Moo.git]
/
t
/
has-before-extends.t
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;