| line |
true |
false |
branch |
|
40
|
0 |
0 |
if @{$$subrule{'prods'};} > 1 or not @{$$subrule{'prods'};} |
|
44
|
0 |
0 |
if (ref $$prod{'items'}[$i] eq 'Parse::RecDescent::Subrule' and $$prod{'items'}[$i]{'subrule'} eq $$subrule{'name'}) |
|
69
|
0 |
0 |
if (ref $_ eq 'Parse::RecDescent::Token' and not $$_{'pattern'} =~ /[\(\[\]\)\+\*\?\\\^]/ and not $$_{'pattern'} =~ /\$$/) |
|
74
|
0 |
0 |
if (ref $_ eq 'Parse::RecDescent::InterpLit' and not $$_{'pattern'} =~ /(^|[^\\])[\$\@]/) |
|
79
|
0 |
0 |
unless @{$$_{'items'};} > 1 |
|
81
|
0 |
0 |
if (ref $$_{'items'}[$i] eq 'Parse::RecDescent::Literal' and ref $$_{'items'}[$i - 1] eq 'Parse::RecDescent::Literal' || ref $$_{'items'}[$i - 1] eq 'Parse::RecDescent::InterpLit') |
|
85
|
0 |
0 |
if (ref $$_{'items'}[$i - 1] eq 'Parse::RecDescent::InterpLit') |
|
120
|
4 |
0 |
unless $dq =~ /"/ |
|
121
|
0 |
0 |
unless $dq =~ /[\{\}]/ |
|
123
|
0 |
0 |
unless $dq =~ /$_/ |
|
137
|
50 |
0 |
unless $q =~ /'/ |
|
138
|
0 |
0 |
unless $q =~ /[\{\}]/ |
|
140
|
0 |
0 |
unless $q =~ /$_/ |