Help for this page

Select Code to Download

Select or download this

my %way_of = (
     the_sword => sub{do('sword',@_)},
     the_gun   => sub{do('gun',@_)},
...
my $stuff = $something_else;

&{$way_of{$what} || $way_of{""}}($stuff);

Select or download this

if ($what eq 'the_sword')
{
     do('sword', $stuff);
...
{
     do('default', $stuff);
}