File Coverage

blib/lib/Minilla/CLI/Dist.pm

Criterion	Covered	Total	%
statement	24	38	63.1
branch	0	4	0.0
condition			n/a
subroutine	8	9	88.8
pod	0	1	0.0
total	32	52	61.5

package Minilla::CLI::Dist;
use strict;
use warnings;
use utf8;

use File::Spec::Functions qw(catfile);
use File::Basename qw(basename);
use File::Copy qw(copy);

use Minilla::Project;
use Minilla::Util qw(check_git parse_options);

sub run {
    my ($self, @args) = @_;

    my $test = 1;

    check_git;

    parse_options(
        \@args,
        'test!' => \$test,
    );

    my $project = Minilla::Project->new();
    unless ($project->validate()) {
        return;
    }
    my $work_dir = $project->work_dir;
    if ($test) {
        local $ENV{RELEASE_TESTING} = 1;
        $work_dir->dist_test();
    }
    my $tar = $work_dir->dist();
    my $dst = catfile($project->dir, basename($tar));
    copy($tar, $dst);
}

1;
__END__