1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
#!perl -T
use strict;
use warnings;
use Test::More tests => 13;
use Scope::Upper qw/unwind SCOPE/;
my ($l1, $l2);
our $x;
sub c {
$x = 3;
sub {
unwind("eval", eval {
do {
for (3, 4, 5) {
1, unwind('from', 'the', 'sub', 'c' => SCOPE $l1);
}
}
} => SCOPE $l2);
}->(2, 3, 4);
return 'in c'
}
sub b {
local $x = 2;
my @c = (1 .. 12, c());
is $x, 3, '$x in b after c()';
return @c, 'in b';
}
sub a {
local $x = 1;
my @b = b();
is $x, 1, '$x in a after b()';
return @b, 'in a';
}
$l1 = 0;
$l2 = 0;
is_deeply [ a() ], [ 1 .. 12, 'in c', 'in b', 'in a' ],
'l1=0, l2=0';
$l1 = 0;
$l2 = 1;
is_deeply [ a() ], [ 1 .. 12, qw/eval from the sub c/, 'in b', 'in a' ],
'l1=0, l2=1';
$l1 = 0;
$l2 = 2;
is_deeply [ a() ], [ qw/eval from the sub c/, 'in a' ],
'l1=0, l2=2';
$l1 = 4;
$l2 = 999;
is_deeply [ a() ], [ 1 .. 12, qw/from the sub c/, 'in b', 'in a' ],
'l1=4, l2=?';
$l1 = 5;
$l2 = 999;
is_deeply [ a() ], [ qw/from the sub c/, 'in a' ],
'l1=5, l2=?';
|
