Branch Coverage

blib/lib/Image/ExifTool/Exif.pm
Criterion Covered Total %
branch 383 792 48.3


line true false branch
5049 71 206 if ($et->{'FILE_TYPE'} eq "TIFF" and not $et->{'IdentifiedRawFile'})
5050 3 68 if ($Image::ExifTool::Exif::compression{$comp} and $Image::ExifTool::Exif::compression{$comp} =~ /^\w+ ([A-Z]{3}) Compressed$/)
5065 0 128 unless @_ >= 3
5067 0 379 unless $_ and /([+-]?(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?)/ and $1 > 0
5096 32 536 if $focal and $foc35
5102 60 476 if ($et->{'Make'} eq "Canon")
5108 33 27 if $canonDiag
5110 496 40 unless ($diag and &Image::ExifTool::IsFloat($diag))
5111 0 496 if ($sens and $sensXY =~ / (\d+(\.?\d*)?)$/) { }
5117 18 478 if ($xsize and $ysize)
5120 18 0 if (abs $a - "1.3333" < "0.1" or abs $a - "1.5" < "0.1")
5125 478 18 unless ($diag)
5131 0 124 unless &Image::ExifTool::IsFloat($x_res) and $x_res != 0
5132 0 124 unless &Image::ExifTool::IsFloat($y_res) and $y_res != 0
5135 0 126 if @_ < 2
5138 2 124 unless $w and $h
5140 124 0 if $a > "0.5" and $a < 2
5147 116 8 unless $diag > 1 and $diag < 100
5159 294 0 if (defined $val)
5161 266 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) { }
5181 436 731 if ($val =~ m[([-+]?\d+)/(\d+)])
5182 0 0 $1 ? :
436 0 $2 ? :
5196 1 95 if length $val < 8
5202 0 95 if ($et->{'OPTIONS'}{'Validate'} and $id =~ /^(ASCII|UNICODE|JIS)?\0* \0*$/)
5203 0 0 $tag ? :
5208 95 0 if ($id =~ /^(ASCII)?(\0|[\0 ]+$)/) { }
0 0 elsif ($id =~ /^(UNICODE)[\0 ]$/) { }
0 0 elsif ($id =~ /^(JIS)[\0 ]{5}$/) { }
5213 94 1 if ($asciiFlex and $asciiFlex eq 1)
5215 0 94 if $enc
5230 0 0 if $asciiFlex and $asciiFlex ne 1
5231 0 0 $tag ? :
5234 0 0 if ($et->{'WrongByteOrder'} and $et->{'OPTIONS'}{'Validate'})
5235 0 0 $tag ? :
0 0 $type ? :
5247 0 0 unless length $val > 4
5251 0 0 unless @cols == $n + 1 and $pos >= 4
5270 147 52 if $inv
5271 52 0 if ($val > 0)
5272 0 52 if ($val > 65520) { }
5291 28 39 if $val =~ /\bn/i or $isFloat and $val == 0
5293 0 39 if $val =~ /\b(s|l)/i or $isFloat and $val < 0
5295 37 2 if $val =~ /\bh/i or $isFloat
5320 146 86 unless $levels = shift()
5322 0 86 if @levels < 2
5325 78 8 if ($g < 4) { }
0 8 elsif ($levels[$$lookup[$blue * 3]] < 4) { }
5326 0 78 if @levels < 3
5327 0 78 unless $g = ($levels[$g] + $levels[$lookup->[2]]) / 2
5334 4 0 if not defined $val and ($_[0] and $_[1])
5343 0 575 unless &Image::ExifTool::IsFloat($secs)
5344 436 139 if ($secs < "0.25001" and $secs > 0)
5357 361 0 if (&Image::ExifTool::IsFloat($val) and $val > 0)
5359 15 346 $val < 1 ? :
5372 0 5 if ($val =~ /^[0-6]+$/)
5376 0 5 unless length $val >= 4
5377 2 3 &GetByteOrder() eq 'II' ? :
5379 2 3 if ($end > @a)
5382 0 2 if (@a < 2 + $x * $y) { }
5399 0 6 unless @a >= 2
5400 0 6 unless $a[0] and $a[1]
5402 0 6 if $end > @a
5407 6 18 if ++$pos >= $end
5408 12 6 if ($pos - 2) % $a[1]
5421 0 0 if $inv
5422 0 0 unless length $$val > 4
5427 0 0 unless $pos + 16 <= length $$val
5443 0 12 unless @vals == 4
5446 44 4 if &Image::ExifTool::IsFloat($_)
5447 0 4 if $_ eq "inf"
5448 4 0 if $_ eq "undef"
5450 0 12 unless $c == 4
5453 9 3 if $vals[1] and $vals[1] ne $vals[0]
5455 5 7 if $vals[3] and $vals[3] ne $vals[2]
5469 7 46 if $unk
5470 20 33 unless $lens =~ m[($pat)(?:-($pat))?\s*mm.*?(?:[fF]/?\s*)($pat)(?:-($pat))?]
5473 0 33 unless $a[1]
5474 0 33 unless $a[3]
5475 1 32 if ($unk)
5489 0 4 if (@$try > 1 and $lensModel)
5492 0 0 if ($lensModel =~ /((\d+-)?\d+mm)/)
5495 0 0 if @filt and @filt < @$try
5498 0 0 if (@$try > 1 and $lensModel =~ m[(?:F/?|1:)(\d+(\.\d+)?)]i)
5501 0 0 if @filt and @filt < @$try
5505 0 0 unless @$try > 1 and $lensModel =~ /\b($pat)\b/
5508 0 0 if @filt and @filt < @$try
5526 0 36 unless defined $lensType
5528 36 0 unless $printConv
5531 0 36 unless (ref $printConv eq "HASH")
5532 0 0 if (ref $printConv eq 'ARRAY' and ref $printConv->[0] eq 'HASH') { }
5537 0 0 if $lensTypePrt =~ /mm/
5538 0 0 if $lensTypePrt =~ s[(\d)/F][$1mm F]
5544 0 36 if ($lensSpecPrt)
5546 0 0 unless $sa0
5549 2 34 unless $maxAperture
5550 1 35 if ($lensFocalRange and $lensFocalRange =~ /^(\d+)(?: (?:to )?(\d+))?$/)
5553 0 36 if ($et->{'Make'} eq 'SONY') { }
30 6 elsif ($shortFocal and $longFocal and not $lensModel && $lensModel =~ /^TAMRON.*-\d+mm/) { }
5554 0 0 if ($lensType eq 65535) { }
0 0 elsif ($lensType != 65280) { }
5556 0 0 if ($et->{'Model'} =~ /NEX|ILCE/)
5557 0 0 unless (%sonyEtype)
5562 0 0 if $did{$lens}
5563 0 0 $index ? :
5576 0 0 if ($Image::ExifTool::Minolta::metabonesID{$lensType & 65280}) { }
0 0 elsif ($lensType >= 18688 and $lensType <= 22794) { }
5577 0 0 $lensType >= 48128 ? :
0 0 $lensType >= 61184 ? :
5580 0 0 if $printConv->{$lensType}
5588 0 0 if $printConv->{$lensType}
5600 1 5 unless $lens
5601 1 4 unless $$printConv{"$lensType.1"}
5612 0 32 if $Image::ExifTool::userLens{$lens}
5618 4 28 unless $sf
5620 0 28 if ($sf0)
5621 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"
5628 0 0 if $lensSpecPrt and $lens =~ / \Q$lensSpecPrt\E( \(| GM$|$)/
5630 0 0 unless $lens =~ /^Sony /
5634 0 28 if ($lens =~ / \+ .*? (\d+(\.\d+)?)x( |$)/)
5639 28 0 if ($focalLength)
5640 19 9 if $focalLength < $sf - "0.5"
5641 1 8 if $focalLength > $lf + "0.5"
5643 8 0 if ($maxAperture)
5649 5 3 if $maxAperture < $sa - "0.15"
5650 0 3 if $maxAperture > $la + "0.15"
5653 3 0 if ($sf == $lf or $sa == $la or $focalLength <= $sf) { }
0 0 elsif ($focalLength >= $lf) { }
5667 0 3 if (defined $diff)
5668 0 0 if $d > $diff + "0.15"
5669 0 0 if $d < $diff - "0.15"
5677 0 4 if (@user)
5679 0 0 if (@user > 1)
5683 0 0 if @good
5689 1 3 unless @best
5690 3 1 if (@best)
5695 0 1 if $lensModel and $lens =~ / or /
5749 52 8 ref $tagInfo eq 'HASH' ? :
5750 0 60 unless defined $fmt
5752 0 60 unless defined $val
5755 4 56 if $tag == 273
5756 12 48 if (length $val > 4) { }
5760 24 24 if length $val < 4
5765 0 4 unless $offsetPos
5782 0 14 if $et->{'FILE_TYPE'} eq "RWZ"
5785 26 14 $i ? :
5786 14 26 unless defined $value->{$key}
5787 14 12 unless $value->{$key} == 1
5790 6 6 unless $cmp == 1
5797 58 2 if defined $val
5798 0 2 unless defined $vals{$_}
5809 2 4 unless $len[$j] == $rowBytes * $vals{'RowsPerStrip'}
5811 0 4 unless defined $tmp
5834 0 4 if (not defined $img) { }
0 4 elsif ($rtn or $w > 256) { }
5835 0 0 $w > 256 ? :
5843 0 14 unless wantarray
5861 61 146 if not $len or $et->{'FILE_TYPE'} eq "XMP"
5864 104 42 if (defined $dataPos and $offset >= $dataPos and $offset + $len <= $dataPos + length($$dataPt)) { }
5868 5 37 unless defined $image
5870 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)/)
5875 0 0 if (defined $try and $try =~ /^\xff\xd8\xff/)
5892 19 1 $tagInfo ? :
5904 0 0 defined $et->{'OffsetNum'} ? :
5907 0 0 defined $id ? :
5938 0 0 if $et->{'ImageDataMD5'} and $et->{'FILE_TYPE'} eq 'TIFF' && !$base && !$inMakerNotes || $et->{'FILE_TYPE'} eq 'RAF' && $dirName eq 'FujiIFD'
5941 871 239 if $tagTablePtr->{'GROUPS'}{'0'} eq "EXIF"
5944 7 0 if ($validate || $Image::ExifTool::MWG::strict and $dirName eq "IFD0" and $isExif and $et->{'FILE_TYPE'} =~ /^(JPEG|TIFF|PSD)$/)
5948 7 0 if ($path =~ /^(JPEG-APP1-IFD0|TIFF-IFD0|PSD-EXIFInfo-IFD0)$/) { }
5949 7 0 unless ($et->{'DOC_NUM'})
5950 0 7 if $et->{'HasExif'}
5954 0 0 if ($Image::ExifTool::MWG::strict) { }
5963 0 1110 if $htmlDump
5964 7 1103 if $validate and not $verbose
5965 1 1109 if $dirName eq "EXIF"
5966 285 825 if $dirName =~ /^(IFD0|SubIFD)$/ and not defined $dirInfo->{'Multi'}
5969 537 30 unless $dir and $inMakerNotes and not $dir =~ /^MakerNote/
5972 1034 76 if ($dirStart >= 0 and $dirStart <= $dataLen - 2)
5977 387 647 if ($dirSize > $dirLen)
5978 0 387 if ($verbose > 0 || $validate and not $dirInfo->{'SubIFD'})
5984 0 387 if $dirEnd > $dataLen
5988 76 1034 unless ($dirSize)
5990 76 0 if ($raf)
5994 76 0 if ($raf->Seek($offset + $base, 0) and $raf->Read($buff, 2) == 2)
5997 76 0 if ($raf->Read($buf2, $len + 4) >= $len)
6008 76 0 if ($success) { }
6012 0 0 unless $inMakerNotes and $dirLen >= 14 and $dirStart >= 0 and $dirStart + $dirLen <= length $$dataPt
6021 14 1096 if $verbose > 0
6023 4 1106 if ($bytesFromEnd < 4)
6024 0 4 unless ($bytesFromEnd == 2 or $bytesFromEnd == 0)
6030 134 976 if (defined $dirInfo->{'MakerNoteAddr'})
6033 3 131 if (&Image::ExifTool::MakerNotes::FixBase($et, $dirInfo))
6038 0 1110 if ($htmlDump)
6040 0 0 $dir eq 'MakerNotes' ? :
6041 0 0 if (defined $makerAddr)
6043 0 0 if $hdrLen > 0
6045 0 0 unless ($dirInfo->{'NoDumpEntryCount'})
6051 0 0 if ($bytesFromEnd >= 4)
6052 0 0 $dir =~ /^(.*?)(\d+)$/ ? :
6055 0 0 if $off
6062 0 183 if ($inMakerNotes and $et->{'Model'} eq "Canon EOS 40D" and $numEntries)
6065 0 0 if ($fmt < 1 or $fmt > 13)
6079 7 1103 if $tagTablePtr->{'VARS'}
6083 0 15748 if ($warnCount > 10)
6084 0 0 if $et->Warn("Too many warnings -- $dir parsing aborted", 2)
6091 0 15748 if ($format < 1 || $format > 13 and not $format == 16 && $et->{'Make'} eq 'Apple' && $inMakerNotes)
6092 0 0 if ($mapFmt and $mapFmt->{$format}) { }
6098 0 0 if ($format or $validate)
6103 0 0 unless $index or $et->{'Model'} eq "ILCE-7M2"
6115 0 15748 if $saveFormat
6117 0 9347 if ($count < 2 and ref $tagTablePtr->{$tagID} eq "HASH" and $tagTablePtr->{$tagID}{'FixCount'})
6118 0 0 unless $offList
6121 0 0 if (defined $i and $i < $#$offList)
6124 0 0 if $oldCount != $count
6127 63 15685 if $validate and not $inMakerNotes
6131 7116 8632 if ($size > 4)
6132 0 7116 if ($size > 2147483647 and not $tagInfo && $tagInfo->{'ReadFromRAF'})
6138 20 7096 if ($validate and not $inMakerNotes)
6140 0 20 if $valuePtr & 1
6141 0 20 if ($valuePtr < 8 or $valuePtr + $size > length $$dataPt and $valuePtr + $size > $et->{'VALUE'}{'FileSize'})
6148 0 20 if ($valuePtr + $size > $dirStart + $dataPos and $valuePtr < $dirEnd + $dataPos + 4)
6152 81 0 if $_->[0] >= $valuePtr + $size or $_->[0] + $_->[1] <= $valuePtr
6158 0 7116 if ($dirInfo->{'FixOffsets'})
6160 0 0 unless $valEnd
6166 2 7114 if $valuePtr < 8 and not $dirInfo->{'ZeroOffsetOK'}
6168 10 7106 if ($dirInfo->{'EntryBased'} or ref $tagTablePtr->{$tagID} eq 'HASH' and $tagTablePtr->{$tagID}{'EntryBased'}) { }
6176 0 7116 if $valuePtr < $dirEnd and $valuePtr + $size > $dirStart
6178 449 6667 if ($valuePtr < 0 or $valuePtr + $size > $dataLen)
6181 449 0 if ($raf) { }
6184 0 0 if ($tagInfo) { }
6186 0 0 if $tagInfo->{'Unknown'}
6187 0 0 unless $tagInfo->{'Binary'}
6188 0 0 if $tagInfo->{'SubDirectory'}
6190 0 0 if ($et->{'OPTIONS'}{'Binary'} and not $et->{'EXCL_TAG_LOOKUP'}{$lcTag})
6194 0 0 unless $et->{'TAGS_FROM_FILE'} and $tagInfo->{'Protected'}
6197 0 0 if $et->{'REQ_TAG_LOOKUP'}{$lcTag}
6200 0 0 if defined $tagInfo
6210 449 0 unless (defined $buff)
6213 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) { }
6226 0 449 if ($wrn)
6228 0 0 unless $inMakerNotes or $htmlDump
6230 0 0 unless defined $buff
6241 0 0 if ($tagInfo) { }
0 0 elsif (defined $tagInfo) { }
6246 0 0 if ($tmpInfo)
6251 0 0 if ($tagInfo and $tagInfo->{'ChangeBase'})
6257 0 0 unless $tagStr
6259 0 0 if ($tagStr eq 'PreviewImage' and $et->{'RAF'}) { }
0 0 elsif ($leicaTrailer and $et->{'RAF'}) { }
6268 0 0 if ($verbose > 0)
6271 0 0 if ($et->Options('FastScan')) { }
6286 0 0 unless (defined $buff)
6296 2 7114 if (defined $suspect and $suspect == $warnCount)
6297 2 0 $tagInfo ? :
6298 2 0 if ($et->Warn("Suspicious $dir offset for $tagStr", $inMakerNotes))
6300 2 0 unless $verbose
6305 316 15430 if $format == 7 and $count == 1
6308 0 15746 if ($tagID > 61440 and $isExif)
6310 0 0 if (!$oldInfo || ref $oldInfo eq 'HASH' && $oldInfo->{'Condition'} && !$oldInfo->{'PSRaw'} and not $bad)
6316 0 0 if (defined $val and $val =~ /(.*): (.*)/)
6321 0 0 if ($tag)
6330 0 0 if $oldInfo
6335 406 15340 if (defined $tagInfo and not $tagInfo)
6336 0 406 if ($bad) { }
6340 173 233 $readSize < 128 ? :
6347 0 15746 if ($format == 13 || $format == 18 and not $tagInfo && $tagInfo->{'SubIFD'})
6351 15164 582 if (defined $tagInfo) { }
6356 742 580 if $subdir and not $tagInfo->{'SubIFD'} and not $readFormat
6358 1833 13331 if ($readFormat)
6361 995 838 if ($newNum and $newNum != $format)
6364 0 995 if $tagInfo->{'FixedSize'}
6370 0 15164 if ($tagInfo->{'IsOffset'} || $tagInfo->{'SubIFD'} and not $Image::ExifTool::Exif::intFormat{$formatStr})
6372 0 0 if ($validate)
6376 0 0 unless $verbose
6380 579 3 unless $verbose
6382 15167 0 unless ($bad)
6386 0 15167 if ($count > 100000 and not $formatStr =~ /^(undef|string|binary)$/)
6387 0 0 $tagInfo ? :
6389 0 0 if ($tagName ne "TransferFunction" or $count != 196608)
6390 0 0 $count > 2000000 ? :
6391 0 0 if ($et->Warn("Ignoring $dirName $tagName with excessive count", $minor))
6392 0 0 unless $et->{'OPTIONS'}{'HtmlDump'}
6397 0 15167 if ($count > 500 and not $formatStr =~ /^(undef|string|binary)$/ and !$tagInfo || $tagInfo->{'LongBinary'} || $warned and not $et->{'OPTIONS'}{'IgnoreMinorErrors'}) { }
6400 0 0 unless $warned
6401 0 0 if $et->{'TAGS_FROM_FILE'}
6407 0 0 if $strEnc and $formatStr eq "string" and defined $val
6411 345 14822 if ($verbose)
6414 40 305 if defined $rational
6415 0 345 if ($htmlDump) { }
6417 0 0 if ($tagInfo) { }
0 0 elsif ($tagID == 37500 and $dirName eq 'ExifIFD') { }
6426 0 0 if $size < 0
6428 0 0 if $origFormStr and $origFormStr ne $fstr
6429 0 0 if $wrongFormat
6432 0 0 if ($size > 4) { }
6438 0 0 $bad || !defined($tval) ? :
6439 0 0 if ($actPt != $offPt)
6441 0 0 $actPt < $offPt ? :
6443 0 0 if $style eq "H"
6445 0 0 if ($et->{'EXIF_POS'} and not $et->{'BASE_FUDGE'})
6449 0 0 if $offPt & 1
6453 0 0 if $wrongFormat
6454 0 0 if $tagID <= $lastID and not $inMakerNotes
6456 0 0 if (not defined $tval) { }
6459 0 0 if length $tval > 32
6460 0 0 if ($formatStr =~ /^(string|undef|binary)/) { }
0 0 elsif ($tagInfo and &Image::ExifTool::IsInt($tval)) { }
6464 0 0 if ($tagInfo->{'IsOffset'} or $tagInfo->{'SubIFD'}) { }
0 0 elsif ($tagInfo->{'PrintHex'}) { }
6467 0 0 if ($actPt != $val)
6469 0 0 $actPt < $val ? :
6480 0 0 if $tagInfo and $tagInfo->{'SubIFD'}
6482 0 0 if $valueDataLen < 0
6483 0 0 if ($size > 4)
6486 0 0 if ($subdir)
6487 0 0 if ($tagInfo->{'MakerNotes'}) { }
0 0 elsif ($tagInfo->{'NestedHtmlDump'}) { }
6490 0 0 $tagInfo->{'NestedHtmlDump'} == 2 ? :
6495 0 0 if ($subdir and $tagInfo->{'MakerNotes'} and $tagInfo->{'NotIFD'})
6500 0 345 if ($tagID <= $lastID and not $inMakerNotes)
6501 0 0 $tagInfo ? :
6502 0 0 if ($tagID == $lastID) { }
6509 257 88 if ($verbose > 0)
6511 13 244 if $origFormStr
6525 3 342 if not $tagInfo or $wrongFormat
6527 0 15164 unless defined $val
6531 1322 13842 if ($subdir)
6533 0 1322 unless ($size)
6534 0 0 unless ($tagInfo->{'MakerNotes'} or $inMakerNotes)
6541 156 1166 if ($subdir->{'MaxSubdirs'})
6545 0 156 if ($over > 0)
6551 954 368 if ($subdir->{'TagTable'}) { }
6553 0 954 unless $newTagTable
6564 469 859 if (defined $subdir->{'Start'})
6569 0 469 unless (&Image::ExifTool::IsInt($newStart))
6576 51 0 unless ($tagInfo->{'SubIFD'} or $subdir->{'BadOffset'})
6585 186 1142 if ($newByteOrder) { }
6586 38 148 if ($newByteOrder =~ /^Little/i) { }
29 119 elsif ($newByteOrder =~ /^Big/i) { }
0 119 elsif ($subdir->{'OffsetPt'}) { }
119 0 elsif ($subdirStart + 2 <= $subdirDataLen) { }
6599 4 115 if ($num & 65280 and $num >> 8 > ($num & 255)) { }
6611 38 1290 if ($subdir->{'Base'})
6618 27 1301 if ($subdir->{'OffsetPt'})
6621 0 27 if ($pos + 4 > $subdirDataLen)
6629 31 1297 if ($subdirStart < 0 or $subdirStart + 2 > $subdirDataLen)
6631 31 0 if ($raf) { }
6638 0 0 if ($verbose > 0)
6639 0 0 if ($subdirStart < 0) { }
6675 141 1187 if ($tagInfo->{'MakerNotes'})
6678 1 140 if $fast and $fast > 1
6680 36 104 if defined $subdir->{'Base'}
6685 418 909 if ($tagInfo->{'Groups'} and not $tagInfo->{'Writable'})
6688 6 412 if $dirNum
6695 0 1327 if (defined $subdir->{'Validate'} and not eval $subdir->{'Validate'}) { }
6699 662 665 if (not $subdirInfo{'DirName'} and $inMakerNotes)
6706 0 7 if (not $ok and $verbose > 1 and $subdirStart != $valuePtr)
6712 1321 6 unless @values
6716 1099 2 unless $doMaker or $et->{'REQ_TAG_LOOKUP'}{lc $tagStr} or $tagInfo->{'BlockExtract'}
6718 23 200 if ($tagInfo->{'MakerNotes'}) { }
6720 23 0 if ($subdir->{'ByteOrder'} and not $invalid)
6723 1 22 defined $et->{'UnknownByteOrder'} ? :
6725 0 23 if ($doMaker and $doMaker eq '2') { }
23 0 elsif (not $tagInfo->{'NotIFD'} or $tagInfo->{'IsPhaseOne'}) { }
6746 0 23 if ($tagInfo->{'IsPhaseOne'}) { }
6751 1 22 if $subdir->{'FixBase'}
6755 23 0 if (defined $val2) { }
0 0 elsif ($size > 4) { }
6763 184 16 unless $tagInfo->{'Writable'}
6769 231 13650 if ($tagInfo->{'IsOffset'} and eval $tagInfo->{'IsOffset'})
6770 4 227 $tagInfo->{'IsOffset'} eq '2' ? :
6773 0 231 if ($tagInfo->{'WrongBase'})
6784 70 13811 if ($validate or $doMD5)
6785 10 60 if ($tagInfo->{'OffsetPair'}) { }
10 100 elsif ($Image::ExifTool::Exif::saveForValidate{$tagID} and $isExif) { }
6793 13870 11 if (defined $tagKey)
6795 10381 3489 if $tagTablePtr->{'SET_GROUP1'}
6797 3024 10846 if defined $rational
6798 0 13870 if $saveFormat
6802 5 1105 if (%offsetInfo)
6804 0 5 if $doMD5
6806 5 0 if $validate
6810 304 806 if ($dirInfo->{'Multi'} and $bytesFromEnd >= 4) { }
177 629 elsif (defined $dirInfo->{'Multi'}) { }
6819 304 176 unless my $offset = &Get32u($dataPt, $dirEnd)
6822 176 0 $newDirInfo{'DirName'} =~ s/(\d+)$// ? :
6825 176 0 if ($newDirInfo{'DirName'} ne 'SubIFD1' or &ValidateIFD(\%newDirInfo)) { }
0 0 elsif ($verbose or $et->{'TIFF_TYPE'} eq 'TIFF') { }
6827 0 176 unless $et->ProcessDirectory(\%newDirInfo, $tagTablePtr)
6829 176 0 if ($success and $newDirInfo{'BytesFromEnd'} >= 4)