| line |
true |
false |
branch |
|
46
|
0 |
0 |
unless ($$CPAN::Config{'wait_list'}) |
|
54
|
0 |
0 |
if $DEBUG |
|
55
|
0 |
0 |
if ($server =~ m[^wait://([^:]+)(?::(\d+))?]) |
|
58
|
0 |
0 |
unless $DEBUG and $DEBUG =~ /force proxy/ |
|
60
|
0 |
0 |
if $con |
|
65
|
0 |
0 |
unless ($con) |
|
66
|
0 |
0 |
unless $DEBUG and $DEBUG =~ /force proxy/ |
|
69
|
0 |
0 |
if ($$CPAN::Config{'http_proxy'}) { } |
|
73
|
0 |
0 |
if ($server =~ m[^wait://([^:]+)(?::(\d+))?]) |
|
79
|
0 |
0 |
if $con |
|
82
|
0 |
0 |
unless $con |
|
91
|
0 |
0 |
unless $con |
|
108
|
0 |
0 |
if (not $result = $con->search(@_)) { } |
|
125
|
0 |
0 |
if (@_ or not $hit) { } |
|
142
|
0 |
0 |
if (@_ or not $hit) |
|
149
|
0 |
0 |
$text ? : |
|
159
|
0 |
0 |
if system $^X, '-S', 'perldoc', $tmp and warn "Could not run '$^X -S perldoc ${tmp}': $?\n" and system $Config{'pager'}, $tmp and warn "Could not run '$Config{'pager'} ${tmp}': $?\n" |
|
171
|
0 |
0 |
if (@_) |
|
247
|
0 |
0 |
if ($cmd and $cmd =~ /(\w)$/) { } |
|
263
|
0 |
1 |
if -e $tmp |