Branch Coverage

lib/CPANPLUS/Module/Checksums.pm
Criterion Covered Total %
branch 35 62 56.4


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)
93 0 16 if (defined $cpan_path)
95 0 0 if ($chk_pth ne $self->path)
107 15 1 if (defined $size) { }
108 0 15 unless (-s $self->status->fetch == $size)
120 16 0 unless (defined $sha)
129 0 0 unless my $fh = "FileHandle"->new($self->status->fetch)
137 0 0 $flag ? :
144 0 0 if $flag
163 0 24 $have_fetchdir ? :
164 0 24 unless my $file = $clone->fetch("ttl", $ttl, %hash)
179 0 18 unless my $fh = sub { ;}->($file)
184 18 90 if /^\$cksum = \{\s*$/
186 18 72 if /^$header\s*$/
195 69 312 if (/^\s*'([^']+)' => \{\s*$/) { }
173 139 elsif (/^\s*'([^']+)' => '?([^'\n]+)'?,?\s*$/ and defined $dist) { }
87 52 elsif (/^\s*}[,;]?\s*$/) { }
18 34 elsif (/^__END__\s*$/) { }
223 15 1 unless $conf->get_conf("signature")
232 0 1 unless my $args = check($tmpl, \%hash)
234 0 1 unless my $fh = sub { ;}->($file)
239 1 34 if /^$header$/
242 0 1 unless ($signed)
246 0 0 unless $force
254 0 1 if (can_load("modules", {"Module::Signature", "0.06"}))