| line |
true |
false |
branch |
|
17
|
9 |
0 |
unless ref $grammar |
|
39
|
0 |
6 |
if grep((!defined($_)), @results) |
|
71
|
120 |
342 |
if (exists $ATOM2SPECIAL{$atom}) { } |
|
|
144 |
198 |
elsif ($c =~ s/^\\//) { } |
|
|
42 |
156 |
elsif ($c =~ s/^\[//) { } |
|
87
|
28 |
4 |
unless $elt->{'attributes'} |
|
|
32 |
30 |
if ref $elt |
|
88
|
35 |
27 |
if (defined $elt) { } |
|
89
|
3 |
32 |
unless ref $elt |
|
90
|
0 |
32 |
if defined $elt_sought and $elt_sought ne $elt->{'nodename'} |
|
92
|
4 |
23 |
if (defined $elt_sought and defined(my $value = $attrs->{$elt_sought})) |
|
96
|
6 |
49 |
if (my $rgx = $grammar_frag->{'.rgx'}) |
|
98
|
5 |
1 |
if (defined $elt) |
|
99
|
5 |
0 |
if $elt->{'children'} |
|
103
|
0 |
1 |
if $rgx =~ /^\(/ |
|
107
|
11 |
38 |
if (my $all = $grammar_frag->{'.all'}) { } |
|
|
37 |
1 |
elsif (my $ref = $grammar_frag->{'.ref'}) { } |
|
|
1 |
0 |
elsif (my $any = $grammar_frag->{'.any'}) { } |
|
114
|
5 |
28 |
if ($all_frag->{'-skip'}) { } |
|
|
1 |
27 |
elsif ($all_frag->{'-wrap'}) { } |
|
125
|
0 |
33 |
if grep((!defined($_)), @partial) |
|
130
|
15 |
22 |
if exists $atoms->{$ref} |
|
131
|
0 |
22 |
if defined $elt and $elt->{'nodename'} ne $ref |
|
133
|
11 |
11 |
if (my $new_ref = $new_frag->{'.ref'}) |
|
136
|
0 |
11 |
if (not defined $elt) { } |
|
|
8 |
3 |
elsif ($elt->{'children'}) { } |
|
|
3 |
0 |
elsif ($new_frag->{'-wrap'}) { } |
|
139
|
0 |
8 |
if @{$elt->{'children'};} != 1 |
|
158
|
0 |
1 |
defined $elt ? : |
|
161
|
0 |
1 |
if grep((!defined($_)), @partial) |
|
170
|
3 |
0 |
unless ($xml_loaded) |
|
179
|
0 |
0 |
if ref $item ne 'HASH' |
|
183
|
0 |
0 |
unless $item->{'children'} |
|
184
|
0 |
0 |
if (not ref $_) { } |