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 |