Branch Coverage

blib/lib/MogileFS/Client/CallbackFile.pm
Criterion Covered Total %
branch 13 88 14.7


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})/