| line |
true |
false |
branch |
|
145
|
0 |
9 |
if (ref $tokens->{$token} eq 'HASH') { } |
|
152
|
0 |
0 |
length $match == 1 ? : |
|
|
9 |
0 |
ref $match ? : |
|
182
|
0 |
9 |
unless @$expected |
|
186
|
0 |
10 |
if $self->{'debug'} |
|
189
|
0 |
10 |
if $self->{'debug'} |
|
198
|
0 |
13 |
unless $self->{'tokens'}{$token} |
|
200
|
0 |
0 |
do {
$type eq 'CHAR'
} ? : |
|
|
0 |
0 |
do {
$type eq 'STRING'
} ? : |
|
|
13 |
0 |
do {
$type eq 'RE'
} ? : |
|
|
13 |
0 |
$type ? : |
|
201
|
0 |
0 |
if $self->{'debug'} |
|
205
|
10 |
3 |
if ($$buffer =~ /^($what)/) |
|
207
|
3 |
7 |
if ($length == length $$buffer and $buffer_can_grow) |
|
215
|
0 |
0 |
if $what eq substr($$buffer, 0, $length) |
|
219
|
0 |
0 |
if $what eq $first_char |
|
226
|
3 |
7 |
unless ($matched) |
|
227
|
0 |
3 |
if $self->{'debug'} |
|
231
|
0 |
7 |
unless ($length) |
|
235
|
0 |
7 |
if $self->{'debug'} |
|
237
|
0 |
7 |
if ($check and not &$check($self, $token, $match, $length)) |
|
239
|
0 |
0 |
if $self->{'debug'} |
|
243
|
0 |
7 |
if ($self->{'longest_expected'}) |
|
244
|
0 |
0 |
if ($length > $longest) { } |
|
|
0 |
0 |
elsif ($length < $longest) { } |
|
245
|
0 |
0 |
if $self->{'debug'} |
|
248
|
0 |
0 |
if $self->{'debug'} |
|
257
|
0 |
7 |
if $self->{'debug'} |
|
259
|
0 |
7 |
if (ref $how) { } |
|
|
0 |
7 |
elsif ($how eq 'hash') { } |
|
|
0 |
7 |
elsif ($how eq 'array') { } |
|
|
7 |
0 |
elsif ($how eq 'scalar') { } |
|
|
0 |
0 |
elsif ($how eq 'undef') { } |
|
280
|
3 |
9 |
if ($rec->current_earleme == $rec->thin->furthest_earleme) |
|
282
|
1 |
0 |
if $self->{'complete'} and length $$buffer || $buffer_can_grow |
|
288
|
9 |
0 |
if (defined(my $events = eval {
do {
$rec->earleme_complete
}
})) { } |
|
289
|
5 |
4 |
if ($events and $rec->exhausted) |
|
292
|
1 |
1 |
if $self->{'complete'} and length $$buffer || $buffer_can_grow |
|
296
|
2 |
2 |
if @$expected |
|
298
|
0 |
0 |
if $self->{'debug'} |
|
299
|
0 |
0 |
if $self->{'complete'} |
|
305
|
1 |
1 |
if $buffer_can_grow and $self->{'min_buffer'} > length $$buffer |
|
307
|
0 |
2 |
if $self->{'debug'} |
|
344
|
2 |
0 |
$show ? : |