Branch Coverage

blib/lib/Image/ExifTool/Samsung.pm
Criterion Covered Total %
branch 39 112 34.8


line true false branch
1582 0 0 unless my $key = $et->{'EncryptionKey'}
1583 0 0 unless my $format = $tagInfo->{'Writable'} || $tagInfo->{'Format'}
1584 0 0 unless $formatMinMax{$format}
1587 0 0 @salt > 1 ? :
1590 0 0 if ($i == $newSalt)
1593 0 0 $salt =~ s/^-// ? :
1594 0 0 if @salt
1598 0 0 if ($sign > 0) { }
1599 0 0 if $a[$i] > $max
1601 0 0 if $a[$i] < $min
1622 0 0 unless ($tagTablePtr->{$tag})
1625 0 0 if $name
1644 0 0 unless ($pos + 8 <= $end and substr($$dataPt, $pos, 4) eq "DOFS")
1649 0 0 if ($ver == 3)
1650 0 0 unless ($pos + 18 <= $end and &Get32u($dataPt, $pos + 12) == $dirInfo->{'DirLen'})
1659 0 0 if $pos + 2 > $end
1662 0 0 if $pos + $n + 2 > $end
1666 0 0 if $pos + $len > $end
1667 0 0 if ($len == 4) { }
1676 0 0 if $i < $num
1689 0 0 unless $pos + 4 < $len
1694 0 0 unless $buff =~ s/^([^\0])\0\0\0/$1\000$1\000/s
1696 0 0 if ($et->{'HTML_DUMP'})
1731 0 26 unless ($raf)
1735 0 26 unless $raf->Seek(-6 - $offset, 2) and $raf->Read($buff, 6) == 6 and $buff eq 'QDIOBS' || $buff eq "\000\000SEFT"
1738 26 0 if $buff eq "QDIOBS"
1746 0 52 unless $raf->Seek($blockEnd - 8, 0) and $raf->Read($buff, 8) == 8
1748 0 52 unless $type =~ /^\w+$/
1750 0 52 unless $len < 65536 and $len >= 4 and $len + 8 < $blockEnd
1751 0 52 unless $raf->Seek(-8 - $len, 1) and $raf->Read($buff, $len) == $len
1753 26 26 unless ($type eq "SEFT")
1754 19 7 unless $outfile and $type eq "QDIO"
1763 7 0 if ($len == 20) { }
1772 0 26 unless ($buff =~ /^SEFH/ and $len >= 12)
1774 0 0 unless $buff =~ /\0\0SEFT/g
1782 0 26 if 12 + 12 * $count > $len
1791 26 26 if $firstBlock < $noff
1796 0 0 if ($verbose || $et->{'HTML_DUMP'} and not $outfile and $dirInfo->{'RAF'})
1798 0 0 if $et->{'HTML_DUMP'}
1807 0 52 if $noff > $dirPos or $size > $noff or $size < 8
1808 0 52 if $firstBlock < $noff
1809 14 38 if ($outfile)
1810 7 7 unless $type == 256 and not $audioNOff
1812 0 7 unless $raf->Seek($dirPos - $noff, 0) and $raf->Read($buf2, 8) == 8
1818 0 38 unless $raf->Seek($dirPos - $noff, 0) and $raf->Read($buf2, $size) == $size
1822 0 38 if $len + 8 > $size
1825 17 21 unless ($tagTablePtr->{$tag})
1826 16 1 unless $unknown or $verbose
1835 1 21 unless ($$tagTablePtr{"$tag-name"})
1860 7 19 if ($outfile)
1861 0 7 unless $raf->Seek($dataPos, 0) and $raf->Read($buff, $dirLen) == $dirLen
1863 7 0 if ($offsetPos and $audioNOff)
1871 7 0 unless $fixup
1875 0 7 if $verbose
1876 0 7 unless &Write($dirInfo->{'OutFile'}, $buff)
1896 0 76 if $et->{'PREVIEW_INFO'}