| line |
true |
false |
branch |
|
20
|
0 |
0 |
if $@ |
|
24
|
0 |
0 |
if $@ |
|
46
|
0 |
0 |
unless defined $line |
|
47
|
0 |
0 |
if $line =~ /^\%\%/ |
|
51
|
0 |
0 |
if (not $line =~ /\S/) { } |
|
|
0 |
0 |
elsif ($line =~ m[^/\*]) { } |
|
|
0 |
0 |
elsif ($line eq "%{\n") { } |
|
|
0 |
0 |
elsif ($line =~ /^\%(left|right|nonassoc|token|term)/g) { } |
|
|
0 |
0 |
elsif ($line =~ /^\%type\s+\<.*?\>/g) { } |
|
|
0 |
0 |
elsif ($line =~ /^\%start\s+(.*)/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\%union/) { } |
|
57
|
0 |
0 |
unless $self->read_until(\$line, $input, '\\*\\/') |
|
63
|
0 |
0 |
unless my $rest = $self->read_until(\$line, $input, '\\%\\}') |
|
80
|
0 |
0 |
if ($line =~ /^;/) |
|
84
|
0 |
0 |
if exists $$self{'start_symbol'} |
|
98
|
0 |
0 |
if ($u =~ /\{$/) { } |
|
|
0 |
0 |
elsif ($u =~ /\}$/) { } |
|
123
|
0 |
0 |
if $associativity eq 'term' |
|
127
|
0 |
0 |
if ($$line =~ s/^\s*(\<.*?\>)//) |
|
147
|
0 |
0 |
if $$line =~ /^[\%;]/ |
|
158
|
0 |
0 |
unless defined $line |
|
163
|
0 |
0 |
if @ruleset == 0 |
|
176
|
0 |
0 |
unless defined $self->skip_ws($line, $input) |
|
179
|
0 |
0 |
if $$line =~ /^\%/ |
|
184
|
0 |
0 |
unless $$line =~ /^:/ |
|
193
|
0 |
0 |
unless defined $self->skip_ws($line, $input) |
|
199
|
0 |
0 |
if ($$line =~ /^:/) { } |
|
|
0 |
0 |
elsif ($$line =~ /^\%\%/) { } |
|
|
0 |
0 |
elsif ($$line =~ /^\|/) { } |
|
|
0 |
0 |
elsif ($$line =~ /^\;/) { } |
|
|
0 |
0 |
elsif ($$line =~ /^\{:/) { } |
|
|
0 |
0 |
elsif ($$line =~ /^\{\?/) { } |
|
|
0 |
0 |
elsif ($$line =~ /^\{/) { } |
|
|
0 |
0 |
elsif ($$line =~ m[^/\*]) { } |
|
|
0 |
0 |
elsif ($$line =~ /^\%prec\s*/g) { } |
|
217
|
0 |
0 |
unless my $code = $self->read_until($line, $input, ':\\}') |
|
222
|
0 |
0 |
unless my $code = $self->read_until($line, $input, '\\?\\}') |
|
228
|
0 |
0 |
unless my $code = $self->read_code($line, $input) |
|
245
|
0 |
0 |
unless defined $self->skip_ws($line, $input) |
|
251
|
0 |
0 |
if $sawnext |
|
264
|
0 |
0 |
unless ($symbol) = $$line =~ /^\s*(\w+)/ or ($symbol) = $$line =~ /^(\'.*?\')/ |
|
268
|
0 |
0 |
unless defined $symbol |
|
282
|
0 |
0 |
if (not $comment and $$line =~ m[^\s*/\*]g) { } |
|
|
0 |
0 |
elsif ($comment and $$line =~ m[\*/]g) { } |
|
|
0 |
0 |
elsif ($comment) { } |
|
|
0 |
0 |
elsif ($$line =~ m[^\s*//]) { } |
|
|
0 |
0 |
elsif ($$line =~ /^\S/) { } |
|
296
|
0 |
0 |
unless defined $$line |
|
301
|
0 |
0 |
unless defined $$line |
|
310
|
0 |
0 |
if ($$line eq '') |
|
311
|
0 |
0 |
unless defined $$line |
|
319
|
0 |
0 |
if ($$line =~ m[\*/]) { } |
|
325
|
0 |
0 |
unless defined $_ |
|
326
|
0 |
0 |
if (m[\*/]g) |
|
350
|
0 |
0 |
if ($$line =~ m[[\"\'\{\}/]]g) { } |
|
355
|
0 |
0 |
if ($char eq '"') { } |
|
|
0 |
0 |
elsif ($char eq q[']) { } |
|
|
0 |
0 |
elsif ($char eq '{') { } |
|
|
0 |
0 |
elsif ($char eq '}') { } |
|
356
|
0 |
0 |
if ($$line =~ /([^\"\\]|\\.)*\"/g) { } |
|
360
|
0 |
0 |
unless defined(my $i = <$input>) |
|
365
|
0 |
0 |
if ($$line =~ /([^\'\\]|\\.)*\'/g) { } |
|
369
|
0 |
0 |
unless defined(my $i = <$input>) |
|
381
|
0 |
0 |
unless defined($$line = <$input>) |
|
396
|
0 |
0 |
unless defined $$line |