blob: f89c09207e15b844bd6ad6c836f2e399df8b781f (
plain)
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
|
BEGIN {
puts "begin1"
local_begin1 = "local_begin1"
$global_begin1 = "global_begin1"
ConstBegin1 = "ConstBegin1"
}
BEGIN {
puts "begin2"
}
# for scope check
raise if defined?(local_begin1)
raise unless defined?($global_begin1)
raise unless defined?(::ConstBegin1)
local_for_end2 = "end2"
$global_for_end1 = "end1"
puts "main"
END {
puts local_for_end2
}
END {
raise
puts "should not be dumped"
}
END {
exit
puts "should not be dumped"
}
END {
puts $global_for_end1
}
|