4 use Test::More tests => 4;
20 sub method { push @calls, 'Parent::method' }
30 Child->meta->add_around_method_modifier('method' => sub {
32 push @calls, 'before Child::method';
34 push @calls, 'after Child::method';
40 is_deeply([splice @calls], [
46 is_deeply([splice @calls], [
47 'before Child::method',
49 'after Child::method',
55 Parent->meta->add_around_method_modifier('method' => sub {
57 push @calls, 'before Parent::method';
59 push @calls, 'after Parent::method';
65 is_deeply([splice @calls], [
66 'before Parent::method',
68 'after Parent::method',
74 local $TODO = "pending fix";
75 is_deeply([splice @calls], [
76 'before Child::method',
77 'before Parent::method',
79 'after Parent::method',
80 'after Child::method',
81 ], "cache is correctly invalidated when the parent method is wrapped");