NAME

Cache::Memory::Simple::Scalar - Cache one scalar value

SYNOPSIS

use Cache::Memory::Simple::Scalar;
use feature qw/state/;

sub get_stuff {
    my ($class, $key) = @_;

    state $cache = Cache::Memory::Simple::Scalar->new();
    $cache->get_or_set(
        sub {
            Storage->get($key) # slow operation
        }, 10 # cache in 10 seconds
    );
}

DESCRIPTION

Cache::Memory::Simple::Scalar is cache storage for one scalar value with expiration.

METHODS

my $obj = Cache::Memory::Simple::Scalar->new()

Create a new instance.

my $stuff = $obj->get();

Get a stuff from cache storage.

$obj->set($val, $expiration)

Set a stuff to cache.

$expiration is in seconds.

$obj->get_or_set($code, $expiration)

Get a cache value if it's already cached. If it's not cached then, run $code and cache $expiration seconds and return the value.

$obj->delete()

Delete cache from cache.

AUTHOR

Tokuhiro Matsuno <tokuhirom AAJKLFJEF@ GMAIL COM>

SEE ALSO

LICENSE

Copyright (C) Tokuhiro Matsuno

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.