6 use Test::More tests => 3;
9 use lib 'opt', '../opt', '../blib/lib';
15 This tests the successful handling of a next::method call from within an
40 return 'B::foo => ' . (shift)->next::method();
42 return (shift)->$code;
48 return 'B::bar => ' . (shift)->next::method();
50 return (shift)->$code2;
52 return (shift)->$code1;
56 Class::C3::initialize();
58 is(B->foo, "B::foo => A::foo",
59 'method resolved inside anonymous sub');
61 is(B->bar, "B::bar => A::bar",
62 'method resolved inside nested anonymous subs');