| line |
true |
false |
branch |
|
96
|
0 |
0 |
unless ($self->match_ref('grammar')) |
|
99
|
0 |
0 |
if $far >= 4 |
|
111
|
0 |
0 |
if (ref $next) { } |
|
113
|
0 |
0 |
if ($next->[0] eq '|') { } |
|
120
|
0 |
0 |
if ($next->[-1] =~ /^[\?\*\+]$/) { } |
|
129
|
0 |
0 |
$next =~ s/^=// ? : |
|
130
|
0 |
0 |
if ($next =~ s/([\?\*\+])$//) { } |
|
141
|
0 |
0 |
$quantity eq '+' ? : |
|
|
0 |
0 |
$quantity eq '*' ? : |
|
|
0 |
0 |
$quantity eq '?' ? : |
|
|
0 |
0 |
$quantity eq '' ? : |
|
152
|
0 |
0 |
if $count >= $min and !$max || $count <= $max |
|
154
|
0 |
0 |
if $pointer > $self->{'farthest'} |
|
162
|
0 |
0 |
if ($self->match_next($_)) |
|
167
|
0 |
0 |
if $pointer > $self->{'farthest'} |
|
175
|
0 |
0 |
unless ($self->match_next($_)) |
|
177
|
0 |
0 |
if $pointer > $self->{'farthest'} |
|
186
|
0 |
0 |
unless my $rule = $self->{'grammar'}{$ref} |
|
193
|
0 |
0 |
$token_want =~ s/^\!// ? : |
|
194
|
0 |
0 |
if $self->{'pointer'} >= @{$self->{'tokens'};} |
|
197
|
0 |
0 |
if ($token_want eq $token_got xor $not) |
|
200
|
0 |
0 |
if ($self->can($method)) |
|
223
|
0 |
0 |
if (my $old_value = $self->{'tree'}{"+$name"}) { } |
|
224
|
0 |
0 |
unless (ref $old_value) |
|
313
|
0 |
0 |
if (ref $_) { } |
|
315
|
0 |
0 |
if (defined($part = $_->{'.rgx'})) { } |
|
|
0 |
0 |
elsif (defined($part = $_->{'.ref'})) { } |
|
331
|
0 |
0 |
if $gmod |
|
351
|
0 |
0 |
if ($$rule[$i + 1] =~ /^%%?$/) |
|
359
|
0 |
0 |
@$rule && $rule->[0] eq '|' ? : |
|
364
|
0 |
0 |
if $rule->[$i] eq '|' |
|
365
|
0 |
0 |
if ($$rule[$i + 1] eq '|') { } |
|
370
|
0 |
0 |
unless $started++ |
|
376
|
0 |
0 |
if (grep {$_ eq '|';} @$rule) |
|
380
|
0 |
0 |
if @$rule <= 1 |
|
381
|
0 |
0 |
unless $gmod eq ':' |
|
508
|
0 |
0 |
unless my $set = $self->{'regexes'}{$state} |
|
511
|
0 |
0 |
if (substr($grammar, $pos) =~ /$regex/) |
|
513
|
0 |
0 |
if ($name) |
|
519
|
0 |
0 |
if ($scope) |
|
520
|
0 |
0 |
if ($scope eq 'end') { } |
|
526
|
0 |
0 |
if ($scope eq 'regex') |
|
527
|
0 |
0 |
if (substr($grammar, $pos) =~ m[\A\+(?=[\s/])]) |
|
535
|
0 |
0 |
unless @$stack |