line |
true |
false |
branch |
140
|
0 |
4 |
unless defined $opts{$param} |
148
|
2 |
12 |
if $node->is_root |
153
|
2 |
10 |
if ($opts{'uid'} == $uid) |
171
|
3089 |
11752 |
if ($event_name =~ /^close_(?:bracket|parenthesis)$/) |
178
|
3308 |
11533 |
if ($event_name =~ /^open_(?:bracket|parenthesis)$/ or $event_name =~ /_prefix$/) |
196
|
872 |
7510 |
if $node->is_root |
214
|
0 |
2 |
unless defined $target |
221
|
2 |
24 |
if $node->is_root |
225
|
3 |
21 |
if (index($meta->{'text'}, $target) >= 0) |
242
|
0 |
7 |
if (not defined $wanted_uid or $wanted_uid < 1 or $wanted_uid > $self->uid) |
255
|
7 |
42 |
if $node->is_root |
260
|
7 |
35 |
if ($wanted_uid == $uid) |
292
|
1525 |
0 |
if defined $opts{'re'} |
293
|
0 |
1525 |
if defined $opts{'verbose'} |
313
|
874 |
551 |
if (defined(my $value = $self->_process)) { } |
315
|
0 |
874 |
if $self->verbose > 1 |
321
|
551 |
0 |
if ($self->ambiguous) { } |
356
|
0 |
4 |
unless defined $opts{$param} |
364
|
2 |
12 |
if $node->is_root |
369
|
2 |
10 |
if ($opts{'uid'} == $uid) |
387
|
0 |
1525 |
if $self->verbose |
391
|
0 |
1525 |
if ($string_re eq '') |
393
|
0 |
0 |
if $self->verbose |
398
|
0 |
1525 |
if $self->verbose |
400
|
0 |
1525 |
if ($self->verbose > 1) |
432
|
10 |
14833 |
if $event_name eq q['exhausted] |
439
|
0 |
14833 |
unless defined $pos |
446
|
551 |
874 |
if (my $status = $self->recce->ambiguous) { } |
|
860 |
14 |
elsif ($self->recce->exhausted) { } |
451
|
533 |
18 |
if $#$terminals < 0 |
462
|
8 |
852 |
if ($pos + 1 == $length and substr($string_re, $pos, 1) eq ')') |
470
|
0 |
860 |
if $self->verbose > 1 |
473
|
0 |
1425 |
if ($message) |
477
|
0 |
0 |
if $self->verbose |
480
|
0 |
1425 |
if $self->verbose |
485
|
551 |
874 |
$self->ambiguous ? : |
503
|
0 |
0 |
if $node->is_root |
545
|
0 |
2 |
unless defined $target |
554
|
2 |
36 |
if $node->is_root |
558
|
4 |
32 |
if ($meta->{'text'} =~ /$re/) |
578
|
0 |
2 |
unless defined $opts{$param} |
586
|
1 |
6 |
if $node->is_root |
591
|
1 |
5 |
if ($opts{'uid'} == $uid) |
609
|
1525 |
2 |
&does($raw_re, 'Regexp') ? : |
633
|
0 |
0 |
'x' =~ /$re/ ? : |
658
|
184 |
14659 |
if ($event_count > 1) |
662
|
121 |
63 |
if ($event_list eq 'caret, string') { } |
|
23 |
40 |
elsif ($event_list eq 'query, string') { } |
|
40 |
0 |
elsif ($event_list eq 'string, vertical_bar') { } |
699
|
10 |
14833 |
if ($event_name eq q['exhausted]) |
711
|
0 |
14833 |
if ($self->verbose > 1) |