File Coverage

blib/lib/App/gimpgitbuild/Command/cleanbuild.pm

Criterion	Covered	Total	%
statement	20	28	71.4
branch			n/a
condition	0	2	0.0
subroutine	7	11	63.6
pod	4	4	100.0
total	31	45	68.8

package App::gimpgitbuild::Command::cleanbuild;
$App::gimpgitbuild::Command::cleanbuild::VERSION = '0.32.1';
use strict;
use warnings;
use autodie;
use 5.014;

use App::gimpgitbuild -command;

use App::gimpgitbuild::API::Worker ();

sub description
{
    return "clean the GIMP build checkouts";
}

sub abstract
{
    return shift->description();
}

sub opt_spec
{
    return ();


}

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

    my $worker = App::gimpgitbuild::API::Worker->new(
        { _mode => 'clean', _process_executor => 'perl', } );

    $worker->_run_the_mode_on_all_repositories();

    use Term::ANSIColor qw/ colored /;
    print colored( [ $ENV{HARNESS_SUMMARY_COLOR_SUCCESS} || 'bold green' ],
        "\n== Success ==\n\n" );
    return;
}

1;

__END__