| line |
true |
false |
branch |
|
17
|
1 |
0 |
$^O eq 'linux' ? : |
|
63
|
0 |
1 |
if $$self{'readonly'} |
|
82
|
0 |
6 |
if (@dests) |
|
87
|
0 |
30 |
ref $_key eq 'CODE' ? : |
|
109
|
30 |
0 |
if $$self{'backend'}->can('force_disconnect') |
|
112
|
30 |
0 |
unless ($res) |
|
128
|
0 |
0 |
if (@dests) |
|
156
|
0 |
6 |
if ($$opts{'on_failure'}) |
|
157
|
0 |
0 |
$current_dest ? : |
|
176
|
6 |
0 |
unless ($socket) |
|
177
|
0 |
6 |
unless sysseek $read_fh, 0, 0 |
|
182
|
0 |
0 |
if $$opts{'on_new_attempt'} |
|
185
|
0 |
0 |
unless $socket = 'IO::Socket::INET'->new('Timeout', 10, 'Proto', 'tcp', 'PeerPort', $uri->port, 'PeerHost', $uri->host) |
|
192
|
0 |
0 |
if $$opts{'on_connect'} |
|
195
|
0 |
0 |
if unpack('I', getsockopt($socket, 1, 7)) < 65536 |
|
196
|
0 |
0 |
unless setsockopt $socket, 6, 3, 1 |
|
197
|
0 |
0 |
unless syswrite($socket, $buf) == length $buf |
|
205
|
0 |
6 |
if ($socket) |
|
211
|
0 |
0 |
if ($c > 0) { } |
|
|
0 |
0 |
elsif ($c == -1 and $block_size > 1048576) { } |
|
227
|
0 |
0 |
if ($bytes_to_write < 0) |
|
232
|
0 |
6 |
if ($socket and $eof) { } |
|
|
1 |
5 |
elsif ($last_written_point == $available_to_read) { } |
|
233
|
0 |
0 |
unless setsockopt $socket, 6, 3, 0 |
|
234
|
0 |
0 |
unless shutdown $socket, 1 |
|
235
|
0 |
0 |
if $last_written_point > $eventual_length |
|
236
|
0 |
0 |
unless $last_written_point == $eventual_length |
|
248
|
0 |
0 |
unless (defined $buf) |
|
253
|
0 |
0 |
unless (close $socket) |
|
260
|
0 |
0 |
if ($top =~ m[HTTP/1.[01]\s+2\d\d]) { } |
|
263
|
0 |
0 |
if $$opts{'http_done'} |
|
267
|
0 |
0 |
if (not $checksum) { } |
|
|
0 |
0 |
elsif ($checksum and $create_close_timed_out) { } |
|
271
|
0 |
0 |
if $probe_length != $eventual_length |
|
285
|
0 |
0 |
if "MD5:$hex_checked" ne $checksum |
|
296
|
0 |
0 |
if (defined $last_error) |
|
316
|
0 |
0 |
if $$self{'backend'}->can('force_disconnect') |
|
322
|
0 |
0 |
if ($rv) { } |
|
|
0 |
0 |
elsif (not $create_close_timed_out and $checksum and tv_interval($ts_sent_create_close) >= $$self{'backend'}{'timeout'}) { } |
|
358
|
0 |
0 |
if (ref $fn) |
|
363
|
0 |
0 |
unless open my $fh, '<', $fn |
|
371
|
0 |
0 |
unless open my $checksum, '-|', 'md5sum', '-b', '--', $fn |
|
374
|
0 |
0 |
unless close $checksum |
|
376
|
0 |
0 |
unless $line =~ /^([0-9a-f]{32})/ |