Branch Coverage

blib/lib/Image/ExifTool/Nikon.pm
Criterion Covered Total %
branch 59 232 25.4


line true false branch
11196 0 0 if $pos + $size > $dirEnd
11219 0 0 unless $dat[$i]
11221 0 0 unless $dat[$i] & 1 << $j
11223 0 0 if defined $point
11226 0 0 unless @points
11229 0 0 if length $a == length $b
11230 0 0 if length $a == 2
11245 0 10 if (@points)
11249 0 0 unless my $bitNum = $bitNum{uc $point}
11264 0 0 if ($inv) { }
11265 0 0 unless $val =~ /^([A-J])(\d+)$/i
11286 0 0 unless $dat[$i]
11288 0 0 unless $dat[$i] & 1 << $j
11290 0 0 if defined $point
11293 0 0 unless @points
11308 0 0 unless defined $n
11310 0 0 if $byte > $size
11324 0 0 if $col == $center
11325 0 0 if $col < $center
11326 0 0 if $col > $center
11337 0 0 if $row == $center
11338 0 0 if $row < $center
11339 0 0 if $row > $center
11351 0 0 if $val == 0
11352 0 0 if $val == 127
11353 0 0 if $val == -128
11355 0 0 if $val == -127
11367 55 59 if $val =~ /^[-+]?\d+(\.\d+)?$/
11368 0 59 if $val =~ m[n/a]i
11369 3 56 if $val =~ /auto/i
11370 0 56 if $val =~ /user/i
11380 0 0 if $inv
11382 0 0 if ($$conv{"$val.1"})
11385 0 0 unless my $lens = $$conv{"$val.$i"}
11386 0 0 if ($Image::ExifTool::userLens{$lens}) { }
11392 0 0 if @user
11402 0 0 if (@ids)
11406 0 0 if @good
11410 0 0 if @good
11414 0 0 if @good
11428 0 153 if (length $str > 60) { }
11433 97 56 if ($str =~ /[AEIOUY]/)
11436 50 47 if ($str =~ s/\b([AEIOUY])([A-Z]+)/$1\L$2\E/g)
11442 46 51 if ($str =~ s/\b([A-Z])([A-Z]*[AEIOUY][A-Z]*)/$1\L$2\E/g)
11497 1 3 unless $start
11499 1 3 if not defined $len or $len > $maxLen
11500 0 4 if $len <= 0
11515 3 1 $start ? :
11516 2 2 $end < length $$dataPt ? :
11528 26 0 if not defined $serial or $serial =~ /^\d+$/
11529 0 0 if $et->{'Model'} =~ /\bD50$/
11542 0 0 $dirInfo ? :
11545 0 0 unless $raf->Seek(-20 - $offset, 2) and $raf->Read($buff, 20) == 20 and substr($buff, -16) eq "\0\0\0\0\0\0/NIKON APP"
11551 0 0 if $trailerLen > $fileEnd
11552 0 0 if ($dirInfo)
11553 0 0 if $dirInfo
11555 0 0 if ($dirInfo->{'OutFile'})
11556 0 0 if ($et->{'DEL_GROUP'}{'NikonApp'}) { }
0 0 elsif ($trailerLen > $fileEnd or not $raf->Seek($dirInfo->{'DataPos'}, 0) or $raf->Read(${$$dirInfo{'OutFile'};}, $trailerLen) != $trailerLen) { }
11567 0 0 if $verbose or $et->{'HTML_DUMP'}
11569 0 0 unless ($trailerLen >= 64 and $raf->Seek($fileEnd - $trailerLen, 0) and $raf->Read($buff, 64) == 64 and $buff =~ /NIKON APP\0/)
11578 0 0 if ($len & 2147483648)
11582 0 0 if $id == 0 and $len == 0
11583 0 0 unless ($raf->Read($buff, $len) == $len)
11587 0 0 if ($id == 1) { }
11621 0 0 unless ($fmtStr)
11622 0 0 if $pass
11626 0 0 if ($pos + $size > $end)
11627 0 0 if $pass
11630 0 0 if ($pass) { }
0 0 elsif (exists $needTags{$tag}) { }
11641 0 0 if $rational and $key
11660 204 3 unless $et
11663 0 3 unless (defined $serial and defined $count and $serial =~ /^\d+$/ and $count =~ /^\d+$/)
11664 0 0 if (defined $serial or defined $count)
11666 0 0 if (defined $serial and defined $count) { }
11667 0 0 $serial =~ /^\d+$/ ? :
11669 0 0 defined $serial ? :
11677 0 3 $dirInfo->{'IsWriting'} ? :
11685 0 3 if ($dirInfo->{'IsWriting'})
11686 0 0 if ($et->{'NewNikonSerialKey'})
11690 0 0 if ($et->{'NewNikonCountKey'})
11695 3 0 if ($tagInfo and $tagInfo->{'SubDirectory'})
11698 3 0 if ($verbose < 3 and $et->Options("Unknown") < 2 and not $recrypt)
11705 0 3 unless $start
11706 1 2 if (defined $offset) { }
11714 1 2 unless ($len and $len < $maxLen)
11723 1 2 if $byteOrder
11725 0 3 if ($more)
11728 0 0 if $moreLen > $maxLen
11730 0 0 if ($len < $moreLen)
11736 0 3 if ($verbose > 2)
11754 0 3 if ($dirInfo->{'IsWriting'}) { }
11758 0 0 if ($recrypt)
11759 0 0 if defined $newSerial
11760 0 0 if defined $newCount
11763 0 0 if ($changed == $et->{'CHANGED'}) { }
11767 0 0 if $offset
11794 19 0 if ($dirStart >= 0 and $dirStart <= $dataLen - 2)
11797 0 19 if $dirStart + 2 + 12 * $numEntries > $dataLen
11800 0 19 unless ($numEntries)
11801 0 0 unless $raf
11803 0 0 unless $raf->Seek($dataPos + $base, 0) and $raf->Read($data, 2) == 2
11806 0 0 unless $raf->Read($buff, $len) == $len
11817 499 8 unless exists $tagHash->{$tagID}
11819 0 8 if $format < 1 or $format > 13
11824 1 7 if ($size > 4)
11825 0 1 if $size > 16777216
11830 0 1 if ($valuePtr < 0 or $valuePtr + $size > $dataLen)
11831 0 0 unless $raf and $raf->Seek($base + $valuePtr + $dataPos, 0) and $raf->Read($buff, $size) == $size
11865 0 2 unless $dirLen > 2
11867 0 2 unless $count and $count * 12 + 2 <= $dirLen
11868 0 2 if ($et->Options("Verbose"))
11876 6 0 if $et->HandleTag($tagTablePtr, $tagID, $value, "Index", $index, "DataPt", $dataPt, "Start", $pos, "Size", 12)
11894 297 19 unless $et
11904 7 12 if ($dirInfo->{'IsWriting'}) { }