Select Code to Download

use Benchmark 'cmpthese';

sub get_value {
...
normal     1462523/s        --      -21%      -90%
optimized  1858304/s       27%        --      -88%
direct    15238095/s      942%      720%        --

use Benchmark 'cmpthese';

my $self = bless [123], '::main';
...
normal     1725998/s        --      -14%      -94%
optimized  2007528/s       16%        --      -93%
direct    29629630/s     1617%     1376%        --