Branch Coverage

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


line true false branch
1398 0 0 unless my $key = $et->{'EncryptionKey'}
1399 0 0 unless my $format = $tagInfo->{'Writable'} || $tagInfo->{'Format'}
1400 0 0 unless $formatMinMax{$format}
1403 0 0 @salt > 1 ? :
1406 0 0 if ($i == $newSalt)
1409 0 0 $salt =~ s/^-// ? :
1410 0 0 if @salt
1414 0 0 if ($sign > 0) { }
1415 0 0 if $a[$i] > $max
1417 0 0 if $a[$i] < $min
1438 0 0 unless ($tagTablePtr->{$tag})
1441 0 0 if $name
1460 0 0 unless ($pos + 8 <= $end and substr($$dataPt, $pos, 4) eq "DOFS")
1465 0 0 if ($ver == 3)
1466 0 0 unless ($pos + 18 <= $end and &Get32u($dataPt, $pos + 12) == $dirInfo->{'DirLen'})
1475 0 0 if $pos + 2 > $end
1478 0 0 if $pos + $n + 2 > $end
1482 0 0 if $pos + $len > $end
1483 0 0 if ($len == 4) { }
1492 0 0 if $i < $num
1505 0 0 unless $pos + 4 < $len
1510 0 0 unless $buff =~ s/^([^\0])\0\0\0/$1\000$1\000/s
1512 0 0 if ($et->{'HTML_DUMP'})
1547 0 26 unless ($raf)
1551 0 26 unless $raf->Seek(-6 - $offset, 2) and $raf->Read($buff, 6) == 6 and $buff eq 'QDIOBS' || $buff eq "\000\000SEFT"
1554 26 0 if $buff eq "QDIOBS"
1562 0 52 unless $raf->Seek($blockEnd - 8, 0) and $raf->Read($buff, 8) == 8
1564 0 52 unless $type =~ /^\w+$/
1566 0 52 unless $len < 65536 and $len >= 4 and $len + 8 < $blockEnd
1567 0 52 unless $raf->Seek(-8 - $len, 1) and $raf->Read($buff, $len) == $len
1569 26 26 unless ($type eq "SEFT")
1570 19 7 unless $outfile and $type eq "QDIO"
1579 7 0 if ($len == 20) { }
1587 0 26 unless $buff =~ /^SEFH/ and $len >= 12
1591 0 26 if 12 + 12 * $count > $len
1600 26 26 if $firstBlock < $noff
1605 0 0 if ($verbose || $et->{'HTML_DUMP'} and not $outfile and $dirInfo->{'RAF'})
1607 0 0 if $et->{'HTML_DUMP'}
1616 0 52 if $noff > $dirPos or $size > $noff or $size < 8
1617 0 52 if $firstBlock < $noff
1618 14 38 if ($outfile)
1619 7 7 unless $type == 256 and not $audioNOff
1621 0 7 unless $raf->Seek($dirPos - $noff, 0) and $raf->Read($buf2, 8) == 8
1629 17 21 unless ($tagTablePtr->{$tag})
1630 16 1 unless $unknown or $verbose
1639 1 21 unless ($$tagTablePtr{"$tag-name"})
1647 0 22 unless $raf->Seek($dirPos - $noff, 0) and $raf->Read($buf2, $size) == $size
1651 0 22 if $len + 8 > $size
1666 7 19 if ($outfile)
1667 0 7 unless $raf->Seek($dataPos, 0) and $raf->Read($buff, $dirLen) == $dirLen
1669 7 0 if ($offsetPos and $audioNOff)
1677 7 0 unless $fixup
1681 0 7 if $verbose
1682 0 7 unless &Write($dirInfo->{'OutFile'}, $buff)
1702 0 76 if $et->{'PREVIEW_INFO'}