| line |
true |
false |
branch |
|
21
|
23 |
383 |
if ($children->[-1]->op->name eq 'unstack' or $children->[-1]->is_implicit_break_at_end_of_when_block) |
|
31
|
1 |
2117 |
if ($children->[$i]->is_for_loop) { } |
|
37
|
1048 |
1070 |
unless length $this_child_deparsed |
|
39
|
645 |
425 |
if _should_insert_semicolon_after($children->[$i]) |
|
40
|
664 |
406 |
unless $i == $end |
|
51
|
23 |
664 |
if $op->op->sibling->isa('B::NULL') or $op->op->sibling->name eq 'unstack' and $op->op->sibling->sibling->isa('B::NULL') or $op->next->is_implicit_break_at_end_of_when_block |
|
57
|
7 |
1342 |
if $op->is_postfix_loop |
|
58
|
15 |
1327 |
if $op->is_scopelike |
|
59
|
4 |
1323 |
if $op->isa('Devel::Chitin::OpTree::COP') |
|
69
|
6 |
47 |
if (my $deparsed = $self->_deparse_postfix_while) |
|
78
|
6 |
41 |
$parent && $parent->is_null && $parent->op->flags & 128 ? : |
|
83
|
6 |
41 |
if ($parent and $parent->is_null and $parent->op->flags & 128) { } |
|
|
1 |
40 |
elsif ($self->op->name eq 'leavetry') { } |
|
91
|
0 |
47 |
$params{'omit_braces'} ? : |
|
109
|
1 |
1 |
unless $i + 2 >= @children |
|
126
|
5 |
102 |
exists $params{'join_with'} ? : |
|
130
|
19 |
88 |
$params{'skip_parens'} ? : |
|
|
19 |
88 |
$params{'skip_parens'} ? : |
|
147
|
1 |
0 |
$self->last->op->name =~ /av$/ ? : |
|
160
|
0 |
17 |
unless (@$children == 3 and $child1->op->name eq 'pushmark' and $child2->op->name eq 'list' || $child2->_ex_name eq 'pp_list' || $child2->op->name eq 'padav' and $aslice_hslice_allowed_ops{$child3->op->name}) |
|
174
|
4 |
13 |
$self->op->name eq 'kvhslice' || $self->op->name eq 'kvaslice' ? : |
|
185
|
1 |
2 |
if $args[1] eq '$_' |
|
218
|
4 |
64 |
if ($params{'is_printlike'} and not $is_stacked and @$children == 2 and $children->[1]->deparse eq '$_') |
|
232
|
10 |
73 |
$function eq 'sort' ? : |
|
234
|
17 |
66 |
if ($is_stacked) { } |
|
|
2 |
64 |
elsif ($function eq 'sort') { } |
|
|
61 |
3 |
elsif (@$children == 2) { } |
|
236
|
8 |
9 |
if $block_op->is_null |
|
238
|
1 |
16 |
if ($block_op->op->name eq 'const') { } |
|
251
|
0 |
2 |
if ($priv_flags & 1) { } |
|
|
0 |
2 |
elsif ($priv_flags & 16) { } |
|
252
|
0 |
0 |
$priv_flags & 16 ? : |
|
272
|
11 |
72 |
@values > 1 ? : |
|
|
11 |
72 |
@values > 1 ? : |
|
320
|
6 |
0 |
exists $seek_flags{$whence} ? : |
|
327
|
350 |
210 |
$val ? : |
|
349
|
2 |
4 |
if ($children->[4]) |
|
373
|
1 |
3 |
if ($self->op->flags & 128) { } |
|
397
|
2 |
1 |
if (@$children == 2) { } |
|
398
|
1 |
1 |
if ($dir eq '$_') { } |
|
431
|
2 |
4 |
if $children->[0]->op->name eq 'pushre' or $children->[0]->op->name eq 'regcomp' |
|
437
|
2 |
4 |
if (my $n_fields = $$children[$i++]->deparse) |
|
438
|
2 |
0 |
if $n_fields > 0 |
|
452
|
0 |
0 |
$regex_op->op->flags & 128 && !@{$regex_op->children;} ? : |
|
467
|
0 |
0 |
if (ref $pmreplroot eq 'B::GV') { } |
|
|
0 |
0 |
elsif (not ref $pmreplroot and $pmreplroot > 0) { } |
|
474
|
0 |
0 |
if ($gv) { } |
|
|
0 |
0 |
elsif (my $targ = $pmreplroot_op->op->targ) { } |
|
|
0 |
0 |
elsif ($self->op->flags & 64) { } |
|
484
|
0 |
0 |
if $target |
|
503
|
4 |
4 |
if ($self->op->flags & 64) |
|
567
|
2 |
1 |
if ($^V ge v5.16.0 and $self->op->private & 16) { } |
|
655
|
49 |
83 |
$targmy ? : |