File Coverage

blib/lib/URI/Fetch/SimpleCache.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch	0	6	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	33	51.5

package URI::Fetch::SimpleCache;

use strict;
use warnings;
use base qw(URI::Fetch);
use Cache::FileCache;

our $VERSION = '0.02';
our $CACHE_ROOT = $ENV{'HOME'};
our $DEFAULT_EXPIRES;

sub fetch {
    my $class = shift;
    my($uri,%params) = @_;

    if ( ! $params{Cache} ) {
        if ( $params{'Cache_root'} ) {
            $CACHE_ROOT = delete $params{'Cache_root'};
        }
        if ( $params{'Cache_default_expires'} ) {
            $DEFAULT_EXPIRES = delete $params{'Cache_default_expires'};
        }
        $params{Cache} = Cache::FileCache->new({
            'cache_root'      => $CACHE_ROOT,
            'default_expires' => $DEFAULT_EXPIRES,
        });
    }

    $class->SUPER::fetch( ( $uri,%params ) );
}

1;
__END__