File Coverage

blib/lib/Data/Remember/YAML.pm

Criterion	Covered	Total	%
statement	28	30	93.3
branch	2	4	50.0
condition	4	6	66.6
subroutine	8	8	100.0
pod	3	3	100.0
total	45	51	88.2

use strict;
use warnings;

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

use Carp;
use YAML::Syck ();


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

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

    my $brain;
    if (-f $args{file}) {
        $brain = YAML::Syck::LoadFile($args{file});
    }
    else {
        carp qq{Empty brain, "$args{file}" is not a file.};
        $brain = {};
    }

    bless {
        brain => $brain,
        file  => $args{file},
    }, $class;
}


sub load {
    my $self = shift;
    my $file = shift || $self->{file};

    $self->{brain} = YAML::Syck::LoadFile($file);
}


sub dump {
    my $self = shift;
    my $file = shift || $self->{file};

    YAML::Syck::DumpFile($file, $self->{brain});
}


1;

__END__