Branch Coverage

blib/lib/Image/ExifTool/Samsung.pm
Criterion Covered Total %
branch 39 110 35.4


line true false branch
1396 0 0 unless my $key = $et->{'EncryptionKey'}
1397 0 0 unless my $format = $tagInfo->{'Writable'} || $tagInfo->{'Format'}
1398 0 0 unless $formatMinMax{$format}
1401 0 0 @salt > 1 ? :
1404 0 0 if ($i == $newSalt)
1407 0 0 $salt =~ s/^-// ? :
1408 0 0 if @salt
1412 0 0 if ($sign > 0) { }
1413 0 0 if $a[$i] > $max
1415 0 0 if $a[$i] < $min
1436 0 0 unless ($tagTablePtr->{$tag})
1439 0 0 if $name
1458 0 0 unless ($pos + 8 <= $end and substr($$dataPt, $pos, 4) eq "DOFS")
1463 0 0 if ($ver == 3)
1464 0 0 unless ($pos + 18 <= $end and &Get32u($dataPt, $pos + 12) == $dirInfo->{'DirLen'})
1473 0 0 if $pos + 2 > $end
1476 0 0 if $pos + $n + 2 > $end
1480 0 0 if $pos + $len > $end
1481 0 0 if ($len == 4) { }
1490 0 0 if $i < $num
1503 0 0 unless $pos + 4 < $len
1508 0 0 unless $buff =~ s/^([^\0])\0\0\0/$1\000$1\000/s
1510 0 0 if ($et->{'HTML_DUMP'})
1545 0 26 unless ($raf)
1549 0 26 unless $raf->Seek(-6 - $offset, 2) and $raf->Read($buff, 6) == 6 and $buff eq 'QDIOBS' || $buff eq "\000\000SEFT"
1552 26 0 if $buff eq "QDIOBS"
1560 0 52 unless $raf->Seek($blockEnd - 8, 0) and $raf->Read($buff, 8) == 8
1562 0 52 unless $type =~ /^\w+$/
1564 0 52 unless $len < 65536 and $len >= 4 and $len + 8 < $blockEnd
1565 0 52 unless $raf->Seek(-8 - $len, 1) and $raf->Read($buff, $len) == $len
1567 26 26 unless ($type eq "SEFT")
1568 19 7 unless $outfile and $type eq "QDIO"
1577 7 0 if ($len == 20) { }
1585 0 26 unless $buff =~ /^SEFH/ and $len >= 12
1589 0 26 if 12 + 12 * $count > $len
1598 26 26 if $firstBlock < $noff
1603 0 0 if ($verbose || $et->{'HTML_DUMP'} and not $outfile and $dirInfo->{'RAF'})
1605 0 0 if $et->{'HTML_DUMP'}
1614 0 52 if $noff > $dirPos or $size > $noff or $size < 8
1615 0 52 if $firstBlock < $noff
1616 14 38 if ($outfile)
1617 7 7 unless $type == 256 and not $audioNOff
1619 0 7 unless $raf->Seek($dirPos - $noff, 0) and $raf->Read($buf2, 8) == 8
1627 17 21 unless ($tagTablePtr->{$tag})
1628 16 1 unless $unknown or $verbose
1637 1 21 unless ($$tagTablePtr{"$tag-name"})
1645 0 22 unless $raf->Seek($dirPos - $noff, 0) and $raf->Read($buf2, $size) == $size
1649 0 22 if $len + 8 > $size
1664 7 19 if ($outfile)
1665 0 7 unless $raf->Seek($dataPos, 0) and $raf->Read($buff, $dirLen) == $dirLen
1667 7 0 if ($offsetPos and $audioNOff)
1675 7 0 unless $fixup
1679 0 7 if $verbose
1680 0 7 unless &Write($dirInfo->{'OutFile'}, $buff)
1700 0 70 if $et->{'PREVIEW_INFO'}