File Coverage

blib/lib/Data/Remember/DBM.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch	1	2	50.0
condition			n/a
subroutine	6	7	85.7
pod	2	2	100.0
total	28	32	87.5

use strict;
use warnings;

package Data::Remember::DBM;
{
  $Data::Remember::DBM::VERSION = '0.140490';
}
use base qw/ Data::Remember::Memory /;
# ABSTRACT: a long-term memory brain plugin for Data::Remember

use Carp;
use DBM::Deep;


sub new {
    my $class = shift;
    my %args  = @_;

    croak 'You must specify a "file" to store the data in.'
        unless $args{file};

    bless { brain => DBM::Deep->new( $args{file} ) }, $class;
}


sub dbm {
    my $self = shift;
    return $self->{brain};
}


1;

__END__