Branch Coverage

lib/CPANPLUS/Module/Checksums.pm
Criterion Covered Total %
branch 34 58 58.6


line true false branch
52 0 4 unless my $mod = shift()
56 4 0 if $file
74 0 16 unless check($tmpl, \%hash)
77 0 16 unless can_load('modules', {'Digest::SHA', '0.0'})
81 0 16 unless my $file = $self->_get_checksums_file('verbose', $verbose)
84 0 16 unless $self->_check_signature_for_checksum_file('file', $file)
88 0 16 unless my $href = $self->_parse_checksums_file('file', $file)
95 15 1 if (defined $size) { }
96 0 15 unless (-s $self->status->fetch == $size)
108 16 0 unless (defined $sha)
117 0 0 unless my $fh = 'FileHandle'->new($self->status->fetch)
125 0 0 $flag ? :
132 0 0 if $flag
151 0 24 $have_fetchdir ? :
152 0 24 unless my $file = $clone->fetch('ttl', $ttl, %hash)
167 0 18 unless my $fh = sub { ; } ->($file)
172 18 90 if /^\$cksum = \{\s*$/
174 18 72 if /^$header\s*$/
183 69 312 if (/^\s*'([^']+)' => \{\s*$/) { }
173 139 elsif (/^\s*'([^']+)' => '?([^'\n]+)'?,?\s*$/ and defined $dist) { }
87 52 elsif (/^\s*}[,;]?\s*$/) { }
18 34 elsif (/^__END__\s*$/) { }
211 15 1 unless $conf->get_conf('signature')
220 0 1 unless my $args = check($tmpl, \%hash)
222 0 1 unless my $fh = sub { ; } ->($file)
227 1 34 if /^$header$/
230 0 1 unless ($signed)
234 0 0 unless $force
242 0 1 if (can_load('modules', {'Module::Signature', '0.06'}))