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