Branch Coverage

blib/lib/Dist/Surveyor/MakeCpan.pm
Criterion Covered Total %
branch 16 48 33.3


line true false branch
34 0 1 unless my $gzwrite = &Compress::Zlib::gzopen("$survey_datadump_dir/_data_dump.perl.gz", 'wb')
60 0 2 if ($packages{$pkg} and $packages{$pkg} ne $line)
61 0 0 if $verbose
97 0 1 unless ($dp->{$token_pkg})
98 0 0 if (my $keypkg = $self->{'irregularities'}{$di->dist}) { }
110 0 0 unless $token_package{$b} <=> $token_package{$a}
144 1 0 if $mirror_status->{'success'}
146 0 1 if (not $mirror_status->{'success'}) { }
147 0 0 $mirror_status->{'status'} == 599 ? :
149 0 0 if (-f $destfile) { }
161 0 1 if $verbose
167 0 1 unless (keys %$mods_in_rel)
188 0 2 if (my $pvr = $self->{'pkg_ver_rel'}{$pkg})
190 0 0 if ($p_r_match_score < $pvr->{'p_r_match_score'})
201 1 0 exists $ri->{'url'} ? :
213 2 2 if not defined $p[$i] && defined $r[$i] or $p[$i] ne $r[$i]
226 1 0 unless -f $packages_file
228 0 0 unless my $gzread = &Compress::Zlib::gzopen($packages_file, 'rb')
236 0 0 if ($inheader)
237 0 0 unless $package =~ /\S/
253 0 1 unless my $gzwrite = &Compress::Zlib::gzopen($packages_file, 'wb')
280 0 1 unless $url =~ s[.* \b authors/id/ ][]x
288 0 2 unless defined $version
290 0 2 if $fw < length $module