| line |
true |
false |
branch |
|
28
|
0 |
1 |
unless $self->mailrc |
|
29
|
0 |
1 |
unless $self->dists_and_mods |
|
40
|
0 |
1 |
if ($ignore and ref $ignore eq "ARRAY") |
|
44
|
0 |
105 |
if ($pat and $cpan_file =~ /^($pat)/) |
|
50
|
0 |
105 |
unless $d->maturity eq "released" |
|
55
|
0 |
105 |
unless ($dist_name and $dist_vers and $cpanid) |
|
62
|
0 |
105 |
if ($pat and $dist_name =~ /^($pat)$/) |
|
67
|
96 |
9 |
if (not $dists->{$dist_name} or vcmp($dist_vers, $dists->{$dist_name}{'dist_vers'}) > 0) |
|
81
|
62 |
544 |
unless ($dist_name and $dists->{$dist_name}) |
|
105
|
0 |
1 |
$self->{'keep_source_where'} ? : |
|
106
|
0 |
1 |
unless check_file("modules/02packages.details.txt.gz", $packages) |
|
111
|
1 |
8 |
if $shift =~ /^\s*$/ |
|
116
|
225 |
381 |
if $mod_vers eq "undef" |
|
129
|
0 |
1 |
$self->{'keep_source_where'} ? : |
|
130
|
0 |
1 |
unless check_file("authors/01mailrc.txt.gz", $mailrc) |
|
139
|
0 |
4 |
unless $cpanid |
|
141
|
4 |
0 |
if ($authinfo =~ /([^<]+)\<(.*)\>/) { } |
|
157
|
0 |
2 |
unless ($file) |
|
161
|
0 |
2 |
unless (-f $file) |
|
171
|
0 |
2 |
unless my $gz = &gzopen($file, "rb") |
|
176
|
0 |
2 |
if $CPAN::SQLite::Info::gzerrno != Z_STREAM_END() |
|
184
|
0 |
8 |
unless $string |