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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
#!perl -T
use strict;
use warnings;
use Test::More;
BEGIN {
if ($^P) {
plan skip_all => 'hardcoded values are wrong under the debugger';
} else {
plan tests => 29 + 13 * 2;
}
}
use Scope::Upper qw<:words>;
# This test is for internal use only and doesn't imply any kind of future
# compatibility on what the words should actually return.
is HERE, 0, 'main : here';
is TOP, 0, 'main : top';
is UP, 0, 'main : up';
is SUB, undef, 'main : sub';
is EVAL, undef, 'main : eval';
{
is HERE, 1, '{ 1 } : here';
is TOP, 0, '{ 1 } : top';
is UP, 0, '{ 1 } : up';
}
do {
is HERE, 1, 'do { 1 } : here';
is SUB, undef, 'do { 1 } : sub';
is EVAL, undef, 'do { 1 } : eval';
};
eval {
is HERE, 1, 'eval { 1 } : here';
is SUB, undef, 'eval { 1 } : sub';
is EVAL, 1, 'eval { 1 } : eval';
};
eval q[
is HERE, 1, 'eval "1" : here';
is SUB, undef, 'eval "1" : sub';
is EVAL, 1, 'eval "1" : eval';
];
do {
is HERE, 1, 'do { 1 } while (0) : here';
} while (0);
sub {
is HERE, 1, 'sub { 1 } : here';
is SUB, 1, 'sub { 1 } : sub';
is EVAL, undef, 'sub { 1 } : eval';
}->();
for (1) {
is HERE, 1, 'for () { 1 } : here';
}
do {
eval {
do {
sub {
eval q[
{
is HERE, 6, 'mixed : here';
is TOP, 0, 'mixed : top';
is SUB, 4, 'mixed : first sub';
is SUB(SUB), 4, 'mixed : still first sub';
is EVAL, 5, 'mixed : first eval';
is EVAL(EVAL), 5, 'mixed : still first eval';
is EVAL(UP(EVAL)), 2, 'mixed : second eval';
}
];
}->();
}
};
} while (0);
{
is SCOPE, 1, 'block : scope';
is SCOPE(0), 1, 'block : scope 0';
is SCOPE(1), 0, 'block : scope 1';
is CALLER, 0, 'block: caller';
is CALLER(0), 0, 'block : caller 0';
is CALLER(1), 0, 'block : caller 1';
sub {
is SCOPE, 2, 'block sub : scope';
is SCOPE(0), 2, 'block sub : scope 0';
is SCOPE(1), 1, 'block sub : scope 1';
is CALLER, 2, 'block sub : caller';
is CALLER(0), 2, 'block sub : caller 0';
is CALLER(1), 0, 'block sub : caller 1';
for (1) {
is SCOPE, 3, 'block sub for : scope';
is SCOPE(0), 3, 'block sub for : scope 0';
is SCOPE(1), 2, 'block sub for : scope 1';
is CALLER, 2, 'block sub for : caller';
is CALLER(0), 2, 'block sub for : caller 0';
is CALLER(1), 0, 'block sub for : caller 1';
eval {
is SCOPE, 4, 'block sub for eval : scope';
is SCOPE(0), 4, 'block sub for eval : scope 0';
is SCOPE(1), 3, 'block sub for eval : scope 1';
is SCOPE(2), 2, 'block sub for eval : scope 2';
is CALLER, 4, 'block sub for eval : caller';
is CALLER(0), 4, 'block sub for eval : caller 0';
is CALLER(1), 2, 'block sub for eval : caller 1';
is CALLER(2), 0, 'block sub for eval : caller 2';
}
}
}->();
}
|
