Help for this page

Select Code to Download


  1. or download this
    my %tests = map { $_ => 0 ) qw/ tfred tjock tfortytwo / ;
  2. or download this
    my $tests ={};
map { $tests -> { $_ } = 0 } qw/ tfred tjock tfortytwo /;
  3. or download this
    callToSub(\%tests);
  4. or download this
    my $errstr = ( $case != OK ? $msg[$case] : "" );