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

##</code><code>##

liord@analog4 267 > perl -e 'sub a { %a = ( 1 , "ho" ); return %a} print 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.

##</code><code>##

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