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
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
my ($super_called, $sub_called, $new_super_called) = (0, 0, 0);
{
package Foo;
use Moose;
sub foo { $super_called++ }
}
{
package Foo::Sub;
use Moose;
extends 'Foo';
override foo => sub {
$sub_called++;
super();
};
}
Foo::Sub->new->foo;
is($super_called, 1, "super called");
is($new_super_called, 0, "new super not called");
is($sub_called, 1, "sub called");
($super_called, $sub_called, $new_super_called) = (0, 0, 0);
Foo->meta->add_method(foo => sub {
$new_super_called++;
});
Foo::Sub->new->foo;
{ local $TODO = "super doesn't get replaced";
is($super_called, 0, "super not called");
is($new_super_called, 1, "new super called");
}
is($sub_called, 1, "sub called");
done_testing;
|
