view release on metacpan or  search on metacpan

benchmark/simple.pl  view on Meta::CPAN

use strict;
use warnings;

use Benchmark qw(:all);
use Cache::FastMmap;
use Cache::LRU;
use Cache::Ref::LRU;
use Cache::Ref::Util::LRU::Array;
use Cache::Ref::Util::LRU::List;
use Tie::Cache::LRU;

my $size = 1024;
my $loop = 1000;

sub cache_hit {
    my $cache = shift;
    $cache->set(a => 1);
    my $c = 0;
    $c += $cache->get('a')

benchmark/simple.pl  view on Meta::CPAN

        cache_hit(
            Cache::LRU->new(
                size => $size,
            ),
        );
    },
    'Cache::Ref::LRU (Array)' => sub {
        cache_hit(
            Cache::Ref::LRU->new(
                size      => $size,
                lru_class => qw(Cache::Ref::Util::LRU::Array),
            ),
        );
    },
    'Cache::Ref::LRU (List)'  => sub {
        cache_hit(
            Cache::Ref::LRU->new(
                size      => $size,
                lru_class => qw(Cache::Ref::Util::LRU::List),
            ),
        );
    },
    'Tie::Cache::LRU' => sub {
        tie my %cache, 'Tie::Cache::LRU', $size;
        $cache{a} = 1;
        my $c = 0;
        $c += $cache{a}
            for 1..$loop;
        $c;

benchmark/simple.pl  view on Meta::CPAN

            Cache::LRU->new(
                size => $size,
            ),
        );
    },
    # too slow
    #'Cache::Ref::LRU (Array)' => sub {
    #    cache_set(
    #        Cache::Ref::LRU->new(
    #            size      => $size,
    #            lru_class => qw(Cache::Ref::Util::LRU::Array),
    #        ),
    #    );
    #},
    'Cache::Ref::LRU (List)' => sub {
        cache_set(
            Cache::Ref::LRU->new(
                size      => $size,
                lru_class => qw(Cache::Ref::Util::LRU::List),
            ),
        );
    },
    'Tie::Cache::LRU' => sub {
        tie my %cache, 'Tie::Cache::LRU', $size;
        $cache{$_} = 1
            for @keys;
        \%cache;
    },
});