Branch Coverage

/root/.cpan/build/File-RsyncP-0.76-0/blib/lib/File/RsyncP/FileIO.pm
Criterion Covered Total %
branch 0 172 0.0


line true false branch
77 0 0 if defined $value
99 0 0 if defined $value
107 0 0 if (defined $value)
128 0 0 unless defined $fio->{'localDir'} or defined $fio->{'remoteDir'}
129 0 0 if (substr($name, 0, length $fio->{'remoteDir'}) eq $fio->{'remoteDir'})
145 0 0 if defined $fio->{'fh'}
146 0 0 if not -f $localName or -l $localName
147 0 0 unless (open F, $localName)
151 0 0 if ($needMD4) { }
169 0 0 unless defined $fio->{'fh'}
170 0 0 if (sysread($fio->{'fh'}, $fileData, $blockSize * $num) <= 0)
173 0 0 if defined $fio->{'csumDigest'}
178 0 0 if $fio->{'logLevel'} >= 10
187 0 0 unless defined $fio->{'fh'}
191 0 0 if (defined $fio->{'csumDigest'})
198 0 0 if defined $fio->{'csumDigest'}
208 0 0 if defined $fio->{'fh'}
209 0 0 if not -f $localName or -l $localName
210 0 0 unless (open F, $localName)
223 0 0 unless defined $fio->{'fh'}
224 0 0 if (sysread($fio->{'fh'}, $fileData, $num) <= 0)
234 0 0 unless defined $fio->{'fh'}
260 0 0 unless @s
281 0 0 if $placeHolder
293 0 0 unless defined $f->{'atime'}
294 0 0 if (($f->{'mode'} & 18446744073709490175) != ($a->{'mode'} & 18446744073709490175) and not chmod($f->{'mode'} & 18446744073709490175, $lName))
299 0 0 if ($f->{'uid'} != $a->{'uid'} || $f->{'gid'} != $a->{'gid'} and not chown($f->{'uid'}, $f->{'gid'}, $lName))
304 0 0 if ($f->{'mtime'} != $a->{'mtime'} || $f->{'atime'} != $a->{'atime'} and not utime($f->{'atime'}, $f->{'mtime'}, $lName))
327 0 0 if -d $localDir
329 0 0 if -d $localDir
347 0 0 if (($f->{'mode'} & 61440) == 8192) { }
0 0 elsif (($f->{'mode'} & 61440) == 24576) { }
0 0 elsif (($f->{'mode'} & 61440) == 40960) { }
0 0 elsif (($f->{'mode'} & 61440) == 4096) { }
360 0 0 unless (symlink $f->{'link'}, $localPath)
364 0 0 if (system "mknod $localPath p")
389 0 0 unless $end
392 0 0 if -e $localPath
402 0 0 unless -e $localPath or -l $localPath
403 0 0 if (-d _) { }
429 0 0 $cnt > 0 ? :
0 0 if ($fio->{'rxFile'}{'size'} != ($cnt > 0 ? ($cnt - 1) * $size + $remainder : 0))
435 0 0 if $fio->{'logLevel'} >= 5
452 0 0 if (defined $blk)
453 0 0 if (defined $fio->{'rxMatchBlk'} and $fio->{'rxMatchNext'} == $blk)
464 0 0 if $fio->{'logLevel'} >= 8
465 0 0 unless (defined $fio->{'rxOutFd'})
469 0 0 if ($fio->{'rxMatchNext'} == $fio->{'rxBlkCnt'} and not defined $blk and not defined $newData)
484 0 0 unless -e $rxTmpFile
486 0 0 unless (open F, ">$rxTmpFile")
491 0 0 if $fio->{'logLevel'} >= 10
498 0 0 if (defined $fio->{'rxMatchBlk'} and $fio->{'rxMatchBlk'} != $fio->{'rxMatchNext'})
503 0 0 unless (defined $fio->{'rxInFd'})
504 0 0 if (open F, "$fio->{'rxFile'}{'localName'}") { }
514 0 0 if $fio->{'logLevel'} >= 10
516 0 0 unless (sysseek $fio->{'rxInFd'}, $seekPosn, 0)
524 0 0 if $thisCnt > 512
525 0 0 if ($fio->{'rxMatchBlk'} + $i + $thisCnt == $fio->{'rxBlkCnt'}) { }
530 0 0 if (sysread($fio->{'rxInFd'}, $data, $len) != $len)
535 0 0 if (syswrite($fio->{'rxOutFd'}, $data) != $len)
544 0 0 if (defined $blk)
551 0 0 if (defined $newData)
557 0 0 if $fio->{'logLevel'} >= 10
558 0 0 if (syswrite($fio->{'rxOutFd'}, $newData) != $len)
576 0 0 unless (defined $fio->{'rxDigest'})
584 0 0 if (open F, $fio->{'rxFile'}{'localName'}) { }
594 0 0 if $fio->{'logLevel'} >= 5
596 0 0 if defined $fio->{'rxInFd'}
597 0 0 if defined $fio->{'rxOutFd'}
599 0 0 if ($fio->{'logLevel'} >= 3)
604 0 0 if ($md4 eq $newDigest) { }
608 0 0 unless (defined $fio->{'rxOutFd'})
610 0 0 if $fio->{'logLevel'} >= 5
619 0 0 if (-e $fio->{'rxFile'}{'localName'})
622 0 0 unless -e $oldFile
625 0 0 if $fio->{'logLevel'} >= 5
626 0 0 unless (rename $fio->{'rxFile'}{'localName'}, $oldFile)
633 0 0 unless (rename $fio->{'rxTmpFile'}, $fio->{'rxFile'}{'localName'})
637 0 0 if (not rename($oldFile, $fio->{'rxFile'}{'localName'})) { }
646 0 0 if (defined $oldFile and CORE::unlink($oldFile) != 1)
652 0 0 if $fio->{'logLevel'} >= 1
653 0 0 if defined $fio->{'rxTmpFile'}
668 0 0 if (-l $name) { }
677 0 0 if ($fio->{'preserve_hard_links'} and ($s[2] & 61440) == 32768 and $fio->{'protocol_version'} < 27 || $s[3] > 1)
686 0 0 if $fio->{'logLevel'} >= 3
736 0 0 if $str eq ''