Condition Coverage

blib/lib/Image/ExifTool/MIE.pm
Criterion Covered Total %
condition 84 214 39.2


and 3 conditions

line !l l&&!r l&&r condition
778 0 0 0 ref $tagInfo eq "HASH" and $tagInfo->{'SubDirectory'}
783 0 0 0 $subTablePtr->{'PROCESS_PROC'} and $subTablePtr->{'PROCESS_PROC'} eq \&Image::ExifTool::MIE::ProcessMIE
786 0 0 0 $mieMap{$group} and $mieMap{$group} ne $parent
810 48 0 0 $tagInfo->{'Writable'} and $tagInfo->{'Writable'} ne "string"
896 534 12 1 $ulist and $$valPtr =~ /(.*)\((.*)\)$/
313 226 7 not $format =~ /^(utf|string|undef)/ and $$valPtr =~ /\)$/
906 266 273 0 $format eq "string" and $et->{'OPTIONS'}{'Charset'} ne "UTF8"
539 0 0 $format eq "string" and $et->{'OPTIONS'}{'Charset'} ne "UTF8" and $$valPtr =~ /[\x80-\xff]/
1011 124 0 0 $delGroup and $tagLen
124 0 0 $delGroup and $tagLen and ($format & 240) != 16
1029 81 17 40 $tagLen and $editTags[0] gt $tag
1044 0 11 27 $subTablePtr->{'WRITE_PROC'} && $subTablePtr->{'WRITE_PROC'} eq \&Image::ExifTool::MIE::ProcessMIE
1059 0 0 0 $inflate and $stat == Compress::Zlib::Z_STREAM_END()
1073 14 0 0 $optCompress and not $dirInfo->{'IsCompressed'}
1132 0 0 0 $compress || $optCompress || $dirInfo->{'IsCompressed'} and eval { do { require Compress::Zlib } }
1192 0 0 0 $inflate and $stat == Compress::Zlib::Z_STREAM_END()
1201 0 0 0 $isOverwriting < 0 and defined $val
1253 0 0 0 $newTag eq $lastTag and $newInfo->{'List'} || $deletedTag eq $lastTag
1313 64 0 0 $compress || $optCompress and not $dirInfo->{'IsCompressed'}
64 0 0 $compress || $optCompress and not $dirInfo->{'IsCompressed'} and &HasZlib($et, "write")
1371 38 8 0 $valLen and not $raf->Seek($valLen, 1)
1381 0 0 9 $len and $len <= 2147483647
1394 0 0 23 $tagInfo and $tagInfo->{'SubDirectory'}
1432 0 44 2 not $msg and $toWrite
1514 113 27 0 $valLen and not $raf->Seek($valLen, 1)
1547 0 0 0 $formatStr eq "MIE" and $format & 4
1557 0 0 0 $inflate and $stat == Compress::Zlib::Z_STREAM_END()
1570 0 0 113 $tagInfo and $tagInfo->{'SubDirectory'}
1611 0 0 0 $s and not $formatStr =~ /^(utf|string|undef)/
1650 320 51 117 $notUTF8 and $formatStr =~ /^(utf|string)/
1664 423 0 65 defined $rational and defined $key
1674 132 0 8 $mime and not $dirInfo->{'Parent'}
1712 0 0 0 $raf->Seek($curPos - 14, 0) and $raf->Read($buff, 4)
1722 0 0 26 defined $pos and $raf->Seek($pos, 0)
1726 19 7 0 $outfile and $et->{'DEL_GROUP'}{'MIE'}
1747 0 35 0 $len > 252 and not $raf->Seek(1 << 256 - $len, 1)
1814 9 0 0 defined $msg and $isCreating

or 2 conditions

line l !l condition
926 46 0 $dirInfo->{'ToWrite'} || ''
939 37 9 $cnt->{'MIE-Main'} || 0
945 0 37 $cnt->{$grp1} || 0
1181 0 0 &HasZlib($et, "edit") or last
1199 0 0 $mieFormat{$format & 251} || 'undef'
1462 113 27 $cnt->{'MIE-Main'} || 0
1468 0 113 $cnt->{$grp1} || 0
1546 606 0 $mieFormat{$format & 251} || 'undef'
1698 26 0 $dirInfo->{'Offset'} || 0

or 3 conditions

line l !l&&r !l&&!r condition
854 60 248 24 $1 eq "utf8" or $1 eq "string"
890 274 273 0 $tagInfo->{'Writable'} || $tagInfo->{'Table'}{'WRITABLE'}
893 0 0 547 not $format or $format eq 1
960 0 0 9 $et->{'DEL_GROUP'}{'MIE'} or $et->{'DEL_GROUP'}{$grp}
0 0 9 $et->{'DEL_GROUP'}{'MIE'} or $et->{'DEL_GROUP'}{$grp} or $et->{'DEL_GROUP'}{$grp1}
0 0 9 $et->{'DEL_GROUP'}{'MIE'} or $et->{'DEL_GROUP'}{$grp} or $et->{'DEL_GROUP'}{$grp1} or $et->{'DEL_GROUP'}{"MIE$n"}
977 0 0 1 $n or defined $sync
1011 0 0 124 $format == 128 or $delGroup and $tagLen and ($format & 240) != 16
1096 14 0 0 $newInfo->{'SubDirectory'}{'DirName'} || $newTag
1099 0 0 14 $dirInfo->{'IsCompressed'} || $compress
1132 0 0 0 $compress || $optCompress || $dirInfo->{'IsCompressed'}
1179 0 0 1 $isOverwriting < 0 or $verbose > 1
1253 0 0 0 $newInfo->{'List'} || $deletedTag eq $lastTag
59 0 0 $nvHash->{'IsCreating'} or $newTag eq $lastTag and $newInfo->{'List'} || $deletedTag eq $lastTag
1258 19 40 0 $newInfo->{'Writable'} || $tagTablePtr->{'WRITABLE'}
1313 0 0 64 $compress || $optCompress
1391 23 0 69 $format == 16 or $format == 24
1409 23 0 0 $dirName || $tag
1432 46 0 0 $ok || $msg
1547 606 0 0 $tagInfo or $formatStr eq "MIE" and $format & 4
1585 113 0 0 $dirName || $tag
1607 8 8 477 $tag eq "0Type" or $tag eq "2MIME"
1676 140 0 0 $ok or $msg
1703 26 0 26 $buff =~ /~\0\0\x06.{4}(\x10|\x18)(\x04)$/s or $buff =~ /(\x10|\x18)(\x08)$/s
1708 0 0 26 $len < 12 or $len > $curPos
1726 0 0 26 $et->Options("Verbose") or $et->{'HTML_DUMP'}
1763 0 0 1 $num or not $outfile

xor 4 conditions

line l&&r l&&!r !l&&r !l&&!r condition
1048 11 0 0 0 $isMieGroup xor ($format & 243) == 16