File Coverage

blib/lib/VCS/Lite/Store/YAML.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package VCS::Lite::Store::YAML;

use strict;
use warnings;

our $VERSION = '0.12';

#----------------------------------------------------------------------------

use base qw(VCS::Lite::Store);
use YAML qw(LoadFile DumpFile);

#----------------------------------------------------------------------------

sub load {
    my ($self,$path) = @_;

    LoadFile($path);
}

sub save {
    my ($self,$obj) = @_;
    my $storep = $self->store_path($obj->path);

    DumpFile($storep, $obj);
}

sub repos_name {
    my ($self,$ele,$ext) = @_;

    $ext ||= 'yml';
    $ele ? "${ele}_$ext" : "VCSControl.$ext";
}

1;

__END__