File Coverage

blib/lib/Catalyst/Plugin/Cache/BerkeleyDB.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package Catalyst::Plugin::Cache::BerkeleyDB;
use strict;
use base qw/Class::Data::Inheritable/;
use Cache::BerkeleyDB;

our $VERSION= '0.01';

sub setup {
    my $self = shift;

    my $params = $self->config->{cache} || {};
    $params->{cache_root} = delete $params->{storage} if $params->{storage};
    $params->{default_expires_in} = delete $params->{expires} if $params->{expires};
    $params->{namespace} ||= $self;

    __PACKAGE__->mk_classdata(cache => Cache::BerkeleyDB->new($params));

    $self->NEXT::setup(@_);
}

1;

__END__