File Coverage

blib/lib/Autocache/Strategy.pm

Criterion	Covered	Total	%
statement	23	27	85.1
branch	2	2	100.0
condition			n/a
subroutine	5	9	55.5
pod	4	5	80.0
total	34	43	79.0

package Autocache::Strategy;

use Any::Moose;

use Autocache::Record;
use Autocache::Logger qw(get_logger);

#
# get REQ
#
sub get { return undef; }

#
# set REQ REC
#
sub set { return $_[2]; }

#
# delete KEY
#
# should we send the request all the way through here too?
#
sub delete { return undef; }

sub clear { return undef; }


#
# create REQ
#
#
# create a cache record by invoking the function to be cached
#
# this generates a basic cache record, strategies built on top of this
# should feel free to add their own data elements to the cache record
#
sub create
{
    my ($self,$req) = @_;
    get_logger()->debug( "create" );
    my $value;

    if( $req->context eq 'S' )
    {
        $value = $req->generator->( @{$req->args} );
    }
    else
    {
        my @value = $req->generator->( @{$req->args} );
        $value = \@value;
    }

    my $rec = Autocache::Record->new(
        name => $req->name,
        key => $req->key,
        value => $value,
    );

    return $rec;
}

no Any::Moose;
__PACKAGE__->meta->make_immutable;

1;

__END__