| line |
true |
false |
branch |
|
28
|
0 |
10 |
if ref $class |
|
35
|
66 |
457 |
unless (exists $$syms{$_[1][0]}) |
|
46
|
290 |
1448 |
unless (exists $$syms{$_[1][0]}) |
|
74
|
0 |
63 |
if (exists $token->{$symbol}) |
|
92
|
0 |
74 |
if (defined $term->{$symbol}[0]) |
|
114
|
0 |
0 |
if (exists $nterm->{$symbol}) |
|
144
|
9 |
1 |
unless $start |
|
147
|
0 |
10 |
unless ref $nterm->{$start} |
|
174
|
32 |
726 |
if defined $_[1] and $_[1][-1][0] eq 'CODE' |
|
197
|
0 |
117 |
unless (defined $$term{$_[2][0]}) |
|
225
|
0 |
0 |
$token ? : |
|
233
|
10 |
4038 |
if pos $$input >= length $$input |
|
238
|
10 |
4028 |
if ($lexlevel > 1) |
|
259
|
351 |
3677 |
$lexlevel == 0 ? : |
|
|
3583 |
445 |
if ($lexlevel == 0 ? $$input =~ m[\G((?:
[\t\ ]+ # Any white space char but \n
| \#[^\n]* # Perl like comments
| /\*.*?\*/ # C like comments
)+)]cgsx : $$input =~ m[\G((?:
\s+ # any white space char
| \#[^\n]* # Perl like comments
| /\*.*?\*/ # C like comments
)+)]cgsx) |
|
263
|
0 |
3583 |
if pos $$input >= length $$input |
|
271
|
1995 |
2033 |
if $$input =~ /\G([A-Za-z_][A-Za-z0-9_]*)/cg |
|
275
|
523 |
1510 |
if ($$input =~ /\G('(?:[^'\\]|\\\\|\\'|\\)+?')/cg) |
|
277
|
0 |
523 |
if ($1 eq q['error']) |
|
286
|
20 |
1490 |
if ($$input =~ /\G(%%)/cg) |
|
292
|
38 |
1452 |
if ($$input =~ /\G\{/cg) |
|
299
|
0 |
54 |
if substr($$input, pos($$input) - 1, 1) eq '\\' |
|
301
|
8 |
46 |
$1 eq '{' ? : |
|
|
38 |
16 |
unless $level += $1 eq '{' ? 1 : -1 |
|
305
|
0 |
38 |
if $level |
|
311
|
203 |
1249 |
if ($lexlevel == 0) { } |
|
312
|
37 |
166 |
if $$input =~ /\G%(left|right|nonassoc)/cg |
|
314
|
1 |
165 |
if $$input =~ /\G%(start)/cg |
|
316
|
0 |
165 |
if $$input =~ /\G%(expect)/cg |
|
319
|
10 |
155 |
if ($$input =~ /\G%\{/cg) |
|
322
|
0 |
10 |
unless $$input =~ /\G(.*?)%}/cgs |
|
329
|
27 |
128 |
if $$input =~ /\G%(token)/cg |
|
331
|
0 |
128 |
if $$input =~ /\G%(type)/cg |
|
333
|
0 |
128 |
if $$input =~ /\G%(union)/cg |
|
335
|
0 |
128 |
if $$input =~ /\G([0-9]+)/cg |
|
340
|
117 |
1132 |
if $$input =~ /\G%(prec)/cg |
|
345
|
0 |
1260 |
unless $$input =~ /\G(.)/gs |
|
348
|
128 |
1132 |
if $1 eq "\n" |
|
358
|
0 |
0 |
$lineno < 0 ? : |
|
364
|
0 |
0 |
if $level > 1 |
|
369
|
0 |
0 |
if $level > 0 |
|
372
|
0 |
0 |
if $nberr == 20 |
|
381
|
0 |
257 |
if (ref $nterm->{$lhs}) |
|
388
|
0 |
257 |
if (ref $term->{$lhs}) |
|
389
|
0 |
0 |
exists $token->{$lhs} ? : |
|
396
|
257 |
0 |
unless (ref $nterm->{$lhs}) |
|
408
|
41 |
834 |
unless (@$rhs) |
|
417
|
3 |
2006 |
if ($what eq 'CODE') |
|
429
|
0 |
257 |
if $epsrules > 1 |
|
436
|
0 |
10 |
unless @_ > 0 |
|
468
|
0 |
10 |
if $nberr |