Branch Coverage

blib/lib/EBook/MOBI/MobiPerl/EXTH.pm
Criterion Covered Total %
branch 9 54 16.6


line true false branch
135 0 6 if defined $data
148 0 0 if (defined $type_to_desc{$type})
150 0 0 if (defined $binary_data{$type}) { }
165 0 6 if (is_binary_data($type)) { }
171 6 0 if ($type) { }
186 0 0 if ($type) { }
194 0 0 if ($type[$i] == $type)
198 0 0 if ($type[$i] == $type and $delexthindex == 0 || $delexthindex == $index) { }
200 0 0 if (is_binary_data($type[$i])) { }
221 12 0 if (defined $typename_to_type{$typename}) { }
224 0 0 if ($typename =~ /^\d+$/)
238 6 0 if ($type)
243 0 0 if ($type[$i] == $type)
251 6 0 unless ($found)
271 0 0 if (defined $format{$type})
274 0 0 if ($len == 4)
278 0 0 if ($len == 1)
287 0 0 if ($self->get_data ne substr($data, 0, $len))
292 0 0 if (substr($s0, $i, 1) ne substr($s1, $i, 1))
317 0 6 unless defined $data
318 0 6 if (defined $format{$type}) { }
320 0 0 if ($len == 4)
323 0 0 if ($len == 1)
336 6 0 if ($comp)
354 0 0 if ($type[$i] == 201)
372 0 0 if ($type[$i] == 202)
386 0 0 if (defined $type_to_desc{$type})