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   34 use 5.008;
  2         8  
4              
5 2     2   9 use strict;
  2         5  
  2         41  
6 2     2   27 use warnings;
  2         4  
  2         83  
7              
8 2     2   9 use My::Module::Recommend::Any;
  2         3  
  2         139  
9             our @ISA = qw{ My::Module::Recommend::Any };
10              
11 2     2   11 use Carp;
  2         4  
  2         119  
12 2     2   14 use Exporter qw{ import };
  2         12  
  2         412  
13              
14             our $VERSION = '0.057';
15              
16             our @EXPORT_OK = qw{ __all };
17              
18             sub __all {
19 4     4   12 my ( @args ) = @_;
20 4         40 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__