Branch Coverage

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


line true false branch
10949 40748 12943 unless $a =~ /\./ and $b =~ /\./
11000 0 0 unless ($raf->Seek($hdOff, 0) and $raf->Read($buff, $hdLen) == $hdLen and $buff =~ /^\x55\x26\x11\x05\0/)
11004 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)
11013 0 0 if $et->Options("Validate") or $et->{'IsWriting'}
11033 0 0 if ($len >= 26)
11035 0 0 if ($count > 256)
11039 0 0 if ($count and $count < 256)
11041 0 0 if ($format >= 1 and $format <= 10)
11057 0 0 unless length $1 > 32
11059 0 0 unless $tagTablePtr->{$tag}
11063 0 0 unless $tag =~ /:$/ and $val =~ /\b$tag\s*([^\s;,:]+)/
11077 0 0 unless length $val == 90
11084 0 0 unless length $val == 110
11097 0 0 unless length $val == 8
11108 0 4 unless @a == 6
11142 0 0 if (@a == 2) { }
0 0 elsif (@a >= 6) { }
11148 0 0 if ($sf != 0 and $sa != 0 and $lf == 0 || $lf >= $sf and $la == 0 || $la >= $sa)
11150 0 0 if $lf != $sf and $lf != 0
11151 0 0 if $sa != $la and $la != 0
11155 0 0 if (defined $rtnVal) { }
11160 0 0 unless $bits or $feature->[1]{$bits}
11163 0 0 $feature->[2] ? :
0 0 $rtnVal ? :
11174 0 14 if $val =~ /Unknown \((.*)\)/i
11177 6 8 if ($features) { }
4 4 elsif ($sf) { }
11181 0 4 if $lf == $sf
11182 0 4 if $la == $sa
11193 4 146 if $val =~ /\b$name\b/i
11206 0 0 unless $et
11211 0 0 $isWriting ? :
11212 0 0 if $dirLen < 4
11217 0 0 if ($dirLen < 4 + $num * 4)
11221 0 0 if ($num > 50)
11226 0 0 unless $isWriting
11228 0 0 if ($len > $dirLen)
11239 0 0 if ($offset[-1] > $len and $offset[-1] <= $dirLen)
11252 0 0 if $size > $len - $offset
11258 0 0 unless defined $blockSize{$offset}
11261 0 0 $isWriting ? :
11265 0 0 if $offset[$i] > $dirLen
11267 0 0 if ($isWriting)
11270 0 0 unless ref $tagInfo eq "HASH" and $tagInfo->{'SubDirectory'}
11273 0 0 unless $size
11284 0 0 if defined $val
11288 0 0 if (not defined $tagTablePtr->{$tag} and $unknown > 1)
11324 0 1 unless $raf->Read($buff, 128) == 128
11326 0 1 unless $buff =~ /^.{8}\0{3}\x7c.{112}\xff\xd8\xff\xdb$/s
11354 0 0 unless $et->{'Model'} eq "DSLR-A100" and length $$valPt == 4
11380 0 0 if $dataLen < 2
11382 0 0 if $dataLen < 2 + 12 * $n
11389 0 0 if ($entry{'50740'} and $et->{'MRWDirData'})
11390 0 0 unless $et->{'Model'} eq "DSLR-A100"
11391 0 0 unless $entry{'330'} and $et->{'A100DataOffset'}
11394 0 0 if (ref $imageData)
11402 0 0 if $remain
11407 0 0 if $remain
11414 0 0 if ($entry{'513'} and $et->{'A100PreviewStart'} and $entry{'514'} and $et->{'A100PreviewLength'})
11423 0 0 unless &Write($outfile, $header, $$dataPt)
11425 0 0 if (ref $imageData)
11426 0 0 unless $et->CopyImageData($imageData, $outfile)
11429 0 0 if ($et->{'MRWDirData'})
11430 0 0 if $pad
11434 0 0 if $dataOffset
11477 0 0 if ($encipher) { }
11506 0 0 if ($et->{'DoubleCipher'})
11510 0 0 if ($et->Options("Verbose") > 2)
11512 0 0 $et->{'DoubleCipher'} ? :
11529 1370 0 unless $et
11537 0 0 if ($et->{'DoubleCipher'})
11549 0 0 if ($changed == $et->{'CHANGED'}) { }
0 0 elsif (defined $data) { }
11568 0 0 if $end < 2
11577 0 0 if $tag == 0
11579 0 0 if ($tag == 1550) { }
11583 0 0 if $tag == 33536
11585 0 0 if $pos + $len > $end
11612 0 0 if ($ifd == 2) { }
0 0 elsif ($ifd == 6) { }
11622 0 0 unless $success
11628 0 0 if $dirEnd + 4 > length $$dataPt
11630 0 0 unless $nextIFD
11638 0 0 if ($ifd == 1) { }
0 0 elsif ($ifd == 2) { }
11641 0 0 if $cp + 1 > length $$dataPt
11643 0 0 if $ip + 4 > length $$dataPt
11654 0 0 if defined $key
11655 0 0 unless $verbose > 2
11673 0 0 unless $et
11700 0 0 if ($dataLen < 4 and $raf)
11702 0 0 if ($raf->Seek($pos, 0) and $raf->Read($buff, 4) == 4)
11711 0 0 if ($dataPt and $$dataPt =~ /^\0MR[IM]/) { }
0 0 elsif ($et->{'A100DataOffset'}) { }
11714 0 0 if ($dataOffset) { }
11720 0 0 unless $raf
11721 0 0 unless ($err)
11724 0 0 unless ($srfLen > 0 and $raf->Read($buff, $srfLen) == $srfLen)
11728 0 0 if ($err)
11729 0 0 if $outfile
11735 0 0 if ($outfile) { }
11738 0 0 $et->{'MRWDirData'} ? :
11740 0 0 if (not $outfile and $et->{'HTML_DUMP'})
11747 0 0 if $outfile
11753 0 0 if ($outfile) { }
11755 0 0 unless $result
11761 0 0 unless $result and $et->{'SR2SubIFDOffset'}
11768 0 0 if ($offset and $length and defined $key)
11771 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)) { }
11779 0 0 if ($verbose > 2 and not $outfile)
11795 0 0 if ($outfile) { }
11799 0 0 unless $result
11809 0 0 unless @offsets
11818 0 0 if ($outfile and @subifdPos)
11821 0 0 if ($sr2Len & 3)
11829 0 0 if defined $newKey
11837 0 0 unless $tagID == 29184 or $tagID == 29185
11840 0 0 if ($fmt != 4)
11844 0 0 if ($tagID == 29185)
11849 0 0 @subifdPos < 2 ? :
11858 0 0 unless ($found{'29184'} and $found{'29185'})
11863 0 0 $outfile ? :