Branch Coverage

blib/lib/Image/ExifTool/WriteRIFF.pl
Criterion Covered Total %
branch 70 144 48.6


line true false branch
43 0 3 unless $et
54 0 6 unless $raf->Read($buff, 12) == 12
55 0 6 unless $buff =~ /^(RIFF|RF64)....(.{4})/s
57 0 6 unless ($1 eq "RIFF" and $2 eq "WEBP")
72 3 3 if ($pass) { }
75 0 3 if ($has{'VP8X'} and not $needsVP8X and $et->{'CHANGED'}) { }
0 3 elsif ($needsVP8X and not $has{'VP8X'}) { }
79 0 0 if (defined $imageWidth) { }
89 0 3 unless &Write($outfile, $buff)
91 0 3 if ($createVP8X)
94 0 0 if $has{'ANIM'}
95 0 0 if $has{'XMP '}
96 0 0 if $has{'EXIF'}
97 0 0 if $has{'ALPH'}
98 0 0 if $has{'ICCP'}
103 0 0 if $dirDat{'ICCP'}
115 8 26 if ($num < 8) { }
116 0 8 if $num
118 6 0 unless $addDirs->{'EXIF'} or $addDirs->{'XMP '} or $addDirs->{'ICCP'}
125 0 26 if ($len <= 0)
126 0 0 if ($len < 0) { }
0 0 elsif ($tag eq "\000\000\000\000") { }
134 0 0 if ($pass) { }
135 0 0 unless &Write($outfile, $buff)
146 2 0 if ($editDirs->{$tag} or $tag eq "" or $tag eq "XMP " and $addDirs->{'EXIF'})
148 8 2 if ($len2) { }
149 0 8 if $doneDir{$tag} and not $pass
151 0 8 unless $raf->Read($buff, $len2) == $len2
163 18 0 unless $tag eq $dir or $addDirs->{$dir} and $tag eq '' || $tag eq 'XMP ' && $dir eq 'EXIF'
167 6 6 unless ($pass)
170 2 4 if ($tag eq 'EXIF') { }
2 2 elsif ($dir ne $tag) { }
172 0 2 if ($buff =~ /^Exif\0\0/) { }
173 0 0 unless $pass
194 3 3 $dir eq 'EXIF' ? :
197 12 0 if (defined $dirDat{$dir})
198 8 4 if ($dir eq $tag)
201 4 4 unless length $dirDat{$dir}
203 8 4 if (length $dirDat{$dir})
204 4 4 if ($pass) { }
206 4 0 unless $dir eq "ICCP"
209 0 4 $start ? :
213 0 4 $dirLen & 1 ? :
224 0 10 if (not $handledTag and length $buff)
226 0 0 if ($pass) { }
227 0 0 unless &Write($outfile, $tag, &Set32u($len), $buff)
239 6 12 if ($tag eq "VP8X")
241 0 6 if ($len2 < 10 or $raf->Read($buf2, $len2) != $len2)
245 3 3 if ($pass) { }
246 0 3 if ($deleteVP8X)
253 2 1 if $has{'XMP '}
254 2 1 if $has{'EXIF'}
255 0 3 if $has{'ICCP'}
257 0 3 unless &Write($outfile, $buff, $buf2)
266 0 6 if $dirDat{'ICCP'}
272 6 6 if ($pass) { }
274 0 6 unless &Write($outfile, $buff)
279 0 12 unless ($pass or defined $imageWidth)
281 0 0 if ($tag eq 'VP8 ' and $len2 >= 16) { }
0 0 elsif ($tag eq 'VP8L' and $len2 >= 6) { }
282 0 0 unless $raf->Read($buff, 16) == 16
284 0 0 if ($buff =~ /^...\x9d\x01\x2a/s)
290 0 0 unless $raf->Read($buff, 6) == 6
292 0 0 if ($buff =~ /^\x2f/s)
299 6 6 if ($pass) { }
303 0 6 if $num > 65536
304 0 6 unless $raf->Read($buff, $num) == $num
305 0 6 unless &Write($outfile, $buff)
309 0 6 unless $raf->Seek($len2, 1)
313 3 3 if $pass
314 0 3 unless $raf->Seek(0, 0)
316 0 3 $err ? :