4
use Test::More tests => 6;
7
my ($foo_called, $baz_called, $run_called);
16
traits => ['Aliased'],
18
trigger => sub { $foo_called++ },
23
traits => ['Aliased'],
24
alias => [qw/quux quuux/],
25
trigger => sub { $baz_called++ },
28
sub run { $run_called++ }
33
($foo_called, $baz_called, $run_called) = (0, 0, 0);
42
is($foo_called, 2, 'all aliased methods were called from foo');
43
is($baz_called, 3, 'all aliased methods were called from baz');
44
is($run_called, 2, 'all aliased methods were called from run');