MemoizeとAttribute::Memoize

memoize_sample.pl

use strict;
use warnings;
use Memoize qw(flush_cache);

my $t = test::Cache->new;
warn $t->rand_method('test2');
warn $t->rand_method('test1');
warn $t->rand_method('test2');
warn $t->rand_method('test1');

my $t2 = test::Cache->new;
warn $t2->rand_method('test2');
warn $t2->rand_method('test1');

flush_cache('test::Cache::rand_method');
warn $t->rand_method('test2');
warn $t2->rand_method('test2');

my $s = Sample->new;
warn $s->rand_method;
warn $s->rand_method;

package test::Cache;
use strict;
use warnings;

use base qw(Class::Accessor::Fast);

use Attribute::Memoize;

sub rand_method : Memoize {
    my ($self, @list) = @_;

    sleep 1;
    return join('/', @list) . rand;
}

1;