6 use Test::More tests => 20;
24 sub method { push @calls, 'Parent::method' }
34 Child->meta->add_around_method_modifier('method' => sub {
36 push @calls, 'before Child::method';
38 push @calls, 'after Child::method';
44 is_deeply([splice @calls], [
50 is_deeply([splice @calls], [
51 'before Child::method',
53 'after Child::method',
59 Parent->meta->add_around_method_modifier('method' => sub {
61 push @calls, 'before Parent::method';
63 push @calls, 'after Parent::method';
69 is_deeply([splice @calls], [
70 'before Parent::method',
72 'after Parent::method',
77 is_deeply([splice @calls], [
78 'before Child::method',
79 'before Parent::method',
81 'after Parent::method',
82 'after Child::method',