File Coverage

inc/My/Module/Recommend/None.pm
Criterion Covered Total %
statement 19 20 95.0
branch n/a
condition n/a
subroutine 7 8 87.5
pod 1 1 100.0
total 27 29 93.1


line stmt bran cond sub pod time code
1             package My::Module::Recommend::None;
2              
3 1     1   17 use 5.008;
  1         4  
4              
5 1     1   6 use strict;
  1         2  
  1         47  
6 1     1   6 use warnings;
  1         2  
  1         47  
7              
8 1     1   25 use My::Module::Recommend::Any;
  1         3  
  1         86  
9             our @ISA = qw{ My::Module::Recommend::Any };
10              
11 1     1   7 use Carp;
  1         1  
  1         93  
12 1     1   35 use Exporter qw{ import };
  1         2  
  1         186  
13              
14             our $VERSION = '0.048';
15              
16             our @EXPORT_OK = qw{ __none };
17              
18             sub __none {
19 1     1   3 my ( @args ) = @_;
20 1         7 return __PACKAGE__->new( @args );
21             }
22              
23             sub check {
24 0     0 1   return;
25             }
26              
27             1;
28              
29             __END__