| line |
true |
false |
branch |
|
16
|
2 |
12 |
if (@_ != 2) |
|
25
|
0 |
12 |
unless (defined $code) |
|
37
|
9 |
33 |
if $line =~ /^\s*$/ |
|
42
|
29 |
4 |
if ($line =~ /^([A-Za-z_][A-Za-z0-9_]*)\s*(\(:?=\)|:?=)(.*)$/) { } |
|
44
|
0 |
29 |
if (exists $definitions{$1}) |
|
60
|
1 |
3 |
unless (defined $lastsymbol) |
|
77
|
13 |
16 |
if ($definitions{$s}{'type'} eq '=') { } |
|
|
0 |
16 |
elsif ($definitions{$s}{'type'} eq ':=') { } |
|
|
4 |
12 |
elsif ($definitions{$s}{'type'} eq '(=)') { } |
|
|
12 |
0 |
elsif ($definitions{$s}{'type'} eq '(:=)') { } |
|
105
|
28 |
5 |
unless exists $early{$_} |
|
112
|
0 |
11 |
if (@sort == 1 and not defined $sort[0]) |
|
133
|
0 |
17 |
if ($f->contains_operator(5) or $f->contains_operator(6)) |
|
149
|
0 |
16 |
if exists $early{$_} |
|
154
|
14 |
2 |
unless exists $late{$_} |
|
162
|
0 |
11 |
if (@sort == 1 and not defined $sort[0]) |
|
183
|
0 |
12 |
if ($f->contains_operator(5) or $f->contains_operator(6)) |
|
209
|
16 |
13 |
if $$h{'type'} =~ /^\(:?=\)$/ |
|
221
|
1 |
12 |
if (not defined $highest or $highest eq '') { } |
|
229
|
1 |
12 |
@args == 0 ? : |
|
238
|
4 |
9 |
if $num_real_external |
|
240
|
12 |
1 |
if (@args) |
|
262
|
3 |
1 |
@args ? : |
|
|
4 |
9 |
if $num_real_external |
|
266
|
12 |
1 |
@args ? : |
|
270
|
0 |
13 |
if ($@ or not defined $mcode) |
|
273
|
0 |
13 |
if (defined $trees and @$trees) |
|
291
|
0 |
13 |
if ($@) |
|
314
|
0 |
4 |
if (@_ < 2) |
|
|
0 |
4 |
if (grep {not defined $_;} @_[0, 1]) |
|
|
0 |
3 |
if (@_ < 1) |
|
|
0 |
3 |
if (grep {not defined $_;} @_[0]) |
|
|
0 |
6 |
if (@_ < 1) |
|
|
0 |
6 |
if (grep {not defined $_;} @_[0]) |
|
|
0 |
9 |
if (@_ < 1) |
|
|
0 |
9 |
if (grep {not defined $_;} @_[0]) |
|
329
|
0 |
7 |
if defined $pairs{$l}{$r} |
|
344
|
7 |
0 |
unless --$npred{$child} |
|
348
|
0 |
22 |
if grep {$npred{$_};} keys %npred |
|
355
|
29 |
11 |
if (defined $lastsymbol) |
|
360
|
0 |
29 |
if ($@) { } |
|
|
0 |
29 |
elsif (not defined $parsed) { } |