Help for this page

Select Code to Download


  1. or download this
    
    my %dispatch = (
    ...
        $total += 1;
        return $total;
    }
    
  2. or download this
    
    my $total = 10;
    ...
    $total    = $dispatch{'k5'}->($total);
    
    print $total, "\n";