File Coverage

blib/lib/Module/CPANfile/Requirement.pm
Criterion Covered Total %
statement 8 11 72.7
branch n/a
condition 2 2 100.0
subroutine 4 6 66.6
pod 0 5 0.0
total 14 24 58.3


line stmt bran cond sub pod time code
1             package Module::CPANfile::Requirement;
2 6     6   25 use strict;
  6         9  
  6         1032  
3              
4             sub new {
5 31     31 0 82 my ($class, %args) = @_;
6              
7 31   100     91 $args{version} ||= 0;
8              
9             bless +{
10             name => delete $args{name},
11             version => delete $args{version},
12 31         184 options => \%args,
13             }, $class;
14             }
15              
16 0     0 0 0 sub name { $_[0]->{name} }
17 33     33 0 110 sub version { $_[0]->{version} }
18              
19 4     4 0 28 sub options { $_[0]->{options} }
20              
21             sub has_options {
22 0     0 0   keys %{$_[0]->{options}} > 0;
  0            
23             }
24              
25             1;