Condition Coverage

blib/lib/Image/ExifTool/WriteIPTC.pl
Criterion Covered Total %
condition 79 132 59.8


and 3 conditions

line !l l&&!r l&&r condition
108 0 13 32 $bytes != 1 and $bytes != 2
13 32 0 $bytes != 1 and $bytes != 2 and $bytes != 4
124 22 0 3 $len < $minlen and $len
130 0 225 25 defined $minlen and $fmt ne "string"
132 25 0 0 $len > $maxlen and not $et->{'OPTIONS'}{'IgnoreMinorErrors'}
181 45 0 205 $$xlatPtr and $rec < 7
45 204 1 $$xlatPtr and $rec < 7 and $$valPtr =~ /[\x80-\xff]/
189 87 0 165 not $read and $format =~ /^string\[(\d+),?(\d*)\]$/
232 0 0 1 $val =~ /(.*?)\b(\d{1,2})(:?)(\d{2})(:?)(\d{2})(\S*)\s*$/s and $3 || !$5
242 0 0 0 $date and $date =~ /^(\d{4}):(\d{2}):(\d{2})\s*$/
0 0 0 $date and $date =~ /^(\d{4}):(\d{2}):(\d{2})\s*$/ and eval { do { require Time::Local } }
339 7 18 0 $tagTablePtr eq \%Image::ExifTool::IPTC::Main and exists $et->{'EDIT_DIRS'}{'IPTC'}
360 23 17 0 $dirLen >= 4 and substr($$dataPt, $start, 1) ne "\34"
40 0 0 $dirLen >= 4 and substr($$dataPt, $start, 1) ne "\34" and substr($$dataPt, $start + 3, 1) eq "\34"
437 0 0 0 $pos + $n <= $dirEnd and $n <= 8
465 0 2 39 $mandatory{$lastRec} and $tagTablePtr eq \%Image::ExifTool::IPTC::Main
489 0 0 22 $tagInfo and $tagInfo->{'SubDirectory'}
516 168 2 18 defined $rec and $rec <= $newRec
532 1 0 61 not $found and $nvHash->{'IsCreating'}
544 0 33 7 $mandatory and $mandatory->{$newTag}
585 147 1 0 $rec == 1 and $tag == 90
590 2 10 87 $tagInfo->{'Format'} and $tagInfo->{'Format'} =~ /^string/
602 5 0 84 $nvHash->{'Value'} and @{$nvHash->{'Value'};}
5 0 84 $nvHash->{'Value'} and @{$nvHash->{'Value'};} and @recordList
0 0 84 $nvHash->{'Value'} and @{$nvHash->{'Value'};} and @recordList and $recordList[0] == $rec
0 12 72 $nvHash->{'Value'} and @{$nvHash->{'Value'};} and @recordList and $recordList[0] == $rec and not $foundRec{$rec}{$tag} & 4
617 0 8 12 $mandatory and $mandatory->{$tag}
676 0 1 0 $new and not defined $newData
690 25 2 38 defined $newData and length $newData
27 38 0 defined $newData and length $newData and $et->{'FORCE_WRITE'}{'IPTC'}

or 2 conditions

line l !l condition
105 32 0 $tagInfo->{'Format'} || $tagInfo->{'Table'}{'FORMAT'} || ''
107 45 0 $1 || 0
171 35 0 $1 || 0
345 10 30 $dirInfo->{'DirStart'} || 0
523 151 91 $foundRec{$newRec}{$newTag} || 0
582 24 223 $foundRec{$rec}{$tag} || 0 || 1

or 3 conditions

line l !l&&r !l&&!r condition
157 310 4 0 $tagInfo->{'Format'} || $tagInfo->{'Table'}{'FORMAT'}
201 1 1 0 $$xlatPtr || $et->Options('Charset')
232 1 0 0 $3 || !$5
339 40 0 25 exists $et->{'EDIT_DIRS'}{$dirInfo->{'DirName'}} or $tagTablePtr eq \%Image::ExifTool::IPTC::Main and exists $et->{'EDIT_DIRS'}{'IPTC'}
456 40 18 229 !defined($rec) || $rec != $lastRec
457 58 69 160 $writeRec or $addNow
460 40 44 144 not defined $newRec or $newRec != $lastRec
656 1 0 0 $new or $old
667 0 0 0 $dirInfo->{'DirStart'} or length $$dataPt != $dirInfo->{'DirLen'}
680 1 0 0 $dirInfo->{'DirStart'} or length $$dataPt != $dirInfo->{'DirLen'}