Branch Coverage

blib/lib/Image/ExifTool/Exif.pm
Criterion Covered Total %
branch 378 780 48.4


line true false branch
4981 71 199 if ($et->{'FILE_TYPE'} eq "TIFF" and not $et->{'IdentifiedRawFile'})
4982 3 68 if ($Image::ExifTool::Exif::compression{$comp} and $Image::ExifTool::Exif::compression{$comp} =~ /^\w+ ([A-Z]{3}) Compressed$/)
4997 0 126 unless @_ >= 3
4999 0 373 unless $_ and /([+-]?(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?)/ and $1 > 0
5028 31 517 if $focal and $foc35
5034 51 466 if ($et->{'Make'} eq "Canon")
5040 25 26 if $canonDiag
5042 483 34 unless ($diag and &Image::ExifTool::IsFloat($diag))
5043 0 483 if ($sens and $sensXY =~ / (\d+(\.?\d*)?)$/) { }
5049 16 467 if ($xsize and $ysize)
5052 16 0 if (abs $a - "1.3333" < "0.1" or abs $a - "1.5" < "0.1")
5057 467 16 unless ($diag)
5063 0 123 unless &Image::ExifTool::IsFloat($x_res) and $x_res != 0
5064 0 123 unless &Image::ExifTool::IsFloat($y_res) and $y_res != 0
5067 0 125 if @_ < 2
5070 2 123 unless $w and $h
5072 123 0 if $a > "0.5" and $a < 2
5079 116 7 unless $diag > 1 and $diag < 100
5091 286 0 if (defined $val)
5093 258 28 if (not $val) { }
5 23 elsif (int($val) / $val > 0.999) { }
0 23 elsif (int($val * 2) / ($val * 2) > 0.999) { }
10 13 elsif (int($val * 3) / ($val * 3) > 0.999) { }
5113 436 731 if ($val =~ m[([-+]?\d+)/(\d+)])
5114 0 0 $1 ? :
436 0 $2 ? :
5128 0 85 if length $val < 8
5134 0 85 if ($et->{'OPTIONS'}{'Validate'} and $id =~ /^(ASCII|UNICODE|JIS)?\0* \0*$/)
5135 0 0 $tag ? :
5140 85 0 if ($id =~ /^(ASCII)?(\0|[\0 ]+$)/) { }
0 0 elsif ($id =~ /^(UNICODE)[\0 ]$/) { }
0 0 elsif ($id =~ /^(JIS)[\0 ]{5}$/) { }
5145 84 1 if ($asciiFlex and $asciiFlex eq 1)
5147 0 84 if $enc
5162 0 0 if $asciiFlex and $asciiFlex ne 1
5163 0 0 $tag ? :
5166 0 0 if ($et->{'WrongByteOrder'} and $et->{'OPTIONS'}{'Validate'})
5167 0 0 $tag ? :
0 0 $type ? :
5179 0 0 unless length $val > 4
5183 0 0 unless @cols == $n + 1 and $pos >= 4
5202 147 48 if $inv
5203 48 0 if ($val > 0)
5204 0 48 if ($val > 65520) { }
5223 28 39 if $val =~ /\bn/i or $isFloat and $val == 0
5225 0 39 if $val =~ /\b(s|l)/i or $isFloat and $val < 0
5227 37 2 if $val =~ /\bh/i or $isFloat
5252 146 82 unless $levels = shift()
5254 0 82 if @levels < 2
5257 74 8 if ($g < 4) { }
0 8 elsif ($levels[$$lookup[$blue * 3]] < 4) { }
5258 0 74 if @levels < 3
5259 0 74 unless $g = ($levels[$g] + $levels[$lookup->[2]]) / 2
5266 4 0 if not defined $val and ($_[0] and $_[1])
5275 0 559 unless &Image::ExifTool::IsFloat($secs)
5276 432 127 if ($secs < "0.25001" and $secs > 0)
5289 342 0 if (&Image::ExifTool::IsFloat($val) and $val > 0)
5291 14 328 $val < 1 ? :
5304 0 5 if ($val =~ /^[0-6]+$/)
5308 0 5 unless length $val >= 4
5309 2 3 &GetByteOrder() eq 'II' ? :
5311 2 3 if ($end > @a)
5314 0 2 if (@a < 2 + $x * $y) { }
5331 0 6 unless @a >= 2
5332 0 6 unless $a[0] and $a[1]
5334 0 6 if $end > @a
5339 6 18 if ++$pos >= $end
5340 12 6 if ($pos - 2) % $a[1]
5353 0 0 if $inv
5354 0 0 unless length $$val > 4
5359 0 0 unless $pos + 16 <= length $$val
5375 0 13 unless @vals == 4
5378 48 4 if &Image::ExifTool::IsFloat($_)
5379 0 4 if $_ eq "inf"
5380 4 0 if $_ eq "undef"
5382 0 13 unless $c == 4
5385 10 3 if $vals[1] and $vals[1] ne $vals[0]
5387 6 7 if $vals[3] and $vals[3] ne $vals[2]
5401 7 46 if $unk
5402 20 33 unless $lens =~ m[($pat)(?:-($pat))?\s*mm.*?(?:[fF]/?\s*)($pat)(?:-($pat))?]
5405 0 33 unless $a[1]
5406 0 33 unless $a[3]
5407 1 32 if ($unk)
5421 0 4 if (@$try > 1 and $lensModel)
5424 0 0 if ($lensModel =~ /((\d+-)?\d+mm)/)
5427 0 0 if @filt and @filt < @$try
5430 0 0 if (@$try > 1 and $lensModel =~ m[(?:F/?|1:)(\d+(\.\d+)?)]i)
5433 0 0 if @filt and @filt < @$try
5437 0 0 unless @$try > 1 and $lensModel =~ /\b($pat)\b/
5440 0 0 if @filt and @filt < @$try
5458 0 34 unless defined $lensType
5460 34 0 unless $printConv
5463 0 34 unless (ref $printConv eq "HASH")
5464 0 0 if (ref $printConv eq 'ARRAY' and ref $printConv->[0] eq 'HASH') { }
5469 0 0 if $lensTypePrt =~ /mm/
5470 0 0 if $lensTypePrt =~ s[(\d)/F][$1mm F]
5476 0 34 if ($lensSpecPrt)
5478 0 0 unless $sa0
5481 2 32 unless $maxAperture
5482 1 33 if ($lensFocalRange and $lensFocalRange =~ /^(\d+)(?: (?:to )?(\d+))?$/)
5485 0 34 if ($et->{'Make'} eq 'SONY') { }
28 6 elsif ($shortFocal and $longFocal and not $lensModel && $lensModel =~ /^TAMRON.*-\d+mm/) { }
5486 0 0 if ($lensType eq 65535) { }
0 0 elsif ($lensType != 65280) { }
5488 0 0 if ($et->{'Model'} =~ /NEX|ILCE/)
5489 0 0 unless (%sonyEtype)
5494 0 0 if $did{$lens}
5495 0 0 $index ? :
5508 0 0 if ($Image::ExifTool::Minolta::metabonesID{$lensType & 65280}) { }
0 0 elsif ($lensType >= 18688 and $lensType <= 22794) { }
5509 0 0 $lensType >= 48128 ? :
0 0 $lensType >= 61184 ? :
5512 0 0 if $printConv->{$lensType}
5520 0 0 if $printConv->{$lensType}
5532 1 5 unless $lens
5533 1 4 unless $$printConv{"$lensType.1"}
5544 0 32 if $Image::ExifTool::userLens{$lens}
5550 4 28 unless $sf
5552 0 28 if ($sf0)
5553 0 0 if abs $sf - $sf0 > "0.5" or abs $sa - $sa0 > "0.15" or abs $lf - $lf0 > "0.5" or abs $la - $la0 > "0.15"
5560 0 0 if $lensSpecPrt and $lens =~ / \Q$lensSpecPrt\E( \(| GM$|$)/
5562 0 0 unless $lens =~ /^Sony /
5566 0 28 if ($lens =~ / \+ .*? (\d+(\.\d+)?)x( |$)/)
5571 28 0 if ($focalLength)
5572 19 9 if $focalLength < $sf - "0.5"
5573 1 8 if $focalLength > $lf + "0.5"
5575 8 0 if ($maxAperture)
5581 5 3 if $maxAperture < $sa - "0.15"
5582 0 3 if $maxAperture > $la + "0.15"
5585 3 0 if ($sf == $lf or $sa == $la or $focalLength <= $sf) { }
0 0 elsif ($focalLength >= $lf) { }
5599 0 3 if (defined $diff)
5600 0 0 if $d > $diff + "0.15"
5601 0 0 if $d < $diff - "0.15"
5609 0 4 if (@user)
5611 0 0 if (@user > 1)
5615 0 0 if @good
5621 1 3 unless @best
5622 3 1 if (@best)
5627 0 1 if $lensModel and $lens =~ / or /
5681 52 8 ref $tagInfo eq 'HASH' ? :
5682 0 60 unless defined $fmt
5684 0 60 unless defined $val
5687 4 56 if $tag == 273
5688 12 48 if (length $val > 4) { }
5692 24 24 if length $val < 4
5697 0 4 unless $offsetPos
5714 0 14 if $et->{'FILE_TYPE'} eq "RWZ"
5717 26 14 $i ? :
5718 14 26 unless defined $value->{$key}
5719 14 12 unless $value->{$key} == 1
5722 6 6 unless $cmp == 1
5729 58 2 if defined $val
5730 0 2 unless defined $vals{$_}
5741 2 4 unless $len[$j] == $rowBytes * $vals{'RowsPerStrip'}
5743 0 4 unless defined $tmp
5766 0 4 if (not defined $img) { }
0 4 elsif ($rtn or $w > 256) { }
5767 0 0 $w > 256 ? :
5775 0 14 unless wantarray
5793 61 139 if not $len or $et->{'FILE_TYPE'} eq "XMP"
5796 97 42 if (defined $dataPos and $offset >= $dataPos and $offset + $len <= $dataPos + length($$dataPt)) { }
5800 5 37 unless defined $image
5802 0 0 if ($tag and $tag eq "ThumbnailImage" and $et->{'TIFF_TYPE'} eq "ARW" and $et->{'Model'} eq "DSLR-A100" and $offset < 65536 and not $image =~ /^(Binary data|\xff\xd8\xff)/)
5807 0 0 if (defined $try and $try =~ /^\xff\xd8\xff/)
5824 19 1 $tagInfo ? :
5836 0 0 defined $et->{'OffsetNum'} ? :
5839 0 0 defined $id ? :
5871 823 228 if $tagTablePtr->{'GROUPS'}{'0'} eq "EXIF"
5874 7 0 if ($validate || $Image::ExifTool::MWG::strict and $dirName eq "IFD0" and $isExif and $et->{'FILE_TYPE'} =~ /^(JPEG|TIFF|PSD)$/)
5878 0 7 unless ($path =~ /^(JPEG-APP1-IFD0|TIFF-IFD0|PSD-EXIFInfo-IFD0)$/)
5879 0 0 if ($Image::ExifTool::MWG::strict) { }
5888 0 1051 if $htmlDump
5889 7 1044 if $validate and not $verbose
5890 1 1050 if $dirName eq "EXIF"
5891 270 781 if $dirName =~ /^(IFD0|SubIFD)$/ and not defined $dirInfo->{'Multi'}
5894 500 30 unless $dir and $inMakerNotes and not $dir =~ /^MakerNote/
5897 975 76 if ($dirStart >= 0 and $dirStart <= $dataLen - 2)
5902 361 614 if ($dirSize > $dirLen)
5903 0 361 if ($verbose > 0 || $validate and not $dirInfo->{'SubIFD'})
5909 0 361 if $dirEnd > $dataLen
5913 76 975 unless ($dirSize)
5915 76 0 if ($raf)
5919 76 0 if ($raf->Seek($offset + $base, 0) and $raf->Read($buff, 2) == 2)
5922 76 0 if ($raf->Read($buf2, $len + 4) >= $len)
5933 76 0 if ($success) { }
5937 0 0 unless $inMakerNotes and $dirLen >= 14 and $dirStart >= 0 and $dirStart + $dirLen <= length $$dataPt
5946 14 1037 if $verbose > 0
5948 4 1047 if ($bytesFromEnd < 4)
5949 0 4 unless ($bytesFromEnd == 2 or $bytesFromEnd == 0)
5955 123 928 if (defined $dirInfo->{'MakerNoteAddr'})
5958 3 120 if (&Image::ExifTool::MakerNotes::FixBase($et, $dirInfo))
5963 0 1051 if ($htmlDump)
5965 0 0 $dir eq 'MakerNotes' ? :
5966 0 0 if (defined $makerAddr)
5968 0 0 if $hdrLen > 0
5970 0 0 unless ($dirInfo->{'NoDumpEntryCount'})
5976 0 0 if ($bytesFromEnd >= 4)
5977 0 0 $dir =~ /^(.*?)(\d+)$/ ? :
5980 0 0 if $off
5987 0 172 if ($inMakerNotes and $et->{'Model'} eq "Canon EOS 40D" and $numEntries)
5990 0 0 if ($fmt < 1 or $fmt > 13)
6004 7 1044 if $tagTablePtr->{'VARS'}
6008 0 14986 if ($warnCount > 10)
6009 0 0 if $et->Warn("Too many warnings -- $dir parsing aborted", 2)
6015 0 14986 if ($format < 1 or $format > 13)
6016 0 0 if ($mapFmt and $mapFmt->{$format}) { }
6022 0 0 if ($format or $validate)
6027 0 0 unless $index or $et->{'Model'} eq "ILCE-7M2"
6039 0 14986 if $saveFormat
6041 0 8918 if ($count < 2 and ref $tagTablePtr->{$tagID} eq "HASH" and $tagTablePtr->{$tagID}{'FixCount'})
6042 0 0 unless $offList
6045 0 0 if (defined $i and $i < $#$offList)
6048 0 0 if $oldCount != $count
6051 63 14923 if $validate and not $inMakerNotes
6055 6739 8247 if ($size > 4)
6056 0 6739 if ($size > 2147483647 and not $tagInfo && $tagInfo->{'ReadFromRAF'})
6062 20 6719 if ($validate and not $inMakerNotes)
6064 0 20 if $valuePtr & 1
6065 0 20 if ($valuePtr < 8 or $valuePtr + $size > length $$dataPt and $valuePtr + $size > $et->{'VALUE'}{'FileSize'})
6072 0 20 if ($valuePtr + $size > $dirStart + $dataPos and $valuePtr < $dirEnd + $dataPos + 4)
6076 81 0 if $_->[0] >= $valuePtr + $size or $_->[0] + $_->[1] <= $valuePtr
6082 0 6739 if ($dirInfo->{'FixOffsets'})
6084 0 0 unless $valEnd
6090 2 6737 if $valuePtr < 8 and not $dirInfo->{'ZeroOffsetOK'}
6092 10 6729 if ($dirInfo->{'EntryBased'} or ref $tagTablePtr->{$tagID} eq 'HASH' and $tagTablePtr->{$tagID}{'EntryBased'}) { }
6100 0 6739 if $valuePtr < $dirEnd and $valuePtr + $size > $dirStart
6102 449 6290 if ($valuePtr < 0 or $valuePtr + $size > $dataLen)
6105 449 0 if ($raf) { }
6108 0 0 if ($tagInfo) { }
6110 0 0 if $tagInfo->{'Unknown'}
6111 0 0 unless $tagInfo->{'Binary'}
6112 0 0 if $tagInfo->{'SubDirectory'}
6114 0 0 if ($et->{'OPTIONS'}{'Binary'} and not $et->{'EXCL_TAG_LOOKUP'}{$lcTag})
6118 0 0 unless $et->{'TAGS_FROM_FILE'} and $tagInfo->{'Protected'}
6121 0 0 if $et->{'REQ_TAG_LOOKUP'}{$lcTag}
6124 0 0 if defined $tagInfo
6134 449 0 unless (defined $buff)
6137 0 449 if (not $raf->Seek($base + $valuePtr + $dataPos, 0)) { }
0 449 elsif ($readFromRAF and $size > BINARY_DATA_LIMIT() and not $et->{'REQ_TAG_LOOKUP'}{lc $tagInfo->{'Name'}}) { }
0 449 elsif ($raf->Read($buff, $size) != $size) { }
0 449 elsif ($readFromRAF) { }
6150 0 449 if ($wrn)
6152 0 0 unless $inMakerNotes or $htmlDump
6154 0 0 unless defined $buff
6165 0 0 if ($tagInfo) { }
0 0 elsif (defined $tagInfo) { }
6170 0 0 if ($tmpInfo)
6175 0 0 if ($tagInfo and $tagInfo->{'ChangeBase'})
6181 0 0 unless $tagStr
6183 0 0 if ($tagStr eq 'PreviewImage' and $et->{'RAF'}) { }
0 0 elsif ($leicaTrailer and $et->{'RAF'}) { }
6192 0 0 if ($verbose > 0)
6195 0 0 if ($et->Options('FastScan')) { }
6210 0 0 unless (defined $buff)
6220 2 6737 if (defined $suspect and $suspect == $warnCount)
6221 2 0 $tagInfo ? :
6222 2 0 if ($et->Warn("Suspicious $dir offset for $tagStr", $inMakerNotes))
6224 2 0 unless $verbose
6229 298 14686 if $format == 7 and $count == 1
6232 0 14984 if ($tagID > 61440 and $isExif)
6234 0 0 if (!$oldInfo || ref $oldInfo eq 'HASH' && $oldInfo->{'Condition'} && !$oldInfo->{'PSRaw'} and not $bad)
6240 0 0 if (defined $val and $val =~ /(.*): (.*)/)
6245 0 0 if ($tag)
6254 0 0 if $oldInfo
6259 387 14597 if (defined $tagInfo and not $tagInfo)
6260 0 387 if ($bad) { }
6264 169 218 $readSize < 128 ? :
6271 0 14984 if ($format == 13 || $format == 18 and not $tagInfo && $tagInfo->{'SubIFD'})
6275 14436 548 if (defined $tagInfo) { }
6280 702 543 if $subdir and not $tagInfo->{'SubIFD'} and not $readFormat
6282 1737 12699 if ($readFormat)
6285 946 791 if ($newNum and $newNum != $format)
6288 0 946 if $tagInfo->{'FixedSize'}
6294 0 14436 if ($tagInfo->{'IsOffset'} || $tagInfo->{'SubIFD'} and not $Image::ExifTool::Exif::intFormat{$formatStr})
6296 0 0 if ($validate)
6300 0 0 unless $verbose
6304 545 3 unless $verbose
6306 14439 0 unless ($bad)
6310 0 14439 if ($count > 100000 and not $formatStr =~ /^(undef|string|binary)$/)
6311 0 0 $tagInfo ? :
6313 0 0 if ($tagName ne "TransferFunction" or $count != 196608)
6314 0 0 $count > 2000000 ? :
6315 0 0 if ($et->Warn("Ignoring $dirName $tagName with excessive count", $minor))
6316 0 0 unless $et->{'OPTIONS'}{'HtmlDump'}
6321 0 14439 if ($count > 500 and not $formatStr =~ /^(undef|string|binary)$/ and !$tagInfo || $tagInfo->{'LongBinary'} || $warned and not $et->{'OPTIONS'}{'IgnoreMinorErrors'}) { }
6324 0 0 unless $warned
6325 0 0 if $et->{'TAGS_FROM_FILE'}
6331 0 0 if $strEnc and $formatStr eq "string" and defined $val
6335 345 14094 if ($verbose)
6338 40 305 if defined $rational
6339 0 345 if ($htmlDump) { }
6341 0 0 if ($tagID == 37500 and $dirName eq 'ExifIFD') { }
0 0 elsif ($tagInfo) { }
6350 0 0 if $size < 0
6352 0 0 if $origFormStr and $origFormStr ne $fstr
6353 0 0 if $wrongFormat
6356 0 0 if ($size > 4) { }
6362 0 0 $bad || !defined($tval) ? :
6363 0 0 if ($actPt != $offPt)
6365 0 0 $actPt < $offPt ? :
6367 0 0 if $style eq "H"
6369 0 0 if ($et->{'EXIF_POS'} and not $et->{'BASE_FUDGE'})
6373 0 0 if $offPt & 1
6377 0 0 if $wrongFormat
6378 0 0 if $tagID <= $lastID and not $inMakerNotes
6380 0 0 if (not defined $tval) { }
6383 0 0 if length $tval > 32
6384 0 0 if ($formatStr =~ /^(string|undef|binary)/) { }
0 0 elsif ($tagInfo and &Image::ExifTool::IsInt($tval)) { }
6388 0 0 if ($tagInfo->{'IsOffset'} or $tagInfo->{'SubIFD'}) { }
0 0 elsif ($tagInfo->{'PrintHex'}) { }
6391 0 0 if ($actPt != $val)
6393 0 0 $actPt < $val ? :
6404 0 0 if $tagInfo and $tagInfo->{'SubIFD'}
6406 0 0 if $valueDataLen < 0
6407 0 0 if ($size > 4)
6410 0 0 if ($subdir)
6411 0 0 if ($tagInfo->{'MakerNotes'}) { }
0 0 elsif ($tagInfo->{'NestedHtmlDump'}) { }
6414 0 0 $tagInfo->{'NestedHtmlDump'} == 2 ? :
6421 0 345 if ($tagID <= $lastID and not $inMakerNotes)
6422 0 0 $tagInfo ? :
6423 0 0 if ($tagID == $lastID) { }
6430 257 88 if ($verbose > 0)
6432 13 244 if $origFormStr
6446 3 342 if not $tagInfo or $wrongFormat
6448 0 14436 unless defined $val
6452 1245 13191 if ($subdir)
6454 0 1245 unless ($size)
6455 0 0 unless ($tagInfo->{'MakerNotes'} or $inMakerNotes)
6462 144 1101 if ($subdir->{'MaxSubdirs'})
6466 0 144 if ($over > 0)
6472 902 343 if ($subdir->{'TagTable'}) { }
6474 0 902 unless $newTagTable
6485 443 808 if (defined $subdir->{'Start'})
6490 0 443 unless (&Image::ExifTool::IsInt($newStart))
6497 51 0 unless ($tagInfo->{'SubIFD'} or $subdir->{'BadOffset'})
6506 171 1080 if ($newByteOrder) { }
6507 31 140 if ($newByteOrder =~ /^Little/i) { }
29 111 elsif ($newByteOrder =~ /^Big/i) { }
0 111 elsif ($subdir->{'OffsetPt'}) { }
111 0 elsif ($subdirStart + 2 <= $subdirDataLen) { }
6520 4 107 if ($num & 65280 and $num >> 8 > ($num & 255)) { }
6532 35 1216 if ($subdir->{'Base'})
6539 24 1227 if ($subdir->{'OffsetPt'})
6542 0 24 if ($pos + 4 > $subdirDataLen)
6550 31 1220 if ($subdirStart < 0 or $subdirStart + 2 > $subdirDataLen)
6552 31 0 if ($raf) { }
6559 0 0 if ($verbose > 0)
6560 0 0 if ($subdirStart < 0) { }
6596 130 1121 if ($tagInfo->{'MakerNotes'})
6599 1 129 if $fast and $fast > 1
6601 33 96 if defined $subdir->{'Base'}
6606 392 858 if ($tagInfo->{'Groups'} and not $tagInfo->{'Writable'})
6609 6 386 if $dirNum
6616 0 1250 if (defined $subdir->{'Validate'} and not eval $subdir->{'Validate'}) { }
6620 622 628 if (not $subdirInfo{'DirName'} and $inMakerNotes)
6627 0 7 if (not $ok and $verbose > 1 and $subdirStart != $valuePtr)
6633 1244 6 unless @values
6637 1041 2 unless $doMaker or $et->{'REQ_TAG_LOOKUP'}{lc $tagStr} or $tagInfo->{'BlockExtract'}
6639 20 184 if ($tagInfo->{'MakerNotes'}) { }
6641 20 0 if ($subdir->{'ByteOrder'} and not $invalid)
6644 1 19 defined $et->{'UnknownByteOrder'} ? :
6646 0 20 if ($doMaker and $doMaker eq '2') { }
20 0 elsif (not $tagInfo->{'NotIFD'} or $tagInfo->{'IsPhaseOne'}) { }
6667 0 20 if ($tagInfo->{'IsPhaseOne'}) { }
6672 1 19 if $subdir->{'FixBase'}
6676 20 0 if (defined $val2) { }
0 0 elsif ($size > 4) { }
6684 168 16 unless $tagInfo->{'Writable'}
6690 224 13003 if ($tagInfo->{'IsOffset'} and eval $tagInfo->{'IsOffset'})
6691 4 220 $tagInfo->{'IsOffset'} eq '2' ? :
6694 0 224 if ($tagInfo->{'WrongBase'})
6705 70 13157 if ($validate)
6706 10 60 if ($tagInfo->{'OffsetPair'}) { }
10 100 elsif ($Image::ExifTool::Exif::saveForValidate{$tagID} and $isExif) { }
6714 13216 11 if (defined $tagKey)
6716 9885 3331 if $tagTablePtr->{'SET_GROUP1'}
6718 2872 10344 if defined $rational
6719 0 13216 if $saveFormat
6724 5 1046 if ($validate and %offsetInfo)
6729 289 762 if ($dirInfo->{'Multi'} and $bytesFromEnd >= 4) { }
170 592 elsif (defined $dirInfo->{'Multi'}) { }
6738 289 169 unless my $offset = &Get32u($dataPt, $dirEnd)
6741 169 0 $newDirInfo{'DirName'} =~ s/(\d+)$// ? :
6744 169 0 if ($newDirInfo{'DirName'} ne 'SubIFD1' or &ValidateIFD(\%newDirInfo)) { }
0 0 elsif ($verbose or $et->{'TIFF_TYPE'} eq 'TIFF') { }
6746 0 169 unless $et->ProcessDirectory(\%newDirInfo, $tagTablePtr)
6748 169 0 if ($success and $newDirInfo{'BytesFromEnd'} >= 4)