File Coverage

blib/lib/Cache/LRU/WithExpires.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	7	8	87.5
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	48	49	97.9

package Cache::LRU::WithExpires;

use strict;
use warnings;
use 5.008_001;
our $VERSION = '0.03';

use parent 'Cache::LRU';
use Time::HiRes ();

use constant NO_EXPIRES => 0;

sub set {
    my ($self, $key, $value, $expires) = @_;
    $expires = $expires ? Time::HiRes::time() + $expires : NO_EXPIRES;
    $value   = [$value, $expires];
    $self->SUPER::set($key, $value);
}

sub get {
    my ($self, $key) = @_;
    my $value = $self->SUPER::get($key);
    return undef unless defined $value; ## no critic

    ($value, my $expires) = @$value;
    return $value if $expires == NO_EXPIRES;
    if ($expires - Time::HiRes::time() < 0) {
        $self->remove($key);
        return undef; ## no critic
    }

    return $value;
}

1;
__END__