sub iterate { my $code = shift; my $back = TRUE; for(@_) { if(&$code($_) == FALSE) { $back = FALSE; } } return $back; } #### &iterate(\&attach,@param); #### my $rep = Module->new(); #### &iterate($rep->attach(),@param); # ?? No &iterate(\$rep->attach(),@param); # ?? Noooo &iterate(\{$rep->attach()},@param); # ?? Hehe...
## &iterate(\&attach,@param); ##
## my $rep = Module->new(); ##
## &iterate($rep->attach(),@param); # ?? No &iterate(\$rep->attach(),@param); # ?? Noooo &iterate(\{$rep->attach()},@param); # ?? Hehe...