File Coverage

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

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	3	3	100.0
total	34	34	100.0

package VCS::Lite::Store::Storable;

use strict;
use warnings;

our $VERSION = '0.11';

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

use base qw(VCS::Lite::Store);
use Storable qw(nstore);

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

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

    Storable::retrieve($path);
}

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

    nstore($obj, $storep);
}

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

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

1;

__END__