The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
__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; no warnings 'experimental::smartmatch';
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.