Branch Coverage

blib/lib/Image/ExifTool/ICC_Profile.pm
Criterion Covered Total %
branch 59 134 44.0


line true false branch
907 34 0 unless grep((!/^0/), @vals)
928 660 0 if ($size >= 8) { }
935 0 660 if ($type eq "clro" and $size >= 12)
937 0 0 if ($size >= $num + 12)
943 0 660 if ($type eq "data" and $size >= 12)
946 0 0 if $form == 0
950 0 660 if ($type eq "dtim" and $size >= 20)
957 0 660 if ($type eq "sf32")
961 20 640 if ($type eq "sig " and $size >= 12)
965 57 583 if $type eq "text"
967 117 466 if ($type eq "desc" and $size >= 12)
969 117 0 if ($size >= $len + 12)
976 0 466 if ($type eq "uf32")
980 0 466 if ($type eq "ui32")
984 0 466 if ($type eq "ui64")
988 0 466 if ($type eq "ui08")
992 295 171 if ($type eq "XYZ ")
996 0 295 if $str
1016 0 0 if ($dirLen < 16 or substr($$dataPt, $dirStart, 4) ne "dict")
1023 0 0 if $size < 16
1030 0 0 if ($entry + $size > $dirEnd)
1038 0 0 unless $namePtr and $valuePtr
1039 0 0 if ($namePtr < $minPtr or $namePtr + $nameLen > $dirLen or $valuePtr < $minPtr or $valuePtr + $valueLen > $dirLen)
1050 0 0 unless ($tagTablePtr->{$tag})
1054 0 0 unless length $name
1074 0 0 if $raf->Read($buff, 24) and &ValidateICC(\$buff)
1077 0 0 if (defined $buff and length $buff) { }
1078 0 0 unless &Write($dirInfo->{'OutFile'}, $buff)
1094 0 9 unless $et
1097 2 7 unless $dirName eq "ICC_Profile"
1100 7 0 unless defined $val
1101 7 0 unless $et->IsOverwriting($nvHash, $val)
1114 0 12 if length $$valPtr < 24
1115 0 12 unless $profileClass{substr $$valPtr, 12, 4}
1119 0 12 unless $col =~ /$match/
1120 0 12 unless $con =~ /$match/
1121 0 12 $err ? :
1133 0 1 unless $raf->Read($buff, 24) == 24
1135 0 1 if &ValidateICC(\$buff)
1139 0 1 if ($size < 128 or $size & 2147483648)
1144 0 1 unless ($raf->Read($buff, $size) == $size)
1171 0 62 if $dirLen < 4
1174 19 4 if ($et->{'TAGS_FROM_FILE'} && !$et->{'EXCL_TAG_LOOKUP'}{'icc_profile'} || $et->{'REQ_TAG_LOOKUP'}{'icc_profile'} and !$dirInfo->{'Name'} || $dirInfo->{'Name'} eq 'ICC_Profile')
1186 5 57 if ($len != $dirLen or $len < 128)
1188 5 0 if $len < 128 or $dirLen < $len
1192 0 57 if ($numEntries < 1 or $numEntries >= 256 or $numEntries * 12 + 132 > $dirLen)
1199 0 57 if ($verbose)
1206 0 57 if $dirCount > 1
1230 0 0 if (not $tagInfo and $et->{'OPTIONS'}{'Unknown'} || $verbose)
1234 0 700 unless defined $tagInfo
1236 0 700 if ($offset + $size > $dirLen)
1245 700 0 if ($size > 4) { }
1248 0 700 if ($fmt eq "mluc" and not $subdir)
1249 0 0 if $size < 28
1252 0 0 if $recLen < 12
1256 0 0 if $recPos + $recLen > $valuePtr + $size
1260 0 0 if ($lang =~ s/^([a-z]{2})([A-Z]{2})$/\L$1-\E\U$2\E/i and $lang ne "en-US")
1265 0 0 if $strPos + $strLen > $size
1279 0 0 if $i < $count
1285 660 40 unless $subdir
1286 0 700 if $verbose
1295 40 660 if ($subdir) { }
489 171 elsif (defined $value) { }
1298 40 0 if ($subdir->{'TagTable'}) { }
1300 0 40 unless ($newTagTable)
1320 0 40 if (defined $subdir->{'Validate'} and not eval $subdir->{'Validate'}) { }
1330 42 129 unless defined $tagInfo->{'ValueConv'}