Branch Coverage

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


line true false branch
906 34 0 unless grep((!/^0/), @vals)
927 660 0 if ($size >= 8) { }
934 0 660 if ($type eq "clro" and $size >= 12)
936 0 0 if ($size >= $num + 12)
942 0 660 if ($type eq "data" and $size >= 12)
945 0 0 if $form == 0
949 0 660 if ($type eq "dtim" and $size >= 20)
956 0 660 if ($type eq "sf32")
960 20 640 if ($type eq "sig " and $size >= 12)
964 57 583 if $type eq "text"
966 117 466 if ($type eq "desc" and $size >= 12)
968 117 0 if ($size >= $len + 12)
975 0 466 if ($type eq "uf32")
979 0 466 if ($type eq "ui32")
983 0 466 if ($type eq "ui64")
987 0 466 if ($type eq "ui08")
991 295 171 if ($type eq "XYZ ")
995 0 295 if $str
1015 0 0 if ($dirLen < 16 or substr($$dataPt, $dirStart, 4) ne "dict")
1022 0 0 if $size < 16
1029 0 0 if ($entry + $size > $dirEnd)
1037 0 0 unless $namePtr and $valuePtr
1038 0 0 if ($namePtr < $minPtr or $namePtr + $nameLen > $dirLen or $valuePtr < $minPtr or $valuePtr + $valueLen > $dirLen)
1049 0 0 unless ($tagTablePtr->{$tag})
1053 0 0 unless length $name
1073 0 0 if $raf->Read($buff, 24) and &ValidateICC(\$buff)
1076 0 0 if (defined $buff and length $buff) { }
1077 0 0 unless &Write($dirInfo->{'OutFile'}, $buff)
1093 0 9 unless $et
1096 2 7 unless $dirName eq "ICC_Profile"
1099 7 0 unless defined $val
1100 7 0 unless $et->IsOverwriting($nvHash, $val)
1113 0 12 if length $$valPtr < 24
1114 0 12 unless $profileClass{substr $$valPtr, 12, 4}
1118 0 12 unless $col =~ /$match/
1119 0 12 unless $con =~ /$match/
1120 0 12 $err ? :
1132 0 1 unless $raf->Read($buff, 24) == 24
1134 0 1 if &ValidateICC(\$buff)
1138 0 1 if ($size < 128 or $size & 2147483648)
1143 0 1 unless ($raf->Read($buff, $size) == $size)
1170 0 62 if $dirLen < 4
1173 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')
1185 5 57 if ($len != $dirLen or $len < 128)
1187 5 0 if $len < 128 or $dirLen < $len
1191 0 57 if ($numEntries < 1 or $numEntries >= 256 or $numEntries * 12 + 132 > $dirLen)
1198 0 57 if ($verbose)
1205 0 57 if $dirCount > 1
1229 0 0 if (not $tagInfo and $et->{'OPTIONS'}{'Unknown'} || $verbose)
1233 0 700 unless defined $tagInfo
1235 0 700 if ($offset + $size > $dirLen)
1244 700 0 if ($size > 4) { }
1247 0 700 if ($fmt eq "mluc" and not $subdir)
1248 0 0 if $size < 28
1251 0 0 if $recLen < 12
1255 0 0 if $recPos + $recLen > $valuePtr + $size
1259 0 0 if ($lang =~ s/^([a-z]{2})([A-Z]{2})$/\L$1-\E\U$2\E/i and $lang ne "en-US")
1264 0 0 if $strPos + $strLen > $size
1278 0 0 if $i < $count
1284 660 40 unless $subdir
1285 0 700 if $verbose
1294 40 660 if ($subdir) { }
489 171 elsif (defined $value) { }
1297 40 0 if ($subdir->{'TagTable'}) { }
1299 0 40 unless ($newTagTable)
1319 0 40 if (defined $subdir->{'Validate'} and not eval $subdir->{'Validate'}) { }
1329 42 129 unless defined $tagInfo->{'ValueConv'}