File Coverage

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

Criterion	Covered	Total	%
statement	39	45	86.6
branch	10	12	83.3
condition	6	6	100.0
subroutine	11	12	91.6
pod	9	9	100.0
total	75	84	89.2

package Cache::Memory::Simple::ID;
use strict;
use warnings;
use Time::HiRes;

our $VERSION = '0.01';

sub new {
    my ($class) = @_;

    bless +[], $class;
}

sub get {
    my $val = $_[0]->[$_[1]];
    if ($val && defined $val->[0]) {
        if ($val->[0] > Time::HiRes::time() ) {
            return $val->[1];
        } else {
            $_[0]->[$_[1]] = undef; # remove expired data
            return undef; ## no critic
        }
    } else {
        return $val->[1];
    }
}

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

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

sub set {
    my ($self, $id, $val, $expiration) = @_;

    $self->[$id] = [defined($expiration)
                         ? $expiration + Time::HiRes::time()
                         : undef,
                     $val];
    return $val;
}

sub delete :method {
    my ($self, $id) = @_;
    $self->[$id] = undef;
}
sub remove { shift->delete(@_) } # alias

sub delete_all {
    @{$_[0]} = ();
    return;
}

sub purge {
    my $self = shift;

    my $id;
    for ($id = 0; $id < $#{$self}; $id++) {
        if (defined($self->[$id]) && $self->[$id][0] < Time::HiRes::time() ) {
            $self->delete($id);
        }
    }
}

sub count {
    my $self = shift;

    my $count = 0;
    for my $id (@{$self}) {
        $count++ if ref($id) eq 'ARRAY';
    }

    return $count;
}

1;

__END__