File Coverage

blib/lib/Pinwheel/Cache.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	6	6	100.0
condition			n/a
subroutine	10	10	100.0
pod	6	6	100.0
total	53	53	100.0

package Pinwheel::Cache;

use strict;
use warnings;

use Pinwheel::Cache::Null;

use Exporter;

our @ISA = qw(Exporter);
our @EXPORT_OK = qw(cache cache_clear cache_get cache_remove cache_set);


# By default use the Null backend
my $backend = new Pinwheel::Cache::Null;



sub cache_clear
{
    return $backend->clear();
}

sub cache_get
{
    my ($key) = @_;
    return $backend->get($key);
}

sub cache_remove
{
    my ($key, $time) = @_;
    return $backend->remove($key, $time);
}

sub cache_set
{
    my ($key, $value, $expires) = @_;
    return $backend->set($key, $value, $expires);
}

sub cache
{
    my $valuefn = pop @_;
    my ($key, $expires) = @_;
    my ($value);

    $value = $backend->get($key);
    if (!defined($value)) {
        $value = $valuefn->();
        $expires = $expires->($value) if ref($expires) eq 'CODE';
        $backend->set($key, $value, $expires);
    }
    return $value;
}

sub set_backend
{
    my ($b) = @_;
    $b = new Pinwheel::Cache::Null unless defined($b);
    $backend = $b;
}


1;

__DATA__