File Coverage

lib/Module/New/Command/Test.pm
Criterion Covered Total %
statement 15 23 65.2
branch 0 2 0.0
condition n/a
subroutine 5 7 71.4
pod n/a
total 20 32 62.5


line stmt bran cond sub pod time code
1             package Module::New::Command::Test;
2            
3 1     1   3 use strict;
  1         1  
  1         44  
4 1     1   4 use warnings;
  1         1  
  1         18  
5 1     1   2 use Carp;
  1         1  
  1         41  
6 1     1   3 use Module::New::Meta;
  1         1  
  1         4  
7 1     1   38 use Module::New::Queue;
  1         1  
  1         95  
8            
9             functions {
10             prove => sub () { Module::New::Queue->register(sub {
11 0     0     my ($self, @args) = @_;
12            
13 0           eval "require App::Prove";
14 0 0         unless ( $@ ) {
15 0           my $app = App::Prove->new;
16 0           $app->process_args(@args);
17 0           $app->run;
18             }
19             else {
20 0           exec( 'prove', @args );
21             }
22 0     0     })},
23             };
24            
25             1;
26            
27             __END__