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
|
use strictures 1;
use Test::More;
my $called = 0;
my $subclass = 0;
{
package MyTest;
use Moo;
use MooX::Aliases;
sub foo { $called++ }
alias bar => 'foo';
package MyTest::Sub;
use Moo;
extends qw(MyTest);
sub foo { $subclass++ };
}
($called, $subclass) = (0, 0);
my $t = MyTest->new;
$t->foo;
$t->bar;
is($called, 2, 'alias calls the original method');
my $t2 = MyTest::Sub->new;
$t2->foo;
$t2->bar;
is($subclass, 2, 'subclass method called twice');
is($called, 2, 'original method not called again');
done_testing;
|
