| line |
true |
false |
branch |
|
15
|
0 |
10 |
if ($Pegex::Bootstrap) |
|
49
|
10 |
0 |
unless (@rule) |
|
50
|
10 |
0 |
if (my $rule = $self->{'tree'}{'+toprule'}) { } |
|
70
|
8 |
37 |
if exists $self->{'_tree'}{$rule} |
|
78
|
23 |
51 |
if (exists $object->{'.rgx'}) { } |
|
|
38 |
13 |
elsif (exists $object->{'.ref'}) { } |
|
|
3 |
10 |
elsif (exists $object->{'.any'}) { } |
|
|
10 |
0 |
elsif (exists $object->{'.all'}) { } |
|
|
0 |
0 |
elsif (exists $object->{'.err'}) { } |
|
83
|
34 |
4 |
if (exists $self->{'tree'}{$rule}) { } |
|
87
|
1 |
3 |
if (my $regex = Pegex::Grammar::Atoms::atoms()->{$rule}) |
|
124
|
0 |
20 |
unless $self->{'tree'}{$key} and $self->{'tree'}{$key}{'.rgx'} || die("'${key}' not defined as a single RE") or $atoms->{$key} |
|
127
|
23 |
21 |
if $re eq $regexp->{'.rgx'} |
|
143
|
84 |
64 |
if (ref $node eq 'HASH') { } |
|
|
13 |
51 |
elsif (ref $node eq 'ARRAY') { } |
|
144
|
23 |
61 |
if (exists $node->{'.rgx'}) { } |
|
188
|
0 |
0 |
if $perl =~ /\?\^/ |