Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

sub dest { return 1 } # don't want it optimised away
...
                 return &dest;
             },
         });

Select or download this

$ perl5.8.8 x.pl
             Rate    call callamp    goto
...
call    4633858/s      --     -9%    -12%
goto    5119310/s     10%      --     -2%
callamp 5242879/s     13%      2%      --