File Coverage

blib/lib/Minilla/CLI/Clean.pm

Criterion	Covered	Total	%
statement	21	30	70.0
branch	0	2	0.0
condition	0	3	0.0
subroutine	7	8	87.5
pod	0	1	0.0
total	28	44	63.6

package Minilla::CLI::Clean;
use strict;
use warnings;
use utf8;
use ExtUtils::MakeMaker qw(prompt);
use File::Path qw(rmtree);

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

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

    my $yes_opt = 0;
    parse_options(
        \@args,
        'y!' => \$yes_opt,
    );

    my $project = Minilla::Project->new();
    my @targets = grep { -e $_ } (
        glob(sprintf("%s-*", $project->dist_name)),
        'blib',
        'Build',
        'MYMETA.json',
        'MYMETA.yml',
        '_build_params',
        '_build',       # M::B
        'Makefile',
        'pm_to_blib',
    );
    print("Would remove $_\n") for (@targets);
    if ($yes_opt || prompt('Remove it?', 'y') =~ /y/i) {
        rmtree($_) for @targets;
    }
}

1;
__END__