Branch Coverage

blib/lib/Image/ExifTool/NikonCapture.pm
Criterion Covered Total %
branch 33 62 53.2


line true false branch
709 42 1 unless $et
712 0 0 unless ($et->{'EDIT_DIRS'}{'MakerNotes'} or $et->{'EDIT_DIRS'}{'IPTC'})
718 0 1 if ($dirLen < 22)
728 0 1 unless ($tagID == 2055645504 and $pad >= 0 || $pad == -18)
733 0 1 if ($pad > 0) { }
748 0 50 if $size < 0 or $pos + 22 + $size > $dirEnd
750 32 18 if ($tagInfo)
752 12 20 if ($tagInfo->{'SubDirectory'}) { }
2 18 elsif ($newTags->{$tagID}) { }
762 1 11 if $tagInfo->{'Name'} =~ /IPTC/
772 2 0 if ($et->IsOverwriting($nvHash, $oldVal))
774 2 0 if defined $val
775 2 0 if (defined $newVal and length $newVal) { }
783 14 18 if (defined $newVal)
784 0 14 unless length $newVal
795 0 1 unless ($pos == $dirEnd)
796 0 0 if ($pos == $dirEnd - 4) { }
824 0 0 unless $dirLen > 4
827 0 0 if $verbose
829 0 0 if $pos + 4 > $dirEnd
831 0 0 if $pos + $len + 4 > $dirEnd
862 0 2 if $verbose
868 0 100 if $size < 0 or $pos + $size > $dirEnd
870 64 36 if ($tagInfo or $verbose)
873 64 0 if $tagInfo
875 0 24 if (not $format and $size == 1 || $size == 2 || $size == 4)
878 40 24 if ($format) { }
0 24 elsif ($size == 1) { }
880 0 40 if ($format eq "string" or $format eq "undef")
882 0 0 if $tagInfo and $tagInfo->{'AdjustSize'}
893 40 24 if $et->HandleTag($tagTablePtr, $tagID, $value, "DataPt", $dataPt, "DataPos", $dirInfo->{'DataPos'}, "Base", $dirInfo->{'Base'}, "Start", $pos, "Size", $size)