File Coverage

blib/lib/Brackup/DigestCache.pm

Criterion	Covered	Total	%
statement	17	21	80.9
branch			n/a
condition	2	5	40.0
subroutine	6	10	60.0
pod	0	8	0.0
total	25	44	56.8

package Brackup::DigestCache;
use strict;
use warnings;

sub new {
    my ($class, $root, $rconf) = @_;
    my $self = bless {}, $class;

    my $file = $rconf->value('digestdb_file') ||
              ($root->path . '/' . default_filename());
    my $type = $rconf->value('digestdb_type') || 'SQLite';

    my $dict_class = "Brackup::Dict::$type";
    eval "require $dict_class";
    $self->{dict} = $dict_class->new(
        table => "digest_cache",
        file => $file,
    );

    return $self;
}

sub default_filename { ".brackup-digest.db" };

# proxy through to underlying dictionary
sub get { shift->{dict}->get(@_) }
sub set { shift->{dict}->set(@_) }
sub each { shift->{dict}->each(@_) }
sub delete { shift->{dict}->delete(@_) }
sub count { shift->{dict}->count(@_) }
sub backing_file { shift->{dict}->backing_file(@_) }

1;

__END__