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 is(B->foo, "B::foo => A::foo",
57 'method resolved inside anonymous sub');
59 is(B->bar, "B::bar => A::bar",
60 'method resolved inside nested anonymous subs');