Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -e
"my %h = map { $_ => 0 } qw(kept notkept repaired);
...
"
{ kept => 0, notkept => 0, repaired => 0 }
{ kept => 1, notkept => 0, repaired => 3 }

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -e
"my %h = map { $_ => 0 } qw(kept notkept repaired);
...
"
{ kept => 0, notkept => 0, repaired => 0 }
{ kept => 1, notkept => 0, repaired => 3 }