Select Code to Download

sub describe {
my $ref = shift();
...
...
describe( { person=>'buffy', job=>'vampire slayer' } );

sub describe {
my %person = @_;
...
}
...
describe( person=>'buffy', job=>'vampire slayer' );

sub describe {
my $personref = shift;
...
...
describe( { person=>'buffy', job=>'vampire slayer' } );

p:\test>Bench
             Rate describe1 describe2 describe3 describe4
...
describe2  7232/s       39%        --      -66%      -70%
describe3 21387/s      312%      196%        --      -11%
describe4 24048/s      364%      233%       12%        --

p:\test>Bench -P -N=-1 >log
             Rate describe1 describe2 describe3 describe4
...
describe2  5907/s       32%        --      -62%      -65%
describe3 15361/s      245%      160%        --       -8%
describe4 16639/s      273%      182%        8%        --

#! perl -slw
use strict;
...
    describe3 => q[ describe3(           'Buffy',      'Vampire Slayer
+'   ); ],
    describe4 => q[ describe4(           'Buffy',      'Vampire Slayer
+'   ); ],
});