Branch Coverage

blib/lib/Image/ExifTool/Audible.pm
Criterion Covered Total %
branch 23 62 37.1


line true false branch
124 0 0 if $dirLen < 4
130 0 0 if $pos + 3 > $dirLen
132 0 0 unless $unk == 128 or $unk == 0
135 0 0 if $pos + $len + 6 > $dirLen or not $len
138 0 0 unless $ver == 1
141 0 0 if $pos + $size > $dirLen
143 0 0 unless ($tagTablePtr->{$tag})
144 0 0 $tag =~ /[a-z]/ ? :
169 0 0 if 10 > $dirLen
171 0 0 if 10 + $len + 6 > $dirLen
173 0 0 if 10 + $len + 6 + $size > $dirLen
201 0 1 unless $raf->Read($buff, 16) == 16 and $buff =~ /^.{4}\x57\x90\x75\x36/s
203 1 0 if (defined $et->{'VALUE'}{'FileSize'})
205 0 1 unless unpack("N", $buff) == $et->{'VALUE'}{'FileSize'}
210 0 1 if $bytes > 3072
212 0 1 unless $raf->Read($toc, $bytes) == $bytes
217 9 2 unless $type == 2 or $type == 6 or $type == 11
219 1 2 unless my $length = &Get32u(\$toc, $entry + 8)
220 0 2 unless $raf->Seek($offset, 0)
221 0 2 if ($type == 6)
222 0 0 if $length < 4 or $raf->Read($buff, 4) != 4
227 0 2 if $length > 100000000
228 0 2 unless $raf->Read($buff, $length) == $length
229 1 1 if ($type == 11)
230 0 1 if $length < 8
233 0 1 if $off < $offset + 8 or $off - $offset + $len > $length
238 0 1 if $length < 4
240 0 1 if $num > 512
246 0 28 if $tagPos > $length
252 0 28 if $nxtPos > $length
255 24 4 unless ($tagTablePtr->{$tag})