6 use Test::More tests => 13;
8 use Scope::Upper qw/unwind SCOPE/;
20 1, unwind('from', 'the', 'sub', 'c' => SCOPE $l1);
30 my @c = (1 .. 12, c());
31 is $x, 3, '$x in b after c()';
38 is $x, 1, '$x in a after b()';
44 is_deeply [ a() ], [ 1 .. 12, 'in c', 'in b', 'in a' ],
49 is_deeply [ a() ], [ 1 .. 12, qw/eval from the sub c/, 'in b', 'in a' ],
54 is_deeply [ a() ], [ qw/eval from the sub c/, 'in a' ],
59 is_deeply [ a() ], [ 1 .. 12, qw/from the sub c/, 'in b', 'in a' ],
64 is_deeply [ a() ], [ qw/from the sub c/, 'in a' ],