| line |
true |
false |
branch |
|
66
|
4 |
75 |
if ($command eq 'for' and $text =~ /^ProhibitUnbalancedParens\b\s*(.*)/)
|
|
70
|
4 |
0 |
if ($directive =~ /^allow next( (\d+))?/)
|
|
73
|
2 |
2 |
defined $2 ? :
|
|
88
|
6 |
146 |
if (($self->{'allow_next'} || 0) > 0)
|
|
94
|
1 |
145 |
unless ($self->{'in_begin'} eq '' or $self->{'in_begin'} =~ /^:/)
|
|
122
|
65 |
52 |
if (defined $1) { }
|
|
|
25 |
27 |
elsif (defined $2) { }
|
|
141
|
5 |
85 |
if (@optional and $optional[0]{'char'} ne $p->{'char'})
|
|
144
|
25 |
65 |
if ($p->{'optional'}) { }
|
|
158
|
42 |
48 |
if (my $want_openchar = $close_to_open{$char}) { }
|
|
160
|
28 |
14 |
if (my $o = pop @opens) { }
|
|
162
|
2 |
26 |
if ($openchar ne $want_openchar)
|
|
163
|
2 |
0 |
if ($p->{'optional'})
|
|
174
|
12 |
2 |
if ($p->{'optional'})
|
|
201
|
7 |
5 |
if ($cmd eq 'X' or $cmd eq 'C') { }
|
|
|
3 |
2 |
elsif ($cmd eq 'L') { }
|