7 if (eval "require Class::Method::Modifiers; 1") {
11 plan skip_all => "Class::Method::Modifiers required for this test";
16 my @expected = ("before 4",
35 my $child = Grandchild->new; $child->orig;
37 is_deeply(\@seen, \@expected, "multiple afters called in the right order");
54 push @seen, "before 1";
58 push @seen, "before 2";
63 push @seen, "around 1 before";
65 push @seen, "around 1 after";
70 push @seen, "around 2 before";
72 push @seen, "around 2 after";
76 push @seen, "after 1";
80 push @seen, "after 2";
90 push @seen, "before 3";
94 push @seen, "before 4";
99 push @seen, "around 3 before";
101 push @seen, "around 3 after";
106 push @seen, "around 4 before";
108 push @seen, "around 4 after";
112 push @seen, "after 3";
116 push @seen, "after 4";