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   4 use strict;
  1         1  
  1         35  
4 1     1   4 use warnings;
  1         1  
  1         21  
5 1     1   4 use Carp;
  1         1  
  1         76  
6 1     1   4 use Module::New::Meta;
  1         1  
  1         5  
7 1     1   51 use Module::New::Queue;
  1         2  
  1         142  
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__