line |
true |
false |
branch |
26
|
0 |
0 |
unless defined $terminator |
35
|
0 |
0 |
if substr($rec, 0, 1) eq '#' |
36
|
0 |
0 |
if $rec =~ /^\s*$/ |
40
|
0 |
0 |
if (my $r = shift @newrecs) |
41
|
0 |
0 |
if substr($r, 0, 1) eq '#' |
48
|
0 |
0 |
if (@records) { } |
61
|
0 |
0 |
if (ref $i) |
63
|
0 |
0 |
if defined $tok |
71
|
0 |
0 |
if defined $i |
75
|
0 |
0 |
if @newtoks |
78
|
0 |
0 |
unless defined $i |
97
|
0 |
0 |
if (ref $_[0][1] eq 'CODE') |
118
|
0 |
0 |
unless defined $v |
131
|
0 |
0 |
defined $input ? : |
137
|
0 |
0 |
defined $aref && ref $aref eq 'ARRAY' ? : |
147
|
0 |
0 |
unless ref $wanted |
150
|
0 |
0 |
unless defined $input |
153
|
0 |
0 |
unless defined $$wanted[$i] |
154
|
0 |
0 |
unless $$wanted[$i] eq $$next[$i] |
157
|
0 |
0 |
if defined $ENV{'DEBUG_TOKEN'} |
165
|
0 |
0 |
if @p == 0 |
166
|
0 |
0 |
if @p == 1 |
173
|
0 |
0 |
if (($v, $input) = &$_($input)) { } |
186
|
0 |
0 |
if @p == 0 |
187
|
0 |
0 |
if @p == 1 |
192
|
0 |
0 |
if (($v, $newinput) = &$_($input)) |
203
|
0 |
0 |
unless @_ == 2 |
208
|
0 |
0 |
if (($v0, $ni0) = &$p0($input)) |
209
|
0 |
0 |
if (($v1, $ni1) = &$p1($ni0)) |
222
|
0 |
0 |
defined $r ? : |
235
|
0 |
0 |
unless defined $separator |
239
|
0 |
0 |
unless defined $_[0] |
241
|
0 |
0 |
if (ref $_[0] eq 'ARRAY') { } |
246
|
0 |
0 |
if defined $_[1] |
256
|
0 |
0 |
if (my($value, $newinput) = &$parser($input)) { } |