| blib/lib/Image/ExifTool/ICC_Profile.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 29 | 84 | 34.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 935 | 660 | 0 | 0 | $type eq "clro" and $size >= 12 |
| 943 | 660 | 0 | 0 | $type eq "data" and $size >= 12 |
| 950 | 660 | 0 | 0 | $type eq "dtim" and $size >= 20 |
| 961 | 640 | 0 | 20 | $type eq "sig " and $size >= 12 |
| 967 | 466 | 0 | 117 | $type eq "desc" and $size >= 12 |
| 1038 | 0 | 0 | 0 | $namePtr and $valuePtr |
| 1074 | 0 | 0 | 0 | $raf->Read($buff, 24) and &ValidateICC(\$buff) |
| 1077 | 0 | 0 | 0 | defined $buff and length $buff |
| 1174 | 39 | 19 | 4 | $et->{'TAGS_FROM_FILE'} && !$et->{'EXCL_TAG_LOOKUP'}{'icc_profile'} || $et->{'REQ_TAG_LOOKUP'}{'icc_profile'} and !$dirInfo->{'Name'} || $dirInfo->{'Name'} eq 'ICC_Profile' |
| 1230 | 700 | 0 | 0 | not $tagInfo and $et->{'OPTIONS'}{'Unknown'} || $verbose |
| 1248 | 700 | 0 | 0 | $fmt eq "mluc" and not $subdir |
| 1260 | 0 | 0 | 0 | $lang =~ s/^([a-z]{2})([A-Z]{2})$/\L$1-\E\U$2\E/i and $lang ne "en-US" |
| 1320 | 0 | 40 | 0 | defined $subdir->{'Validate'} and not eval $subdir->{'Validate'} |
| line | l | !l | condition |
|---|---|---|---|
| 1095 | 9 | 0 | $dirInfo->{'DirName'} || 'ICC_Profile' |
| 1167 | 6 | 56 | $dirInfo->{'DirStart'} || 0 |
| 1205 | 0 | 57 | $et->{'DIR_COUNT'}{'ICC'} || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 1016 | 0 | 0 | 0 | $dirLen < 16 or substr($$dataPt, $dirStart, 4) ne "dict" |
| 1039 | 0 | 0 | 0 | $namePtr < $minPtr or $namePtr + $nameLen > $dirLen |
| 0 | 0 | 0 | $namePtr < $minPtr or $namePtr + $nameLen > $dirLen or $valuePtr < $minPtr | |
| 0 | 0 | 0 | $namePtr < $minPtr or $namePtr + $nameLen > $dirLen or $valuePtr < $minPtr or $valuePtr + $valueLen > $dirLen | |
| 1139 | 0 | 0 | 1 | $size < 128 or $size & 2147483648 |
| 1174 | 15 | 8 | 39 | $et->{'TAGS_FROM_FILE'} && !$et->{'EXCL_TAG_LOOKUP'}{'icc_profile'} || $et->{'REQ_TAG_LOOKUP'}{'icc_profile'} |
| 15 | 4 | 4 | !$dirInfo->{'Name'} || $dirInfo->{'Name'} eq 'ICC_Profile' | |
| 1186 | 5 | 0 | 57 | $len != $dirLen or $len < 128 |
| 1188 | 5 | 0 | 0 | $len < 128 or $dirLen < $len |
| 1192 | 0 | 0 | 57 | $numEntries < 1 or $numEntries >= 256 |
| 0 | 0 | 57 | $numEntries < 1 or $numEntries >= 256 or $numEntries * 12 + 132 > $dirLen | |
| 1230 | 0 | 0 | 0 | $et->{'OPTIONS'}{'Unknown'} || $verbose |
| 1268 | 0 | 0 | 0 | $langInfo || $tagInfo |