File Coverage

blib/lib/OpenPlugin/Cache/File.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	1	2	50.0
condition	2	6	33.3
subroutine	8	8	100.0
pod	0	4	0.0
total	39	48	81.2

package OpenPlugin::Cache::File;

# $Id: File.pm,v 1.15 2003/04/03 01:51:24 andreychek Exp $

use strict;
use OpenPlugin::Cache();
use base           qw( OpenPlugin::Cache );
use Cache::FileCache();

$OpenPlugin::Cache::File::VERSION = sprintf("%d.%02d", q$Revision: 1.15 $ =~ /(\d+)\.(\d+)/);

sub init {
    my ( $self, $args ) = @_;

    $self->state( 'cache', Cache::FileCache->new() );

    return $self;
}

sub fetch {
    my ( $self, $id ) = @_;

    $self->OP->log->info( "Retrieving ($id) from the cache." );

    return $self->state->{cache}->get( $id );

}

sub save {
    my ( $self, $data, $params ) = @_;

    return undef unless $data;

    $params->{id} ||= OpenPlugin::Utility->generate_rand_id();

    $params->{expires} ||= OpenPlugin::Utility->expire_calc(
                                $self->OP->config->{plugin}{cache}{expires} );

    $self->state->{cache}->set( $params->{id},
                                $data,
                                $params->{expires}
                              );

    $self->OP->log->info( "Saved ($params->{id}) to the cache." );

    return $params->{id};

}

sub delete {
    my ( $self, $id ) = @_;

    $self->OP->log->info( "Deleting ($id) from the cache." );

    return $self->state->{cache}->remove( $id );

}


1;

__END__