__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.