File Coverage

inc/My/Module/Recommend/All.pm
Criterion Covered Total %
statement 19 25 76.0
branch n/a
condition n/a
subroutine 7 8 87.5
pod 1 1 100.0
total 27 34 79.4


line stmt bran cond sub pod time code
1             package My::Module::Recommend::All;
2              
3 2     2   42 use 5.008;
  2         8  
4              
5 2     2   13 use strict;
  2         5  
  2         97  
6 2     2   11 use warnings;
  2         3  
  2         104  
7              
8 2     2   13 use My::Module::Recommend::Any;
  2         4  
  2         183  
9             our @ISA = qw{ My::Module::Recommend::Any };
10              
11 2     2   14 use Carp;
  2         4  
  2         236  
12 2     2   15 use Exporter qw{ import };
  2         3  
  2         564  
13              
14             our $VERSION = '0.057_01';
15              
16             our @EXPORT_OK = qw{ __all };
17              
18             sub __all {
19 4     4   13 my ( @args ) = @_;
20 4         21 return __PACKAGE__->new( @args );
21             }
22              
23             sub check {
24 0     0 1   my ( $self ) = @_;
25 0           my @missing;
26 0           foreach my $m ( $self->__modules() ) {
27 0           push @missing, $self->module_is_ok( @{ $m } );
  0            
28             }
29 0           return @missing;
30             }
31              
32             1;
33              
34             __END__