Branch Coverage

blib/lib/Image/ExifTool/FLIF.pm
Criterion Covered Total %
branch 53 86 61.6


line true false branch
119 0 53 unless $raf->Read($buff, 1)
122 39 14 unless $byte & 128
138 9 6 unless $val >>= 7
156 0 9 unless $raf->Read($buff, 6) == 6 and $buff =~ /^FLIF([0-\x6f])([0-2])/
161 0 9 if $vals[0] gt "H"
163 0 9 unless defined $vals[-1]
164 5 4 if wantarray
168 0 4 unless $raf->Seek(0, 0) and $raf->Read($buff, $hdrLen) == $hdrLen
184 0 4 unless $buff = &ReadFLIFHeader($raf)
186 0 4 unless &Write($outfile, $buff)
195 13 3 unless (defined $soi)
196 0 13 unless $raf->Read($buff, 4) == 4
197 4 9 if ($buff lt " ")
201 3 9 if $et->{'ADD_DIRS'}{$tagTablePtr->{$tag}{'Name'}} and not $doneTag{$tag}
205 9 7 if (not defined $soi) { }
3 4 elsif (@addTags) { }
213 0 4 unless &Write($outfile, $soi)
218 12 0 if ($tagInfo and $tagInfo->{'SubDirectory'} and $et->{'EDIT_DIRS'}{$tagInfo->{'Name'}}) { }
0 0 elsif (not defined $soi) { }
220 9 3 unless (defined $soi)
221 0 9 unless $raf->Read($buff, $size) == $size
224 12 0 if (eval { do { require IO::Uncompress::RawInflate } } and eval { do { require IO::Compress::RawDeflate } }) { }
225 3 9 if (length $buff == 0) { }
0 9 elsif (not IO::Uncompress::RawInflate::rawinflate(\$buff, \$inflated)) { }
235 9 3 length $inflated ? :
239 12 0 if (defined $inflated)
240 3 9 unless length $inflated
241 3 6 if $subdir->{'Header'}
242 0 9 unless (IO::Compress::RawDeflate::rawdeflate(\$inflated, \$buff))
249 0 9 unless &Write($outfile, $tag, &SetVarInt(length $buff), $buff)
251 0 0 unless &Write($outfile, $tag, &SetVarInt($size))
252 0 0 unless &Image::ExifTool::CopyBlock($raf, $outfile, $size)
269 0 5 unless my(@vals) = &ReadFLIFHeader($raf)
276 0 5 if $verbose
283 0 17 unless $raf->Read($tag, 4) == 4
286 5 12 if $byte < 32
288 0 12 if $verbose
289 12 0 if ($tagTablePtr->{$tag}) { }
290 0 12 unless $raf->Read($buff, $size) == $size
291 0 12 if $verbose > 2
293 12 0 if (eval { do { require IO::Uncompress::RawInflate } }) { }
294 12 0 if (IO::Uncompress::RawInflate::rawinflate(\$buff, \$inflated)) { }
307 0 0 unless $raf->Seek($size, 1)