| line |
true |
false |
branch |
|
60
|
0 |
2588 |
unless __instance($elem, "PPIx::Regexp::Element")
|
|
84
|
0 |
6159 |
unless defined $inx
|
|
111
|
0 |
1 |
unless __instance($elem, "PPIx::Regexp::Element")
|
|
116
|
1 |
2 |
if $addr == builtin::refaddr($elem)
|
|
168
|
656 |
691 |
if "CODE" eq ref $want
|
|
170
|
1 |
690 |
if ref $want
|
|
171
|
3 |
687 |
unless $want =~ / \A PPIx::Regexp:: /msx
|
|
174
|
96 |
6102 |
__instance($_[1], $want) ? :
|
|
181
|
1 |
1339 |
unless $want = _find_routine($want)
|
|
188
|
94 |
6103 |
if my $rslt = eval {
|
|
190
|
0 |
6197 |
if $@
|
|
192
|
5546 |
651 |
unless __instance($elem, "PPIx::Regexp::Node")
|
|
193
|
0 |
651 |
unless defined $rslt
|
|
195
|
52 |
599 |
if $rslt = $elem->find($want)
|
|
198
|
126 |
1213 |
@found ? :
|
|
223
|
0 |
1 |
unless $found = $self->find($want)
|
|
228
|
0 |
2 |
unless my $dad = $elem->parent
|
|
229
|
1 |
1 |
unless $parents{builtin::refaddr($dad)}++
|
|
247
|
0 |
7 |
unless $want = _find_routine($want)
|
|
252
|
3 |
13 |
if my $rslt = eval {
|
|
254
|
0 |
13 |
if $@
|
|
256
|
9 |
4 |
unless __instance($elem, "PPIx::Regexp::Node")
|
|
257
|
0 |
4 |
unless defined $rslt
|
|
259
|
0 |
4 |
unless defined($rslt = $elem->find_first($want))
|
|
261
|
4 |
0 |
if $rslt
|
|
288
|
0 |
4 |
unless my $elem = $self->first_element
|
|
292
|
0 |
0 |
unless $elem = $elem->next_element
|
|
318
|
0 |
45 |
unless my $elem = $self->last_element
|
|
322
|
0 |
0 |
unless $elem = $elem->previous_element
|
|
330
|
0 |
1 |
unless my $token = $self->first_token
|
|
347
|
5 |
0 |
if my $kid_rslt = $kid->is_matcher
|
|
349
|
0 |
0 |
unless defined $kid_rslt
|
|
386
|
15 |
682 |
if (defined(my $ver = $elem->perl_version_removed))
|
|
387
|
0 |
15 |
if (defined $max) { }
|
|
388
|
0 |
0 |
if $ver < $max
|
|
414
|
0 |
22 |
unless defined $inx
|
|
418
|
20 |
2 |
if ($inx >= 0) { }
|
|
423
|
1 |
21 |
unless $kids->[$loc]->significant
|
|
424
|
1 |
20 |
if --$inx >= 0
|
|
435
|
2 |
3 |
unless $kids->[$loc]->significant
|
|
436
|
1 |
2 |
if $inx++ < -1
|
|
456
|
4 |
0 |
if (wantarray) { }
|
|
|
0 |
0 |
elsif (defined wantarray) { }
|
|
461
|
0 |
0 |
if $_->significant
|
|
473
|
0 |
9 |
unless $self->significant
|
|
498
|
2 |
388 |
unless ($obj)
|
|
541
|
428 |
1498 |
if ($elem->isa('PPIx::Regexp::Token::Operator') and $elem->content eq '|') { }
|
|
545
|
390 |
33 |
defined $raw_min ? :
|
|
|
423 |
5 |
if defined $node_min
|
|
550
|
378 |
45 |
defined $raw_max ? :
|
|
|
423 |
5 |
if defined $node_max
|
|
557
|
1435 |
34 |
defined $e_min ? :
|
|
|
1469 |
29 |
if defined $raw_min
|
|
559
|
1403 |
46 |
defined $e_max ? :
|
|
|
1449 |
49 |
if defined $raw_max
|
|
569
|
0 |
23 |
unless builtin::refaddr($child->parent) == builtin::refaddr($self)
|
|
571
|
0 |
23 |
unless my($method, $inx) = $child->__my_nav
|
|
579
|
0 |
3 |
unless defined $msg
|
|
590
|
9 |
14 |
unless ($self->{'perl_requirements'})
|
|
620
|
5 |
37 |
unless $self->{'_token_order'}
|
|
623
|
0 |
84 |
unless ref $_
|
|
625
|
0 |
84 |
unless defined(my $inx = $self->{'_token_order'}{builtin::refaddr($_->last_token)})
|