| line |
true |
false |
branch |
|
24
|
0 |
0 |
if ($funcname eq 'DB::DB') { } |
|
35
|
0 |
0 |
unless $addr |
|
49
|
0 |
0 |
unless $op_info |
|
63
|
0 |
0 |
unless $parent_addr |
|
71
|
0 |
0 |
unless $op_info |
|
79
|
0 |
0 |
unless $op_info |
|
80
|
0 |
0 |
unless (exists $op_info->{'prev_expr'}) |
|
82
|
0 |
0 |
if ($parent_info) { } |
|
151
|
0 |
0 |
if (scalar @parent_lines > 1) |
|
159
|
0 |
0 |
if ($i > 0) |
|
164
|
0 |
0 |
if (scalar @child_lines > 1) |
|
235
|
0 |
0 |
if (exists $info->{'position'}) |
|
249
|
0 |
0 |
$info->{'parent'} ? : |
|
250
|
0 |
0 |
unless ($parent) |
|
251
|
0 |
0 |
$candidate_pair ? : |
|
258
|
0 |
0 |
unless ($parent_info) |
|
259
|
0 |
0 |
$candidate_pair ? : |
|
262
|
0 |
0 |
exists $parent_info->{'sep'} ? : |
|
263
|
0 |
0 |
exists $parent_info->{'texts'} ? : |
|
268
|
0 |
0 |
if (not exists $parent_info->{'fmt'} and scalar @texts == 1 and eval {
do {
$texts[0]->isa('B::DeparseTree::TreeNode')
}
}) |
|
273
|
0 |
0 |
if (exists $parent_info->{'fmt'} or exists $parent_info->{'position'}) { } |
|
280
|
0 |
0 |
unless exists $deparsed->{'optree'}{$parent_info->{'parent'}} |
|
292
|
0 |
0 |
unless exists $deparsed->{'optree'}{$parent_info->{'parent'}} |
|
300
|
0 |
0 |
unless $next_found_pos |
|
308
|
0 |
0 |
if ($found_pos) { } |
|
315
|
0 |
0 |
if (defined $found_pos) |
|
317
|
0 |
0 |
if ($marked_position) { } |
|
330
|
0 |
0 |
if $result |
|
332
|
0 |
0 |
if (ref $text) { } |
|
333
|
0 |
0 |
if (ref $text eq 'ARRAY' and scalar @$text == 2) { } |
|
|
0 |
0 |
elsif ($text->{'addr'} == $child_addr) { } |
|
334
|
0 |
0 |
if ($text->[1] == $child_addr) { } |
|
339
|
0 |
0 |
if ($i < $text_len) |
|
353
|
0 |
0 |
if ($i < $text_len) |
|
372
|
0 |
0 |
if ($start_index >= 0) |
|
373
|
0 |
0 |
if (index($parent_text, $child_text, $start_index + 1) < 0) |
|
389
|
0 |
0 |
if ($info) |
|
393
|
0 |
0 |
if ($info->{'parent'}) |
|
395
|
0 |
0 |
if ($parent) |
|
398
|
0 |
0 |
if ($texts) |
|
414
|
0 |
0 |
unless $info and $info->{'parent'} |
|
416
|
0 |
0 |
unless $parent |
|
420
|
0 |
0 |
$info->{'op'}->can('name') ? : |
|
424
|
0 |
0 |
if ($texts) |
|
436
|
0 |
0 |
if (ref $info and ref $info->{'texts'} eq 'ARRAY') |
|
438
|
0 |
0 |
if (ref $child_info) |
|
439
|
0 |
0 |
if (ref $child_info eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $child_info eq 'B::DeparseTree::TreeNode') { } |
|
458
|
0 |
0 |
if $a > $b |