Branch Coverage

lib/B/DeparseTree/Fragment.pm
Criterion Covered Total %
branch 0 94 0.0


line true false branch
22 0 0 if ($funcname eq 'DB::DB') { }
33 0 0 unless $addr
47 0 0 unless $op_info
61 0 0 unless $parent_addr
69 0 0 unless $op_info
77 0 0 unless $op_info
78 0 0 unless (exists $op_info->{'prev_expr'})
80 0 0 if ($parent_info) { }
149 0 0 if (scalar @parent_lines > 1)
157 0 0 if ($i > 0)
162 0 0 if (scalar @child_lines > 1)
233 0 0 if (exists $info->{'position'})
247 0 0 $info->{'parent'} ? :
248 0 0 unless ($parent)
249 0 0 $candidate_pair ? :
256 0 0 unless ($parent_info)
257 0 0 $candidate_pair ? :
260 0 0 exists $parent_info->{'sep'} ? :
261 0 0 exists $parent_info->{'texts'} ? :
266 0 0 if (not exists $parent_info->{'fmt'} and scalar @texts == 1 and eval { do { $texts[0]->isa('B::DeparseTree::Node') } })
271 0 0 if (exists $parent_info->{'fmt'} or exists $parent_info->{'position'}) { }
296 0 0 unless $next_found_pos
304 0 0 if ($found_pos) { }
311 0 0 if (defined $found_pos)
313 0 0 if ($marked_position) { }
326 0 0 if $result
328 0 0 if (ref $text) { }
329 0 0 if (ref $text eq 'ARRAY' and scalar @$text == 2) { }
0 0 elsif ($text->{'addr'} == $child_addr) { }
330 0 0 if ($text->[1] == $child_addr) { }
335 0 0 if ($i < $text_len)
349 0 0 if ($i < $text_len)
368 0 0 if ($start_index >= 0)
369 0 0 if (index($parent_text, $child_text, $start_index + 1) < 0)
385 0 0 if ($info)
389 0 0 if ($info->{'parent'})
391 0 0 if ($parent)
394 0 0 if ($texts)
410 0 0 unless $info and $info->{'parent'}
412 0 0 unless $parent
416 0 0 $info->{'op'}->can('name') ? :
420 0 0 if ($texts)
432 0 0 if (ref $info and ref $info->{'texts'} eq 'ARRAY')
434 0 0 if (ref $child_info)
435 0 0 if (ref $child_info eq 'ARRAY') { }
0 0 elsif (ref $child_info eq 'B::DeparseTree::Node') { }
454 0 0 if $a > $b