Branch Coverage

blib/lib/Image/ExifTool/Sony.pm
Criterion Covered Total %
branch 15 238 6.3


line true false branch
10379 40422 13036 unless $a =~ /\./ and $b =~ /\./
10435 0 0 if ($len >= 26)
10437 0 0 if ($count > 256)
10441 0 0 if ($count and $count < 256)
10443 0 0 if ($format >= 1 and $format <= 10)
10459 0 0 unless length $1 > 32
10461 0 0 unless $tagTablePtr->{$tag}
10465 0 0 unless $tag =~ /:$/ and $val =~ /\b$tag\s*([^\s;,:]+)/
10479 0 0 unless length $val == 90
10486 0 0 unless length $val == 110
10499 0 0 unless length $val == 8
10510 0 4 unless @a == 6
10544 0 0 if (@a == 2) { }
0 0 elsif (@a >= 6) { }
10550 0 0 if ($sf != 0 and $sa != 0 and $lf == 0 || $lf >= $sf and $la == 0 || $la >= $sa)
10552 0 0 if $lf != $sf and $lf != 0
10553 0 0 if $sa != $la and $la != 0
10557 0 0 if (defined $rtnVal) { }
10562 0 0 unless $bits or $feature->[1]{$bits}
10565 0 0 $feature->[2] ? :
0 0 $rtnVal ? :
10576 0 14 if $val =~ /Unknown \((.*)\)/i
10579 6 8 if ($features) { }
4 4 elsif ($sf) { }
10583 0 4 if $lf == $sf
10584 0 4 if $la == $sa
10595 4 146 if $val =~ /\b$name\b/i
10608 0 0 unless $et
10613 0 0 $isWriting ? :
10614 0 0 if $dirLen < 4
10619 0 0 if ($dirLen < 4 + $num * 4)
10623 0 0 if ($num > 50)
10628 0 0 unless $isWriting
10630 0 0 if ($len > $dirLen)
10641 0 0 if ($offset[-1] > $len and $offset[-1] <= $dirLen)
10654 0 0 if $size > $len - $offset
10660 0 0 unless defined $blockSize{$offset}
10663 0 0 $isWriting ? :
10667 0 0 if $offset[$i] > $dirLen
10669 0 0 if ($isWriting)
10672 0 0 unless ref $tagInfo eq "HASH" and $tagInfo->{'SubDirectory'}
10675 0 0 unless $size
10686 0 0 if defined $val
10690 0 0 if (not defined $tagTablePtr->{$tag} and $unknown > 1)
10726 0 1 unless $raf->Read($buff, 128) == 128
10728 0 1 unless $buff =~ /^.{8}\0{3}\x7c.{112}\xff\xd8\xff\xdb$/s
10756 0 0 unless $et->{'Model'} eq "DSLR-A100" and length $$valPt == 4
10782 0 0 if $dataLen < 2
10784 0 0 if $dataLen < 2 + 12 * $n
10791 0 0 if ($entry{'50740'} and $et->{'MRWDirData'})
10792 0 0 unless $et->{'Model'} eq "DSLR-A100"
10793 0 0 unless $entry{'330'} and $et->{'A100DataOffset'}
10796 0 0 if (ref $imageData)
10804 0 0 if $remain
10809 0 0 if $remain
10816 0 0 if ($entry{'513'} and $et->{'A100PreviewStart'} and $entry{'514'} and $et->{'A100PreviewLength'})
10825 0 0 unless &Write($outfile, $header, $$dataPt)
10827 0 0 if (ref $imageData)
10828 0 0 unless $et->CopyImageData($imageData, $outfile)
10831 0 0 if ($et->{'MRWDirData'})
10832 0 0 if $pad
10836 0 0 if $dataOffset
10879 0 0 if ($encipher) { }
10908 0 0 if ($et->{'DoubleCipher'})
10912 0 0 if ($et->Options("Verbose") > 2)
10914 0 0 $et->{'DoubleCipher'} ? :
10931 1346 0 unless $et
10939 0 0 if ($et->{'DoubleCipher'})
10951 0 0 if ($changed == $et->{'CHANGED'}) { }
0 0 elsif (defined $data) { }
10970 0 0 if $end < 2
10979 0 0 if $tag == 0
10981 0 0 if ($tag == 1550) { }
10985 0 0 if $tag == 33536
10987 0 0 if $pos + $len > $end
11014 0 0 if ($ifd == 2) { }
0 0 elsif ($ifd == 6) { }
11024 0 0 unless $success
11030 0 0 if $dirEnd + 4 > length $$dataPt
11032 0 0 unless $nextIFD
11040 0 0 if ($ifd == 1) { }
0 0 elsif ($ifd == 2) { }
11043 0 0 if $cp + 1 > length $$dataPt
11045 0 0 if $ip + 4 > length $$dataPt
11056 0 0 if defined $key
11057 0 0 unless $verbose > 2
11075 0 0 unless $et
11102 0 0 if ($dataLen < 4 and $raf)
11104 0 0 if ($raf->Seek($pos, 0) and $raf->Read($buff, 4) == 4)
11113 0 0 if ($dataPt and $$dataPt =~ /^\0MR[IM]/) { }
0 0 elsif ($et->{'A100DataOffset'}) { }
11116 0 0 if ($dataOffset) { }
11122 0 0 unless $raf
11123 0 0 unless ($err)
11126 0 0 unless ($srfLen > 0 and $raf->Read($buff, $srfLen) == $srfLen)
11130 0 0 if ($err)
11131 0 0 if $outfile
11137 0 0 if ($outfile) { }
11140 0 0 $et->{'MRWDirData'} ? :
11142 0 0 if (not $outfile and $et->{'HTML_DUMP'})
11149 0 0 if $outfile
11155 0 0 if ($outfile) { }
11157 0 0 unless $result
11163 0 0 unless $result and $et->{'SR2SubIFDOffset'}
11170 0 0 if ($offset and $length and defined $key)
11173 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)) { }
11181 0 0 if ($verbose > 2 and not $outfile)
11197 0 0 if ($outfile) { }
11201 0 0 unless $result
11211 0 0 unless @offsets
11220 0 0 if ($outfile and @subifdPos)
11223 0 0 if ($sr2Len & 3)
11231 0 0 if defined $newKey
11239 0 0 unless $tagID == 29184 or $tagID == 29185
11242 0 0 if ($fmt != 4)
11246 0 0 if ($tagID == 29185)
11251 0 0 @subifdPos < 2 ? :
11260 0 0 unless ($found{'29184'} and $found{'29185'})
11265 0 0 $outfile ? :