~/ncgi-bin$ cat t.pl
use Hash::Case::Lower;
 tie my(%lchash), 'Hash::Case::Lower';
 $lchash{StraNGeKeY} = 3;
 print keys %lchash;  # strangekey
~/ncgi-bin$ pp -M Hash::Case::Lower t.pl
~/ncgi-bin$ ./a.out
Can't locate object method "init" via package
"Log::Report::Dispatcher::Perl" at Log/Report/Dispatcher.pm line 47.
Compilation failed in require at Hash/Case.pm line 16.
BEGIN failed--compilation aborted at Hash/Case.pm line 16.
Compilation failed in require at (eval 20) line 3.
        ...propagated at /usr/share/perl/5.10/base.pm line 92.
BEGIN failed--compilation aborted at Hash/Case/Lower.pm line 12.
Compilation failed in require at script/t.pl line 1.
BEGIN failed--compilation aborted at script/t.pl line 1.

Reply via email to