| 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
|
10 |
40 |
if exists $$self{'_tree'}{$rule} |
|
78
|
40 |
70 |
if (exists $$object{'.rgx'}) { } |
|
|
40 |
30 |
elsif (exists $$object{'.ref'}) { } |
|
|
0 |
30 |
elsif (exists $$object{'.any'}) { } |
|
|
30 |
0 |
elsif (exists $$object{'.all'}) { } |
|
|
0 |
0 |
elsif (exists $$object{'.err'}) { } |
|
83
|
40 |
0 |
if (exists $$self{'tree'}{$rule}) { } |
|
87
|
0 |
0 |
if (my $regex = Pegex::Grammar::Atoms::atoms()->{$rule}) |
|
119
|
0 |
390 |
unless $$self{'tree'}{$key} and $$self{'tree'}{$key}{'.rgx'} || die("'${key}' not defined as a single RE") or $$atoms{$key} |
|
126
|
40 |
460 |
if $re eq $$regexp{'.rgx'} |
|
142
|
120 |
130 |
if (ref $node eq 'HASH') { } |
|
|
30 |
100 |
elsif (ref $node eq 'ARRAY') { } |
|
143
|
40 |
80 |
if (exists $$node{'.rgx'}) { } |
|
183
|
0 |
0 |
if $perl =~ /\?\^/ |