Branch Coverage

blib/lib/Parse/CPAN/Packages/Fast.pm
Criterion Covered Total %
branch 39 70 55.7


line true false branch
52 2 0 unless ($INC{'CPAN/MyConfig.pm'})
54 2 0 if (-r $home_myconfig)
59 2 0 if ($INC{'CPAN/MyConfig.pm'} and $CPAN::Config->{'keep_source_where'})
61 2 0 if (-r $packages_file and -s $packages_file)
68 0 0 if (-r $packages_file and -s $packages_file)
80 0 3 unless ($packages_file)
82 0 0 unless ($packages_file)
92 0 3 if (not $packages_file =~ /\.gz$/) { }
93 0 0 unless open $FH, "<", $packages_file
96 0 3 unless $FH = "IO::Uncompress::Gunzip"->new($packages_file)
101 3 17 if /^$/
119 0 1 unless exists $self->{'pkg_ver'}{$package_name}
135 0 0 unless exists $self->{'dist_to_pkgs'}{$distribution_name}
152 1 3 unless defined $distribution_name
155 6 87194 if ($candidate =~ m[^./../.*/\Q$distribution_name\E])
161 6 0 if ($d->dist eq $distribution_name)
166 0 3 unless @candidates
171 0 3 if ("CPAN::Version"->vlt($best_candidate_version, $this_version))
185 62 87136 unless defined $dist
186 82396 4740 if (not exists $latest_dist{$dist}) { }
189 2026 2714 if ("CPAN::Version"->vlt($latest_dist{$dist}->version, $d->version))
206 0 13 if @_ != 4
211 0 13 if Search::Dict::look($pwhfh, $skey, 0, 1) == -1
214 12 1 if (index($got, $skey) == 0)
223 1 0 if lc substr($got, 0, length $skey) gt lc $skey
224 0 0 if eof $pwhfh
229 0 13 if @_ != 3
231 0 13 unless -e $orig_packages_file
232 1 12 if (not -e $cache_file or -M $cache_file > -M $orig_packages_file)
233 0 1 unless my $ifh = "IO::Uncompress::Gunzip"->new($orig_packages_file)
237 0 1 unless my($tmpfh, $tmpfile) = File::Temp::tempfile("DIR", File::Basename::dirname($cache_file))
240 1 8 if /^$/
248 0 1 unless close $tmpfh
250 0 1 unless rename $tmpfile, $cache_file
253 0 13 unless open my $fh, $cache_file