| line |
true |
false |
branch |
|
60
|
0 |
2573 |
unless __instance($elem, "PPIx::Regexp::Element") |
|
84
|
0 |
6138 |
unless defined $inx |
|
111
|
0 |
1 |
unless __instance($elem, "PPIx::Regexp::Element") |
|
116
|
1 |
2 |
if $addr == &refaddr($elem) |
|
168
|
656 |
687 |
if "CODE" eq ref $want |
|
170
|
1 |
686 |
if ref $want |
|
171
|
3 |
683 |
unless $want =~ / \A PPIx::Regexp:: /msx |
|
174
|
96 |
6084 |
__instance($_[1], $want) ? : |
|
181
|
1 |
1335 |
unless $want = _find_routine($want) |
|
188
|
94 |
6085 |
if my $rslt = eval {
do {
&$want($self, $elem)
}
} |
|
190
|
0 |
6179 |
if $@ |
|
192
|
5528 |
651 |
unless __instance($elem, "PPIx::Regexp::Node") |
|
193
|
0 |
651 |
unless defined $rslt |
|
195
|
52 |
599 |
if $rslt = $elem->find($want) |
|
198
|
126 |
1209 |
@found ? : |
|
223
|
0 |
1 |
unless $found = $self->find($want) |
|
228
|
0 |
2 |
unless my $dad = $elem->parent |
|
229
|
1 |
1 |
unless $parents{&refaddr($dad)}++ |
|
247
|
0 |
7 |
unless $want = _find_routine($want) |
|
252
|
3 |
13 |
if my $rslt = eval {
do {
&$want($self, $elem)
}
} |
|
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 &refaddr(scalar $child->parent) == &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'}{&refaddr(scalar $_->last_token)}) |