Branch Coverage

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


line true false branch
987 34 0 unless grep((!/^0/), @vals)
1008 660 0 if ($size >= 8) { }
1015 0 660 if ($type eq "clro" and $size >= 12)
1017 0 0 if ($size >= $num + 12)
1023 0 660 if ($type eq "data" and $size >= 12)
1026 0 0 if $form == 0
1030 0 660 if ($type eq "dtim" and $size >= 20)
1037 0 660 if ($type eq "sf32")
1041 20 640 if ($type eq "sig " and $size >= 12)
1045 57 583 if $type eq "text"
1047 117 466 if ($type eq "desc" and $size >= 12)
1049 117 0 if ($size >= $len + 12)
1056 0 466 if ($type eq "uf32")
1060 0 466 if ($type eq "ui32")
1064 0 466 if ($type eq "ui64")
1068 0 466 if ($type eq "ui08")
1072 295 171 if ($type eq "XYZ ")
1076 0 295 if $str
1096 0 0 if ($dirLen < 16 or substr($$dataPt, $dirStart, 4) ne "dict")
1103 0 0 if $size < 16
1110 0 0 if ($entry + $size > $dirEnd)
1118 0 0 unless $namePtr and $valuePtr
1119 0 0 if ($namePtr < $minPtr or $namePtr + $nameLen > $dirLen or $valuePtr < $minPtr or $valuePtr + $valueLen > $dirLen)
1130 0 0 unless ($tagTablePtr->{$tag})
1134 0 0 unless length $name
1154 0 0 if $raf->Read($buff, 24) and &ValidateICC(\$buff)
1157 0 0 if (defined $buff and length $buff) { }
1158 0 0 unless &Write($dirInfo->{'OutFile'}, $buff)
1174 0 9 unless $et
1177 2 7 unless $dirName eq "ICC_Profile"
1180 7 0 unless defined $val
1181 7 0 unless $et->IsOverwriting($nvHash, $val)
1194 0 12 if length $$valPtr < 24
1195 0 12 unless $profileClass{substr $$valPtr, 12, 4}
1199 0 12 unless $col =~ /$match/
1200 0 12 unless $con =~ /$match/
1201 0 12 $err ? :
1213 0 1 unless $raf->Read($buff, 24) == 24
1215 0 1 if &ValidateICC(\$buff)
1219 0 1 if ($size < 128 or $size & 2147483648)
1224 0 1 unless ($raf->Read($buff, $size) == $size)
1251 0 62 if $dirLen < 4
1254 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')
1266 5 57 if ($len != $dirLen or $len < 128)
1268 5 0 if $len < 128 or $dirLen < $len
1272 0 57 if ($numEntries < 1 or $numEntries >= 256 or $numEntries * 12 + 132 > $dirLen)
1279 0 57 if ($verbose)
1286 0 57 if $dirCount > 1
1310 0 0 if (not $tagInfo and $et->{'OPTIONS'}{'Unknown'} || $verbose)
1314 0 700 unless defined $tagInfo
1316 0 700 if ($offset + $size > $dirLen)
1325 700 0 if ($size > 4) { }
1328 0 700 if ($fmt eq "mluc" and not $subdir)
1329 0 0 if $size < 28
1332 0 0 if $recLen < 12
1336 0 0 if $recPos + $recLen > $valuePtr + $size
1340 0 0 if ($lang =~ s/^([a-z]{2})([A-Z]{2})$/\L$1-\E\U$2\E/i and $lang ne "en-US")
1345 0 0 if $strPos + $strLen > $size
1359 0 0 if $i < $count
1365 660 40 unless $subdir
1366 0 700 if $verbose
1375 40 660 if ($subdir) { }
489 171 elsif (defined $value) { }
1378 40 0 if ($subdir->{'TagTable'}) { }
1380 0 40 unless ($newTagTable)
1400 0 40 if (defined $subdir->{'Validate'} and not eval $subdir->{'Validate'}) { }
1410 42 129 unless defined $tagInfo->{'ValueConv'}