Branch Coverage

blib/lib/App/MBUtiny/Storage/HTTP.pm
Criterion Covered Total %
branch 1 122 0.8


line true false branch
140 0 0 value($http_node, 'fixup') ? :
148 0 1 if $usehttp
161 0 0 if $self->storage_status($sign) <= 0
173 0 0 $attr && isnt_void($attr) ? :
175 0 0 unless ($client->status)
182 0 0 unless ($client->check)
197 0 0 if $self->storage_status('HTTP') <= 0
214 0 0 $attr && isnt_void($attr) ? :
217 0 0 unless ($client->status)
223 0 0 if ($ostat)
224 0 0 unless ($client->upload('file', $file, 'name', $name))
231 0 0 if ($ostat)
233 0 0 unless ($client->status)
238 0 0 unless ($src_size == $dst_size)
245 0 0 if $storage->{'fixup'}
246 0 0 unless $ostat
249 0 0 unless $status
254 0 0 if ($self->storage_status('HTTP') <= 0)
270 0 0 $attr && isnt_void($attr) ? :
273 0 0 unless ($client->status)
279 0 0 unless ($client->download('file', $file, 'name', $name))
284 0 0 if (my $res = $client->res)
288 0 0 unless ($src_size == $dst_size)
294 0 0 unless ($self->validate($file))
310 0 0 if $self->storage_status('HTTP') <= 0
323 0 0 $attr && isnt_void($attr) ? :
325 0 0 unless ($client->status)
332 0 0 if ($ostat)
334 0 0 unless ($client->status)
341 0 0 if ($ostat and grep {$_ eq $name;} @ls)
342 0 0 unless ($client->remove('name', $name))
349 0 0 if $storage->{'fixup'}
350 0 0 unless $ostat
352 0 0 unless $status
357 0 0 if $self->storage_status('HTTP') <= 0
371 0 0 $attr && isnt_void($attr) ? :
373 0 0 unless ($client->status)
379 0 0 if ($ostat)
381 0 0 if ($client->status) { }
382 0 0 if defined $_
430 0 0 wantarray ? :
437 0 0 $args{'path'} ? :
441 0 0 if (-e $file and -f $file)
443 0 0 unless $size
447 0 0 unless ($fh)
448 0 0 unless (open $fh, '<', $file)
455 0 0 if (my $n = read($fh, $buf, 1024))
473 0 0 unless ($name)
477 0 0 $args{'path'} ? :
479 0 0 unless $self->status
482 0 0 if ($res)
495 0 0 $args{'path'} ? :
503 0 0 unless (defined $expected_length)
505 0 0 unless (open $fh, '>', $file)
509 0 0 unless (flock $fh, 2)
515 0 0 if ($expected_length and $fh)
524 0 0 if $fh
531 0 0 unless ($name)
535 0 0 $args{'path'} ? :
546 0 0 if $path
547 0 0 if $host