6 use Test::More tests => 4;
22 sub method { push @calls, 'Parent::method' }
32 Child->meta->add_around_method_modifier('method' => sub {
34 push @calls, 'before Child::method';
36 push @calls, 'after Child::method';
42 is_deeply([splice @calls], [
48 is_deeply([splice @calls], [
49 'before Child::method',
51 'after Child::method',
57 Parent->meta->add_around_method_modifier('method' => sub {
59 push @calls, 'before Parent::method';
61 push @calls, 'after Parent::method';
67 is_deeply([splice @calls], [
68 'before Parent::method',
70 'after Parent::method',
76 local $TODO = "pending fix";
77 is_deeply([splice @calls], [
78 'before Child::method',
79 'before Parent::method',
81 'after Parent::method',
82 'after Child::method',
83 ], "cache is correctly invalidated when the parent method is wrapped");