Branch Coverage

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


line true false branch
10434 40626 12968 unless $a =~ /\./ and $b =~ /\./
10490 0 0 if ($len >= 26)
10492 0 0 if ($count > 256)
10496 0 0 if ($count and $count < 256)
10498 0 0 if ($format >= 1 and $format <= 10)
10514 0 0 unless length $1 > 32
10516 0 0 unless $tagTablePtr->{$tag}
10520 0 0 unless $tag =~ /:$/ and $val =~ /\b$tag\s*([^\s;,:]+)/
10534 0 0 unless length $val == 90
10541 0 0 unless length $val == 110
10554 0 0 unless length $val == 8
10565 0 4 unless @a == 6
10599 0 0 if (@a == 2) { }
0 0 elsif (@a >= 6) { }
10605 0 0 if ($sf != 0 and $sa != 0 and $lf == 0 || $lf >= $sf and $la == 0 || $la >= $sa)
10607 0 0 if $lf != $sf and $lf != 0
10608 0 0 if $sa != $la and $la != 0
10612 0 0 if (defined $rtnVal) { }
10617 0 0 unless $bits or $feature->[1]{$bits}
10620 0 0 $feature->[2] ? :
0 0 $rtnVal ? :
10631 0 14 if $val =~ /Unknown \((.*)\)/i
10634 6 8 if ($features) { }
4 4 elsif ($sf) { }
10638 0 4 if $lf == $sf
10639 0 4 if $la == $sa
10650 4 146 if $val =~ /\b$name\b/i
10663 0 0 unless $et
10668 0 0 $isWriting ? :
10669 0 0 if $dirLen < 4
10674 0 0 if ($dirLen < 4 + $num * 4)
10678 0 0 if ($num > 50)
10683 0 0 unless $isWriting
10685 0 0 if ($len > $dirLen)
10696 0 0 if ($offset[-1] > $len and $offset[-1] <= $dirLen)
10709 0 0 if $size > $len - $offset
10715 0 0 unless defined $blockSize{$offset}
10718 0 0 $isWriting ? :
10722 0 0 if $offset[$i] > $dirLen
10724 0 0 if ($isWriting)
10727 0 0 unless ref $tagInfo eq "HASH" and $tagInfo->{'SubDirectory'}
10730 0 0 unless $size
10741 0 0 if defined $val
10745 0 0 if (not defined $tagTablePtr->{$tag} and $unknown > 1)
10781 0 1 unless $raf->Read($buff, 128) == 128
10783 0 1 unless $buff =~ /^.{8}\0{3}\x7c.{112}\xff\xd8\xff\xdb$/s
10811 0 0 unless $et->{'Model'} eq "DSLR-A100" and length $$valPt == 4
10837 0 0 if $dataLen < 2
10839 0 0 if $dataLen < 2 + 12 * $n
10846 0 0 if ($entry{'50740'} and $et->{'MRWDirData'})
10847 0 0 unless $et->{'Model'} eq "DSLR-A100"
10848 0 0 unless $entry{'330'} and $et->{'A100DataOffset'}
10851 0 0 if (ref $imageData)
10859 0 0 if $remain
10864 0 0 if $remain
10871 0 0 if ($entry{'513'} and $et->{'A100PreviewStart'} and $entry{'514'} and $et->{'A100PreviewLength'})
10880 0 0 unless &Write($outfile, $header, $$dataPt)
10882 0 0 if (ref $imageData)
10883 0 0 unless $et->CopyImageData($imageData, $outfile)
10886 0 0 if ($et->{'MRWDirData'})
10887 0 0 if $pad
10891 0 0 if $dataOffset
10934 0 0 if ($encipher) { }
10963 0 0 if ($et->{'DoubleCipher'})
10967 0 0 if ($et->Options("Verbose") > 2)
10969 0 0 $et->{'DoubleCipher'} ? :
10986 1346 0 unless $et
10994 0 0 if ($et->{'DoubleCipher'})
11006 0 0 if ($changed == $et->{'CHANGED'}) { }
0 0 elsif (defined $data) { }
11025 0 0 if $end < 2
11034 0 0 if $tag == 0
11036 0 0 if ($tag == 1550) { }
11040 0 0 if $tag == 33536
11042 0 0 if $pos + $len > $end
11069 0 0 if ($ifd == 2) { }
0 0 elsif ($ifd == 6) { }
11079 0 0 unless $success
11085 0 0 if $dirEnd + 4 > length $$dataPt
11087 0 0 unless $nextIFD
11095 0 0 if ($ifd == 1) { }
0 0 elsif ($ifd == 2) { }
11098 0 0 if $cp + 1 > length $$dataPt
11100 0 0 if $ip + 4 > length $$dataPt
11111 0 0 if defined $key
11112 0 0 unless $verbose > 2
11130 0 0 unless $et
11157 0 0 if ($dataLen < 4 and $raf)
11159 0 0 if ($raf->Seek($pos, 0) and $raf->Read($buff, 4) == 4)
11168 0 0 if ($dataPt and $$dataPt =~ /^\0MR[IM]/) { }
0 0 elsif ($et->{'A100DataOffset'}) { }
11171 0 0 if ($dataOffset) { }
11177 0 0 unless $raf
11178 0 0 unless ($err)
11181 0 0 unless ($srfLen > 0 and $raf->Read($buff, $srfLen) == $srfLen)
11185 0 0 if ($err)
11186 0 0 if $outfile
11192 0 0 if ($outfile) { }
11195 0 0 $et->{'MRWDirData'} ? :
11197 0 0 if (not $outfile and $et->{'HTML_DUMP'})
11204 0 0 if $outfile
11210 0 0 if ($outfile) { }
11212 0 0 unless $result
11218 0 0 unless $result and $et->{'SR2SubIFDOffset'}
11225 0 0 if ($offset and $length and defined $key)
11228 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)) { }
11236 0 0 if ($verbose > 2 and not $outfile)
11252 0 0 if ($outfile) { }
11256 0 0 unless $result
11266 0 0 unless @offsets
11275 0 0 if ($outfile and @subifdPos)
11278 0 0 if ($sr2Len & 3)
11286 0 0 if defined $newKey
11294 0 0 unless $tagID == 29184 or $tagID == 29185
11297 0 0 if ($fmt != 4)
11301 0 0 if ($tagID == 29185)
11306 0 0 @subifdPos < 2 ? :
11315 0 0 unless ($found{'29184'} and $found{'29185'})
11320 0 0 $outfile ? :