blob: b62b526646f1d0d476cf0a8f49a5cb0d593de491 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
__END__
# NAME dump with computed label
my $label = "foo";
dump $label;
EXPECT
Can't find label foo at - line 2.
########
# NAME when outside given
use 5.01;
when(undef){}
EXPECT
Can't "when" outside a topicalizer at - line 2.
########
# NAME default outside given
use 5.01;
default{}
EXPECT
Can't "default" outside a topicalizer at - line 2.
|
