Branch Coverage

blib/lib/Image/ExifTool/Sony.pm
Criterion Covered Total %
branch 15 244 6.1


line true false branch
10953 40660 12944 unless $a =~ /\./ and $b =~ /\./
11004 0 0 unless ($raf->Seek($hdOff, 0) and $raf->Read($buff, $hdLen) == $hdLen and $buff =~ /^\x55\x26\x11\x05\0/)
11008 0 0 unless ($et->{'TrailerStart'} and $raf->Seek($et->{'TrailerStart'}, 0) and $raf->Read($buff, 4096) and $buff =~ /\x55\x26\x11\x05\0/g and $pos = $et->{'TrailerStart'} + pos($buff) - 5 and $raf->Seek($pos, 0) and $raf->Read($buff, $hdLen) == $hdLen)
11017 0 0 if $et->Options("Validate") or $et->{'IsWriting'}
11037 0 0 if ($len >= 26)
11039 0 0 if ($count > 256)
11043 0 0 if ($count and $count < 256)
11045 0 0 if ($format >= 1 and $format <= 10)
11061 0 0 unless length $1 > 32
11063 0 0 unless $tagTablePtr->{$tag}
11067 0 0 unless $tag =~ /:$/ and $val =~ /\b$tag\s*([^\s;,:]+)/
11081 0 0 unless length $val == 90
11088 0 0 unless length $val == 110
11101 0 0 unless length $val == 8
11112 0 4 unless @a == 6
11146 0 0 if (@a == 2) { }
0 0 elsif (@a >= 6) { }
11152 0 0 if ($sf != 0 and $sa != 0 and $lf == 0 || $lf >= $sf and $la == 0 || $la >= $sa)
11154 0 0 if $lf != $sf and $lf != 0
11155 0 0 if $sa != $la and $la != 0
11159 0 0 if (defined $rtnVal) { }
11164 0 0 unless $bits or $feature->[1]{$bits}
11167 0 0 $feature->[2] ? :
0 0 $rtnVal ? :
11178 0 14 if $val =~ /Unknown \((.*)\)/i
11181 6 8 if ($features) { }
4 4 elsif ($sf) { }
11185 0 4 if $lf == $sf
11186 0 4 if $la == $sa
11197 4 146 if $val =~ /\b$name\b/i
11210 0 0 unless $et
11215 0 0 $isWriting ? :
11216 0 0 if $dirLen < 4
11221 0 0 if ($dirLen < 4 + $num * 4)
11225 0 0 if ($num > 50)
11230 0 0 unless $isWriting
11232 0 0 if ($len > $dirLen)
11243 0 0 if ($offset[-1] > $len and $offset[-1] <= $dirLen)
11256 0 0 if $size > $len - $offset
11262 0 0 unless defined $blockSize{$offset}
11265 0 0 $isWriting ? :
11269 0 0 if $offset[$i] > $dirLen
11271 0 0 if ($isWriting)
11274 0 0 unless ref $tagInfo eq "HASH" and $tagInfo->{'SubDirectory'}
11277 0 0 unless $size
11288 0 0 if defined $val
11292 0 0 if (not defined $tagTablePtr->{$tag} and $unknown > 1)
11331 0 1 unless $raf->Read($buff, 128) == 128
11333 0 1 unless $buff =~ /^.{8}\0{3}\x7c.{112}\xff\xd8\xff\xdb$/s
11361 0 0 unless $et->{'Model'} eq "DSLR-A100" and length $$valPt == 4
11387 0 0 if $dataLen < 2
11389 0 0 if $dataLen < 2 + 12 * $n
11396 0 0 if ($entry{'50740'} and $et->{'MRWDirData'})
11397 0 0 unless $et->{'Model'} eq "DSLR-A100"
11398 0 0 unless $entry{'330'} and $et->{'A100DataOffset'}
11401 0 0 if (ref $imageData)
11409 0 0 if $remain
11414 0 0 if $remain
11421 0 0 if ($entry{'513'} and $et->{'A100PreviewStart'} and $entry{'514'} and $et->{'A100PreviewLength'})
11430 0 0 unless &Write($outfile, $header, $$dataPt)
11432 0 0 if (ref $imageData)
11433 0 0 unless $et->CopyImageData($imageData, $outfile)
11436 0 0 if ($et->{'MRWDirData'})
11437 0 0 if $pad
11441 0 0 if $dataOffset
11484 0 0 if ($encipher) { }
11513 0 0 if ($et->{'DoubleCipher'})
11517 0 0 if ($et->Options("Verbose") > 2)
11519 0 0 $et->{'DoubleCipher'} ? :
11536 1370 0 unless $et
11544 0 0 if ($et->{'DoubleCipher'})
11556 0 0 if ($changed == $et->{'CHANGED'}) { }
0 0 elsif (defined $data) { }
11575 0 0 if $end < 2
11584 0 0 if $tag == 0
11586 0 0 if ($tag == 1550) { }
11590 0 0 if $tag == 33536
11592 0 0 if $pos + $len > $end
11619 0 0 if ($ifd == 2) { }
0 0 elsif ($ifd == 6) { }
11629 0 0 unless $success
11635 0 0 if $dirEnd + 4 > length $$dataPt
11637 0 0 unless $nextIFD
11645 0 0 if ($ifd == 1) { }
0 0 elsif ($ifd == 2) { }
11648 0 0 if $cp + 1 > length $$dataPt
11650 0 0 if $ip + 4 > length $$dataPt
11661 0 0 if defined $key
11662 0 0 unless $verbose > 2
11680 0 0 unless $et
11707 0 0 if ($dataLen < 4 and $raf)
11709 0 0 if ($raf->Seek($pos, 0) and $raf->Read($buff, 4) == 4)
11718 0 0 if ($dataPt and $$dataPt =~ /^\0MR[IM]/) { }
0 0 elsif ($et->{'A100DataOffset'}) { }
11721 0 0 if ($dataOffset) { }
11727 0 0 unless $raf
11728 0 0 unless ($err)
11731 0 0 unless ($srfLen > 0 and $raf->Read($buff, $srfLen) == $srfLen)
11735 0 0 if ($err)
11736 0 0 if $outfile
11742 0 0 if ($outfile) { }
11745 0 0 $et->{'MRWDirData'} ? :
11747 0 0 if (not $outfile and $et->{'HTML_DUMP'})
11754 0 0 if $outfile
11760 0 0 if ($outfile) { }
11762 0 0 unless $result
11768 0 0 unless $result and $et->{'SR2SubIFDOffset'}
11775 0 0 if ($offset and $length and defined $key)
11778 0 0 if ($raf and $raf->Seek($offset + $base, 0) and $raf->Read($buff, $length) == $length or $offset - $dataPos >= 0 and $offset - $dataPos + $length < $dataLen and $buff = substr($$dataPt, $offset - $dataPos, $length)) { }
11786 0 0 if ($verbose > 2 and not $outfile)
11802 0 0 if ($outfile) { }
11806 0 0 unless $result
11816 0 0 unless @offsets
11825 0 0 if ($outfile and @subifdPos)
11828 0 0 if ($sr2Len & 3)
11836 0 0 if defined $newKey
11844 0 0 unless $tagID == 29184 or $tagID == 29185
11847 0 0 if ($fmt != 4)
11851 0 0 if ($tagID == 29185)
11856 0 0 @subifdPos < 2 ? :
11865 0 0 unless ($found{'29184'} and $found{'29185'})
11870 0 0 $outfile ? :