6 use Test::More tests => 2;
10 This tests the successful handling of a next::method call from within an
35 return 'B::foo => ' . (shift)->next::method();
37 return (shift)->$code;
43 return 'B::bar => ' . (shift)->next::method();
45 return (shift)->$code2;
47 return (shift)->$code1;
51 Class::C3::initialize();
53 is(B->foo, "B::foo => A::foo",
54 'method resolved inside anonymous sub');
56 is(B->bar, "B::bar => A::bar",
57 'method resolved inside nested anonymous subs');