File Coverage

blib/lib/Ukigumo/Client/Executor/Auto.pm
Criterion Covered Total %
statement 18 22 81.8
branch 0 2 0.0
condition n/a
subroutine 6 7 85.7
pod 0 1 0.0
total 24 32 75.0


line stmt bran cond sub pod time code
1 1     1   1004 use strict;
  1         2  
  1         41  
2 1     1   6 use warnings;
  1         2  
  1         25  
3 1     1   5 use utf8;
  1         1  
  1         7  
4              
5             package Ukigumo::Client::Executor::Auto;
6 1     1   446 use Ukigumo::Client::Executor::Perl;
  1         2  
  1         22  
7 1     1   536 use Ukigumo::Client::Executor::Prove;
  1         2  
  1         21  
8 1     1   5 use Ukigumo::Constants;
  1         1  
  1         137  
9              
10             sub run {
11 0     0 0   my $self = shift;
12 0           my $status = Ukigumo::Client::Executor::Perl->new()->run(@_);
13 0 0         return $status if $status ne STATUS_NA;
14 0           return Ukigumo::Client::Executor::Prove->new()->run(@_);
15             }
16              
17             1;