20 sub method { push @calls, 'Parent::method' }
30 Child->meta->add_around_method_modifier(
33 push @calls, 'before Child::method';
35 push @calls, 'after Child::method';
54 'before Child::method',
56 'after Child::method',
63 Parent->meta->add_around_method_modifier(
66 push @calls, 'before Parent::method';
68 push @calls, 'after Parent::method';
78 'before Parent::method',
80 'after Parent::method',
87 local $TODO = "pending fix";
91 'before Child::method',
92 'before Parent::method',
94 'after Parent::method',
95 'after Child::method',
97 "cache is correctly invalidated when the parent method is wrapped"