File Coverage

blib/lib/Module/CPANfile/Prereq.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 0 7 0.0
total 24 31 77.4


line stmt bran cond sub pod time code
1             package Module::CPANfile::Prereq;
2 6     6   26 use strict;
  6         8  
  6         1029  
3              
4             sub new {
5 31     31 0 80 my($class, %options) = @_;
6 31         95 bless \%options, $class;
7             }
8              
9 39     39 0 176 sub feature { $_[0]->{feature} }
10 33     33 0 112 sub phase { $_[0]->{phase} }
11 33     33 0 92 sub type { $_[0]->{type} }
12 37     37 0 164 sub module { $_[0]->{module} }
13 37     37 0 129 sub requirement { $_[0]->{requirement} }
14              
15             sub match_feature {
16 39     39 0 49 my($self, $identifier) = @_;
17 6     6   41 no warnings 'uninitialized';
  6         11  
  6         371  
18 39         69 $self->feature eq $identifier;
19             }
20              
21             1;