Select Code to Download

foreach $line ($self->getAllLines() {... }

liord@analog4 267 > perl -e 'sub a { %a = ( 1 , "ho" ); return %a} pri
+nt keys a(), "\n"; '
Type of arg 1 to keys must be hash (not subroutine entry) at -e line 1
+, near "),"
Execution of -e aborted due to compilation errors.

liord@analog4 268 > perl -e 'sub a { %a = ( 1 , "ho" ); return %a} %t=
+ a() ; print keys %t , "\n"; '
1