| line |
true |
false |
branch |
|
140
|
0 |
5 |
if (ref $$tokens{$token} eq 'HASH') { } |
|
147
|
0 |
0 |
length $match == 1 ? : |
|
|
5 |
0 |
ref $match ? : |
|
177
|
0 |
5 |
unless @$expected |
|
180
|
0 |
7 |
if $$self{'debug'} |
|
183
|
0 |
7 |
if $$self{'debug'} |
|
193
|
0 |
9 |
unless $$self{'tokens'}{$token} |
|
195
|
0 |
9 |
if (not $type) { } |
|
|
9 |
0 |
elsif ($type eq 'RE') { } |
|
|
0 |
0 |
elsif ($type eq 'STRING') { } |
|
|
0 |
0 |
elsif ($type eq 'CHAR') { } |
|
196
|
0 |
0 |
if $$self{'debug'} |
|
200
|
7 |
2 |
if ($$buffer =~ /^($what)/) |
|
202
|
2 |
5 |
if ($length == length $$buffer and $buffer_can_grow) |
|
210
|
0 |
0 |
if $what eq substr($$buffer, 0, $length) |
|
214
|
0 |
0 |
if $what eq $first_char |
|
221
|
2 |
5 |
unless ($matched) |
|
222
|
0 |
2 |
if $$self{'debug'} |
|
226
|
0 |
5 |
unless ($length) |
|
229
|
0 |
5 |
if $$self{'debug'} |
|
232
|
0 |
5 |
if ($check and not &$check($self, $token, $match, $length)) |
|
233
|
0 |
0 |
if $$self{'debug'} |
|
238
|
0 |
5 |
if ($$self{'longest_expected'}) |
|
239
|
0 |
0 |
if ($length > $longest) { } |
|
|
0 |
0 |
elsif ($length < $longest) { } |
|
240
|
0 |
0 |
if $$self{'debug'} |
|
243
|
0 |
0 |
if $$self{'debug'} |
|
252
|
0 |
5 |
if $$self{'debug'} |
|
254
|
0 |
5 |
if (ref $how) { } |
|
|
0 |
5 |
elsif ($how eq 'hash') { } |
|
|
0 |
5 |
elsif ($how eq 'array') { } |
|
|
5 |
0 |
elsif ($how eq 'scalar') { } |
|
|
0 |
0 |
elsif ($how eq 'undef') { } |
|
275
|
2 |
6 |
if ($rec->current_earleme == $rec->thin->furthest_earleme) |
|
281
|
6 |
0 |
if (defined(my $events = eval {
do {
$rec->earleme_complete
}
})) { } |
|
282
|
3 |
3 |
if ($events and $rec->exhausted) |
|
287
|
2 |
1 |
if @$expected |
|
289
|
0 |
0 |
if $$self{'debug'} |
|
294
|
1 |
1 |
if $buffer_can_grow and $$self{'min_buffer'} > length $$buffer |
|
297
|
0 |
2 |
if $$self{'debug'} |
|
334
|
0 |
0 |
$show ? : |