File Coverage

blib/lib/Carmel/CPANfile.pm

Criterion	Covered	Total	%
statement	12	25	48.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	4	7	57.1
pod	0	3	0.0
total	16	42	38.1

package Carmel::CPANfile;
use strict;
use warnings;
use Module::CPANfile;
use Class::Tiny qw( path );

sub load {
    my $self = shift;

    $self->path->exists
      or die "Can't locate 'cpanfile' to load module list.\n";

    Module::CPANfile->load($self->path);
}

sub snapshot_path {
    my $self = shift;
    Path::Tiny->new($self->path . ".snapshot");
}

sub load_snapshot {
    my $self = shift;

    my $path = $self->snapshot_path;
    if ($path && $path->exists) {
        require Carton::Snapshot;
        my $snapshot = Carton::Snapshot->new(path => $path);
        $snapshot->load;
        return $snapshot;
    }

    return;
}

1;