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
|
use strictures 1;
use Test::More;
my ($foo_called, $baz_called, $run_called);
{
package MyTest;
use Moo;
use MooX::Aliases;
has foo => (
is => 'rw',
traits => ['Aliased'],
alias => 'bar',
trigger => sub { $foo_called++ },
);
has baz => (
is => 'rw',
traits => ['Aliased'],
alias => [qw/quux quuux/],
trigger => sub { $baz_called++ },
);
sub run { $run_called++ }
alias walk => 'run';
}
($foo_called, $baz_called, $run_called) = (0, 0, 0);
my $t = MyTest->new;
$t->foo(1);
$t->bar(1);
$t->baz(1);
$t->quux(1);
$t->quuux(1);
$t->run;
$t->walk;
is($foo_called, 2, 'all aliased methods were called from foo');
is($baz_called, 3, 'all aliased methods were called from baz');
is($run_called, 2, 'all aliased methods were called from run');
done_testing;
|
