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
95
96
97
98
99
100
101
|
use Moo::_strictures;
use Test::More;
use Test::Fatal;
{
package RollyRole;
use Moo::Role;
has f => (is => 'ro', default => sub { 0 });
}
{
package ClassyClass;
use Moo;
has f => (is => 'ro', default => sub { 1 });
}
{
package UsesTheRole;
use Moo;
with 'RollyRole';
}
{
package UsesTheRole2;
use Moo;
with 'RollyRole';
has '+f' => (default => sub { 2 });
}
{
package ExtendsTheClass;
use Moo;
extends 'ClassyClass';
has '+f' => (default => sub { 3 });
}
{
package BlowsUp;
use Moo;
::like(::exception { has '+f' => () }, qr/\Qhas '+f'/, 'Kaboom');
}
{
package ClassyClass2;
use Moo;
has d => (is => 'ro', default => sub { 4 });
}
{
package MultiClass;
use Moo;
extends 'ClassyClass', 'ClassyClass2';
::is(::exception {
has '+f' => ();
}, undef, 'extend attribute from first parent');
::like(::exception {
has '+d' => ();
}, qr/no d attribute already exists/,
'can\'t extend attribute from second parent');
}
is(UsesTheRole->new->f, 0, 'role attr');
is(ClassyClass->new->f, 1, 'class attr');
is(UsesTheRole2->new->f, 2, 'role attr with +');
is(ExtendsTheClass->new->f, 3, 'class attr with +');
{
package HasBuilderSub;
use Moo;
has f => (is => 'ro', builder => sub { __PACKAGE__ });
}
{
package ExtendsBuilderSub;
use Moo;
extends 'HasBuilderSub';
has '+f' => (init_arg => undef);
sub _build_f { __PACKAGE__ }
}
is +ExtendsBuilderSub->new->_build_f, 'ExtendsBuilderSub',
'build sub not replaced by +attr';
is +ExtendsBuilderSub->new->f, 'ExtendsBuilderSub',
'correct build sub used after +attr';
done_testing;
|
