| line |
true |
false |
branch |
|
27
|
0 |
0 |
if ($q) |
|
30
|
0 |
0 |
if (wantarray) { } |
|
41
|
0 |
3 |
if ($cond eq "name") |
|
145
|
9 |
72 |
if ($_ eq "") |
|
155
|
3 |
69 |
if (/^#.*/) |
|
167
|
41 |
28 |
if (my $meth = $$ptab{lc $kw}) { } |
|
170
|
28 |
13 |
if (ref $meth eq 'CODE') { } |
|
|
13 |
0 |
elsif (ref $meth eq 'HASH') { } |
|
195
|
18 |
23 |
if $r == 1 |
|
207
|
0 |
3 |
if (exists $ptab->{'end'}) |
|
215
|
0 |
0 |
unless my $includefile = $words->[0] |
|
221
|
0 |
0 |
unless open my $ifh, "<", $includefile |
|
240
|
0 |
0 |
if (not $parent->is_root and @$words) |
|
264
|
0 |
0 |
if (/^\s+$/) { } |
|
|
0 |
0 |
elsif (/^\s*#.*$/) { } |
|
|
0 |
0 |
elsif (/^\s*(end)\s*(?#.*)?$/i) { } |
|
|
0 |
0 |
elsif (/^\s*"(.+?)"\s*(?#.*)?$/) { } |
|
327
|
0 |
7 |
if (@{$words;} == 0) { } |
|
331
|
5 |
2 |
if ($kw =~ /^(match|not)$/i) { } |
|
333
|
3 |
2 |
if ($kw =~ /^match$/i) { } |
|
395
|
3 |
11 |
if ($kw eq 'else') { } |
|
|
2 |
9 |
elsif ($kw eq 'end') { } |
|
|
5 |
4 |
elsif ($branch) { } |
|
420
|
0 |
0 |
if (/^\s*(end)\s*(?#.*)?$/i) { } |
|
445
|
0 |
3 |
if ($args{'fh'}) { } |
|
448
|
0 |
3 |
unless open $fh, "<", $self->filename |
|
454
|
3 |
0 |
unless $args{'fh'} |
|
477
|
0 |
4 |
unless (defined $file) |
|
480
|
1 |
3 |
if (ref $file eq 'GLOB') { } |
|
483
|
0 |
3 |
unless open $fh, ">", $file |
|
492
|
69 |
106 |
if ($_{'indent'}) |
|
493
|
3 |
66 |
if ($node->is_comment) { } |
|
494
|
3 |
0 |
if ($_{'reindent_comments'}) |
|
502
|
21 |
45 |
if ($node->is_section) { } |
|
|
16 |
34 |
elsif ($node->is_statement and lc $node->kw eq 'end') { } |
|
503
|
2 |
19 |
if (lc $node->kw eq 'rewrite') { } |
|
|
3 |
16 |
elsif (lc $node->kw eq 'else') { } |
|
506
|
2 |
1 |
unless ($rws[-1][0]) |
|
513
|
2 |
14 |
if ($node->parent->is_section and $node->parent->kw and lc $node->parent->kw eq 'rewrite') { } |
|
|
3 |
11 |
elsif (my $topnot = topmost_not_node($node)) { } |
|
528
|
0 |
66 |
if ($_{'tabstop'}) { } |
|
532
|
0 |
0 |
if ($i < @{$_{'tabstop'};}) |
|
533
|
0 |
0 |
if (($off = $_{'tabstop'}[$i] - length($s)) <= 0) |
|
546
|
7 |
168 |
if ($node->is_section and lc $node->kw eq "not") |
|
554
|
5 |
2 |
if ($node->is_section) |
|
562
|
3 |
1 |
unless ref $file eq "GLOB" |