| line |
true |
false |
branch |
|
15
|
0 |
26 |
if ($Pegex::Bootstrap) |
|
49
|
26 |
0 |
unless (@rule) |
|
50
|
26 |
0 |
if (my $rule = $$self{'tree'}{'+toprule'}) { } |
|
70
|
182 |
286 |
if exists $$self{'_tree'}{$rule} |
|
78
|
338 |
702 |
if (exists $$object{'.rgx'}) { } |
|
|
442 |
260 |
elsif (exists $$object{'.ref'}) { } |
|
|
78 |
182 |
elsif (exists $$object{'.any'}) { } |
|
|
182 |
0 |
elsif (exists $$object{'.all'}) { } |
|
|
0 |
0 |
elsif (exists $$object{'.err'}) { } |
|
83
|
442 |
0 |
if (exists $$self{'tree'}{$rule}) { } |
|
87
|
0 |
0 |
if (my $regex = Pegex::Grammar::Atoms::atoms()->{$rule}) |
|
119
|
0 |
4264 |
unless $$self{'tree'}{$key} and $$self{'tree'}{$key}{'.rgx'} || die("'${key}' not defined as a single RE") or $$atoms{$key} |
|
126
|
338 |
5304 |
if $re eq $$regexp{'.rgx'} |
|
142
|
1066 |
962 |
if (ref $node eq 'HASH') { } |
|
|
260 |
702 |
elsif (ref $node eq 'ARRAY') { } |
|
143
|
338 |
728 |
if (exists $$node{'.rgx'}) { } |
|
183
|
0 |
0 |
if $perl =~ /\?\^/ |