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
|
use strictures 1;
use Test::More;
use Test::Fatal;
my ($foo_called, $baz_called, $override_called);
{
package MyTest;
use Moo;
use MooX::Aliases;
has foo => (
is => 'rw',
alias => 'bar',
trigger => sub { $foo_called++ },
);
has baz => (
is => 'rw',
alias => [qw/quux quuux/],
trigger => sub { $baz_called++ },
);
has wark => (
is => 'rw',
);
::like( ::exception {
has [qw(attr1 attr2)] => (
is => 'rw',
alias => 'attr3',
);
}, qr/^Cannot make alias to list of attributes/,
"aliasing a list of attributes fails");
::is( ::exception {
has [qw(attr4 attr5)] => (
is => 'rw',
);
}, undef,
"creating a list of attributes without aliases works");
::is( ::exception {
has [qw(attr6)] => (
is => 'rw',
alias => 'attr7',
);
}, undef,
"aliasing a list of one attribute works");
::is( ::exception {
has [qw(attr8 attr9)] => (
is => 'rw',
alias => [],
);
}, undef,
"multiple attributes with an empty list of aliases works");
package MyTest::Sub;
use Moo;
use MooX::Aliases;
extends qw(MyTest);
has '+foo' => (
alias => 'override',
trigger => sub { $override_called++ },
);
}
($foo_called, $baz_called, $override_called) = (0, 0, 0);
my $t = MyTest->new;
$t->foo(1);
$t->bar(1);
$t->baz(1);
$t->quux(1);
$t->quuux(1);
$t->wark(1);
is($foo_called, 2, 'all aliased methods were called from foo');
is($baz_called, 3, 'all aliased methods were called from baz');
my $t2 = MyTest::Sub->new;
$t2->override(1);
is($override_called, 1, 'all subclassed aliases were called from override');
done_testing;
|
