Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my %h = qw(a 1  b 2  c 3  d 1);
...
 keys %r == keys %h or die qq{hash @{[ %h ]} not unique};
"
hash c 3 a 1 b 2 d 1 not unique at -e line 1.

c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(dd);
...
 dd \%r;
"
{ 1 => ["a", "d"], 2 => ["b"], 3 => ["c"], 88 => ["b"], 99 => ["b", "d
+"] }

c:\@Work\Perl\monks>perl -wMstrict -le
"use Test::More 'no_plan';
...
ok 2 - no warnings
1..2
# Looks like you failed 1 test of 2.