Help for this page

Select Code to Download


  1. or download this
    my $consider = 'foo';
${{
    bar => sub { print "Barred!\n" },
    foo => sub { print "Fooed for thought...\n" }
}}{$consider}();
  2. or download this
    {
  my $continue = 1;
...
  [sub {1},   sub { print "This is the default\n" }]
  ;
}
  3. or download this
    {
  my $continue = 1;
...
  when {/o/}  then { print "Oh!\n"; done }
  default { print "This is the default\n" }
;