Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: why use a coderef?

by cLive ;-) (Prior)
on Jun 25, 2007 at 22:11 UTC ( #623269=note: print w/replies, xml ) Need Help??


in reply to why use a coderef?

All good responses so far. I'll agree, in this example, I can't see a reason though.

Just to add, another useful instance is if you want to avoid a long nested "if/else" structure, eg, instead of:

if ($var eq 'one') { &subOne; } elsif ($var eq 'two') { &subTwo; } ... elsif ($var eq 'ten') { &subTen; } else { die "Invalid \$var"; }
use this instead
my %subs = ( one => \&subOne, two => \&subTwo, ... ten => \&subTen, ); if ( exists $subs{$var} ) { &{$subs{$var}}; } else { die "Invalid \$var"; }