File Coverage

blib/lib/CGI/Application/Plugin/Cache/File.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package CGI::Application::Plugin::Cache::File;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

use Cache::File;

require Exporter;

@ISA       = qw(Exporter AutoLoader);
@EXPORT    = qw(cache_config cache);
@EXPORT_OK = qw();

$VERSION = '0.4';

sub cache {
    my $self = shift;
    return ($self->{__CACHE_FILE_OBJ} or die "No Cache::File object available - did you run cache_config()?\n");
}

sub cache_config {
    my $self = shift;
    return ($self->{__CACHE_FILE_OBJ} = Cache::File->new( @_ ) or die "There was a problem creating a Cache::File instance: $!\n");
}

1;

__END__