http://www.perlmonks.org?node_id=129844


in reply to Would you use 'goto' here?

Once in a while I've used something like
if (exists $commands{$command}) { my ($result) = eval "&$command"; ... }
to avoid the if ($command eq "foo") { &foo } elsif (...) thing. I think I picked it up from Jim Winstead

 - ask

-- 
ask bjoern hansen, http://ask.netcetera.dk/   !try; do();