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   13 use 5.008;
  1         2  
4              
5 1     1   3 use strict;
  1         1  
  1         17  
6 1     1   3 use warnings;
  1         1  
  1         47  
7              
8 1     1   3 use My::Module::Recommend::Any;
  1         1  
  1         43  
9             our @ISA = qw{ My::Module::Recommend::Any };
10              
11 1     1   3 use Carp;
  1         1  
  1         72  
12 1     1   4 use Exporter qw{ import };
  1         1  
  1         98  
13              
14             our $VERSION = '0.048_01';
15              
16             our @EXPORT_OK = qw{ __none };
17              
18             sub __none {
19 1     1   15 my ( @args ) = @_;
20 1         4 return __PACKAGE__->new( @args );
21             }
22              
23             sub check {
24 0     0 1   return;
25             }
26              
27             1;
28              
29             __END__