| line |
true |
false |
branch |
|
51
|
0 |
0 |
if $arg and ref $self |
|
54
|
0 |
0 |
unless -f $file |
|
57
|
0 |
0 |
unless ref $self or $arg |
|
60
|
0 |
0 |
if $arg |
|
62
|
0 |
0 |
if ($arg->{'dry_run'}) { } |
|
72
|
0 |
0 |
$retries > 0 ? : |
|
75
|
0 |
0 |
if eval {
do {
$self->_upload($file);
1
}
} |
|
76
|
0 |
0 |
if $@ =~ /request failed with error code 5/ |
|
78
|
0 |
0 |
if ($try <= $tries) |
|
80
|
0 |
0 |
if ($tries and $try < $tries) |
|
84
|
0 |
0 |
if $self->{'retry_delay'} |
|
86
|
0 |
0 |
if ($try >= $tries) |
|
101
|
0 |
0 |
unless +(shift())->{'upload_uri'} |
|
102
|
0 |
0 |
unless +(shift())->{'target'} |
|
114
|
0 |
0 |
if $self->{'http_proxy'} |
|
121
|
0 |
0 |
$self->{'subdir'} ? : |
|
124
|
0 |
0 |
if ($file =~ m[^https?://]) { } |
|
152
|
0 |
0 |
$ENV{'CPAN_UPLOADER_DISPLAY_HTTP_BODY'} ? : |
|
166
|
0 |
0 |
unless (defined $response) |
|
170
|
0 |
0 |
if ($response->is_error) { } |
|
171
|
0 |
0 |
if ($response->code == 404) { } |
|
228
|
0 |
2 |
unless open my $pauserc, "<", $filename |
|
233
|
0 |
6 |
if (/BEGIN PGP MESSAGE/) |
|
238
|
1 |
5 |
unless $_ and not $_ =~ /^\s*#/ |
|
240
|
4 |
1 |
if (my($k, $v) = /^\s*(\w+)\s+(.+)$/) { } |
|
241
|
1 |
3 |
if $conf{$k} |
|
254
|
0 |
0 |
unless (defined $filename) |
|
257
|
0 |
0 |
$^O eq 'MSWin32' && "$]" < 5.016 ? : |
|
260
|
0 |
0 |
unless -e $filename and -r _ |
|
264
|
0 |
0 |
if (eval {
do {
require Config::Identity
}
}) { } |
|
266
|
0 |
0 |
unless $conf{'user'} |
|
274
|
0 |
0 |
if defined $conf{'user'} and $conf{'user'} =~ /\s$/ |
|
276
|
0 |
0 |
if defined $conf{'user'} and $conf{'user'} =~ /\s/ |
|
305
|
0 |
0 |
unless $self->{'debug'} |