File Coverage

blib/lib/Ukigumo/Client/Executor/Perl.pm

Criterion	Covered	Total	%
statement	18	28	64.2
branch	0	14	0.0
condition			n/a
subroutine	6	7	85.7
pod	0	1	0.0
total	24	50	48.0

use strict;
use warnings;
use utf8;

package Ukigumo::Client::Executor::Perl;
use Config;
use Mouse;
use Ukigumo::Constants;

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

    if (-f 'Makefile.PL') {
        $c->tee("perl Makefile.PL")==0 or return STATUS_FAIL;
        $c->tee("$Config{make} test")==0 or return STATUS_FAIL;
        return STATUS_SUCCESS;
    } elsif (-f 'Build.PL') {
        $c->tee("perl Build.PL")==0 or return STATUS_FAIL;
        $c->tee($^O eq 'MSWin32' ? "Build test" : "./Build test")==0 or return STATUS_FAIL;
        return STATUS_SUCCESS;
    } else {
        $c->logger->warnf("There is no Makefile.PL or Build.PL");
        return STATUS_NA;
    }
}

1;

__END__