File Coverage

blib/lib/Cache/Memory/Simple/Scalar.pm

Criterion	Covered	Total	%
statement	34	40	85.0
branch	6	8	75.0
condition			n/a
subroutine	10	11	90.9
pod	5	5	100.0
total	55	64	85.9

package Cache::Memory::Simple::Scalar;
use strict;
use warnings;
use utf8;

use Time::HiRes;
use 5.008001;

use constant {
    TIME  => 0,
    VALUE => 1,
};

sub new {
    my ($class) = @_;
    bless [undef, undef], $class;
}

sub get {
    my ($self) = @_;
    if (defined $self->[TIME]) { # data with expiration
        if ($self->[TIME] > Time::HiRes::time()) {
            return $self->[VALUE];
        } else {
            undef $self->[VALUE]; # remove expired data
            return undef;
        }
    } else {
        return $self->[VALUE];
    }
}

sub get_or_set {
    my ($self, $code, $expiration) = @_;

    if (my $val = $self->get()) {
        return $val;
    } else {
        my $val = $code->();
        $self->set($val, $expiration);
        return $val;
    }
}

sub set {
    my ($self, $val, $expiration) = @_;
    $self->[TIME] = defined($expiration)
                    ? $expiration + Time::HiRes::time()
                    : undef;
    $self->[VALUE] = $val;
    return $val;
}

sub delete :method {
    my ($self) = @_;
    undef $self->[VALUE];
    return undef;
}

1;
__END__