t/lib/croak/pp_ctl

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