Branch Coverage

blib/lib/Image/ExifTool/FujiFilm.pm
Criterion Covered Total %
branch 42 90 46.6


line true false branch
1454 0 0 if $pos + 8 > $end
1457 0 0 if $len == 0 or $off > $end or $off + $len > $end or $len < 62
1465 0 0 if $p < $dirStart or $p + $n > $end
1475 0 0 if $p < $dirStart or $p + $n > $end
1504 0 6 unless $raf->Seek($offset, 0)
1506 0 6 unless $raf->Read($buff, 4)
1508 0 6 unless $entries < 256
1509 0 6 if $et->Options("Verbose")
1513 0 792 unless $raf->Read($buff, 4)
1517 0 792 unless $raf->Read($vbuf, $len)
1519 102 690 if ($tagInfo and $tagInfo->{'Format'}) { }
234 456 elsif ($len == 4) { }
1521 0 102 unless defined $val
1551 0 2 unless $raf->Read($hdr, 148) == 148
1552 0 2 unless $hdr =~ /^FUJIFILM/
1554 0 0 unless $ver =~ /^\d{4}$/ or $testedRAF{$ver}
1559 0 2 if ($jpos > 148 or $jpos < 104 or $jpos & 3)
1569 0 2 unless ($raf->Seek($jpos, 0) and $raf->Read($jpeg, $jlen) == $jlen)
1584 0 2 unless ($success and $outJpeg)
1588 0 2 if $success < 0
1601 2 0 if ($oldPadLen)
1602 0 2 if ($oldPadLen > 1000000 or $oldPadLen < 0 or not $raf->Seek($jpos + $jlen, 0) or $raf->Read($buff, $oldPadLen) != $oldPadLen)
1611 0 2 if ($buff =~ /[^\0]/)
1612 0 0 if $et->Error("Non-null bytes found in padding", 2)
1619 0 8 if $offset >= $jpos
1621 0 8 unless $oldPtr
1626 0 2 unless &Write($outfile, substr($hdr, 0, $jpos))
1628 0 2 unless &Write($outfile, $outJpeg, $pad)
1630 0 2 unless ($raf->Seek($nextPtr, 0))
1635 0 2 unless &Write($outfile, $buff)
1637 0 2 $err ? :
1650 0 3 unless $raf->Read($buff, 92) == 92
1651 0 3 unless $buff =~ /^FUJIFILM/
1653 0 3 if $jpos & 32768
1654 0 3 unless $raf->Seek($jpos, 0)
1655 0 3 unless $raf->Read($jpeg, $jlen) == $jlen
1668 3 0 if $rtnVal
1673 0 12 if $offset >= $jpos
1674 0 12 unless ($raf->Seek($offset, 0) and $raf->Read($buff, 8))
1679 0 12 unless $start
1680 6 6 if ($offset == 100 or $offset == 128) { }
1689 6 0 unless ($et->ProcessTIFF(\%dirInfo, $tagTablePtr, \&Image::ExifTool::ProcessTIFF))
1691 0 6 if $et->{'ImageDataMD5'} and $raf->Seek($start, 0)
1703 0 6 unless $et->ProcessDirectory(\%dirInfo, $tagTablePtr)
1708 0 3 if $warn