| line |
true |
false |
branch |
|
112
|
0 |
1 |
unless my $Element = &_INSTANCE(shift(), "PPI::Element") |
|
113
|
0 |
1 |
if $PPI::Node::_PARENT{&refaddr($Element)} |
|
150
|
2 |
0 |
if (wantarray) { } |
|
211
|
2136 |
0 |
wantarray ? : |
|
227
|
30116 |
30382 |
if wantarray |
|
230
|
68679 |
37396 |
if $_->significant |
|
249
|
2 |
854 |
unless defined &_NUMBER($index) |
|
275
|
24477 |
121065 |
if ($idx < 0) { } |
|
278
|
22915 |
2783 |
if $el->[$cursor]->significant and ++$idx >= 0 |
|
283
|
119215 |
40283 |
if $el->[$cursor]->significant and --$idx < 0 |
|
306
|
5 |
29 |
unless my $Element = &_INSTANCE(shift(), "PPI::Element") |
|
311
|
29 |
50 |
if &refaddr($self) == &refaddr($Element) |
|
374
|
3 |
5211 |
unless my $wanted = $self->_wanted(shift()) |
|
383
|
16815 |
326853 |
if $rv |
|
386
|
0 |
343668 |
unless defined $rv |
|
389
|
285061 |
58607 |
unless $Element->isa("PPI::Node") |
|
393
|
21499 |
37108 |
if ($Element->isa('PPI::Structure')) { } |
|
394
|
21468 |
31 |
if $Element->finish |
|
396
|
21499 |
0 |
if $Element->start |
|
403
|
0 |
5211 |
unless ($ok) |
|
408
|
4376 |
835 |
@found ? : |
|
432
|
0 |
2172 |
unless my $wanted = $self->_wanted(shift()) |
|
442
|
35 |
735346 |
if ($element_rv) |
|
448
|
23515 |
711831 |
unless defined $element_rv |
|
451
|
600226 |
111605 |
unless $Element->isa("PPI::Node") |
|
455
|
42433 |
69172 |
if ($Element->isa('PPI::Structure')) { } |
|
456
|
42387 |
46 |
if defined $Element->finish |
|
458
|
42433 |
0 |
if defined $Element->start |
|
465
|
0 |
2172 |
unless ($ok) |
|
470
|
2137 |
35 |
unless $rv |
|
491
|
3 |
2133 |
$rv ? : |
|
509
|
0 |
66 |
unless my $child = &_INSTANCE(shift(), "PPI::Element") |
|
516
|
1 |
65 |
unless defined $p |
|
544
|
0 |
30 |
unless my $wanted = $self->_wanted(shift()) |
|
552
|
62 |
207 |
if ($rv) |
|
554
|
0 |
62 |
unless $element->delete |
|
560
|
0 |
207 |
unless defined $rv |
|
562
|
43 |
164 |
if (&_INSTANCE($element, "PPI::Node")) |
|
569
|
0 |
30 |
unless ($ok) |
|
583
|
7415 |
1 |
defined $_[0] ? : |
|
584
|
0 |
1 |
if $^W |
|
589
|
3707 |
3708 |
if &_CODELIKE($it) |
|
590
|
1 |
3707 |
if (ref $it) |
|
592
|
0 |
1 |
if $^W |
|
597
|
1588 |
2119 |
unless substr($it, 0, 5) eq "PPI::" |
|
598
|
1 |
3706 |
unless (&_CLASS($it) and $it->isa("PPI::Element")) |
|
600
|
0 |
1 |
if $^W |
|
609
|
0 |
3706 |
if (defined $_[0]) |
|
611
|
0 |
0 |
if (ref $content eq 'Regexp') { } |
|
|
0 |
0 |
elsif (ref $content) { } |
|
615
|
0 |
0 |
if $^W |
|
635
|
3706 |
0 |
ref $code eq 'CODE' ? : |
|
664
|
0 |
7956 |
unless my $first = $self->{'children'}[0] |
|
677
|
16727 |
80509 |
if ($_[0]{'children'}) |
|
680
|
97216 |
307718 |
if $_->{'children'} |
|
759
|
21 |
96 |
if $Element->isa("PPI::Node") |
|
763
|
29 |
4 |
unless $Node->isa("PPI::Structure") |
|
765
|
4 |
0 |
if $Node->start |
|
768
|
4 |
0 |
if $Node->finish |