Branch Coverage

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


line true false branch
23 0 0 if ($funcname eq 'DB::DB') { }
34 0 0 unless $addr
48 0 0 unless $op_info
62 0 0 unless $parent_addr
70 0 0 unless $op_info
78 0 0 unless $op_info
79 0 0 unless (exists $op_info->{'prev_expr'})
81 0 0 if ($parent_info) { }
150 0 0 if (scalar @parent_lines > 1)
158 0 0 if ($i > 0)
163 0 0 if (scalar @child_lines > 1)
234 0 0 if (exists $info->{'position'})
248 0 0 $info->{'parent'} ? :
249 0 0 unless ($parent)
250 0 0 $candidate_pair ? :
257 0 0 unless ($parent_info)
258 0 0 $candidate_pair ? :
261 0 0 exists $parent_info->{'sep'} ? :
262 0 0 exists $parent_info->{'texts'} ? :
267 0 0 if (not exists $parent_info->{'fmt'} and scalar @texts == 1 and eval { do { $texts[0]->isa('B::DeparseTree::TreeNode') } })
272 0 0 if (exists $parent_info->{'fmt'} or exists $parent_info->{'position'}) { }
279 0 0 unless exists $deparsed->{'optree'}{$parent_info->{'parent'}}
291 0 0 unless exists $deparsed->{'optree'}{$parent_info->{'parent'}}
299 0 0 unless $next_found_pos
307 0 0 if ($found_pos) { }
314 0 0 if (defined $found_pos)
316 0 0 if ($marked_position) { }
329 0 0 if $result
331 0 0 if (ref $text) { }
332 0 0 if (ref $text eq 'ARRAY' and scalar @$text == 2) { }
0 0 elsif ($text->{'addr'} == $child_addr) { }
333 0 0 if ($text->[1] == $child_addr) { }
338 0 0 if ($i < $text_len)
352 0 0 if ($i < $text_len)
371 0 0 if ($start_index >= 0)
372 0 0 if (index($parent_text, $child_text, $start_index + 1) < 0)
388 0 0 if ($info)
392 0 0 if ($info->{'parent'})
394 0 0 if ($parent)
397 0 0 if ($texts)
413 0 0 unless $info and $info->{'parent'}
415 0 0 unless $parent
419 0 0 $info->{'op'}->can('name') ? :
423 0 0 if ($texts)
435 0 0 if (ref $info and ref $info->{'texts'} eq 'ARRAY')
437 0 0 if (ref $child_info)
438 0 0 if (ref $child_info eq 'ARRAY') { }
0 0 elsif (ref $child_info eq 'B::DeparseTree::TreeNode') { }
457 0 0 if $a > $b