line |
true |
false |
branch |
32
|
0 |
4 |
unless $id =~ /^[A-Z]/ |
73
|
0 |
0 |
unless (grep {$_->[2] eq $csf[1];} @dl) |
74
|
0 |
0 |
unless $silent |
78
|
0 |
0 |
unless (grep {$_->[2] eq $csf[2];} @dl) |
79
|
0 |
0 |
unless $silent |
83
|
0 |
0 |
if ($glob) |
84
|
0 |
0 |
if ($CPAN::META->has_inst('Text::Glob')) { } |
87
|
0 |
0 |
if $CPAN::DEBUG |
89
|
0 |
0 |
if (1 == @tmpdl and $tmpdl[0][0] == 0) { } |
95
|
0 |
0 |
if $CPAN::DEBUG |
100
|
0 |
0 |
unless ($silent >= 2) |
105
|
0 |
0 |
0 == $_->[0] ? : |
134
|
0 |
0 |
if $CPAN::DEBUG |
139
|
0 |
0 |
if (open $fh, $lc_want) |
141
|
0 |
0 |
unless $line =~ /PGP/ |
147
|
0 |
0 |
if (my(@stat) = stat $lc_want) |
151
|
0 |
0 |
if ($may_ftp) { } |
160
|
0 |
0 |
unless ($lc_file) |
170
|
0 |
0 |
if ($lc_file) { } |
188
|
0 |
0 |
if (open $fh, $lc_file) { } |
|
0 |
0 |
elsif ($may_ftp) { } |
195
|
0 |
0 |
if ($@) |
197
|
0 |
0 |
if $@ |
207
|
0 |
0 |
if (exists $cksum->{$f}{'isdir'}) { } |
208
|
0 |
0 |
if ($recursive) { } |