| line |
true |
false |
branch |
|
80
|
4 |
11 |
if $version < $check->{'introduced'} |
|
83
|
3 |
8 |
if defined $check->{'removed'} and $version >= $check->{'removed'} |
|
121
|
1 |
4 |
unless __instance($elem, "PPIx::Regexp::Element") |
|
124
|
2 |
12 |
unless $elem = $elem->_parent |
|
195
|
1 |
2 |
unless __instance($node, "PPIx::Regexp::Element") |
|
216
|
1 |
82 |
if defined $self->{'explanation'} |
|
219
|
81 |
1 |
if (my $main = $self->main_structure) |
|
224
|
82 |
0 |
if (defined(my $splain = $explanation->{$content})) |
|
232
|
0 |
0 |
if $PPIx::Regexp::NO_EXPLANATION_FATAL |
|
241
|
0 |
0 |
if $PPIx::Regexp::NO_EXPLANATION_FATAL |
|
339
|
6 |
92 |
if $elem->isa("PPIx::Regexp::Structure::Assertion") |
|
354
|
2 |
4 |
if $assertion->is_look_ahead |
|
374
|
1 |
4 |
if $ele->isa("PPIx::Regexp::Structure::RegexSet") |
|
376
|
1 |
3 |
unless $ele = $ele->parent |
|
449
|
54 |
0 |
$self->{'location'} ? : |
|
522
|
0 |
6 |
unless defined $modifier |
|
528
|
6 |
13 |
if ($elem->can("__ducktype_modifier_asserted")) |
|
530
|
6 |
0 |
if defined($val = $elem->__ducktype_modifier_asserted($modifier)) |
|
533
|
5 |
8 |
if (my $prev = $elem->sprevious_sibling) { } |
|
555
|
1 |
15 |
unless my $parent = $self->_parent |
|
570
|
36 |
703 |
unless my($method, $inx) = $self->__my_nav |
|
585
|
11 |
4 |
if (my $next = $self->next_element) { } |
|
|
3 |
1 |
elsif (my $parent = $self->parent) { } |
|
670
|
1 |
15 |
unless my $parent = $self->_parent |
|
672
|
3 |
12 |
unless my $inx = $self->__my_inx |
|
690
|
3 |
30 |
unless my($method, $inx) = $self->__my_nav |
|
692
|
10 |
20 |
unless $inx |
|
706
|
11 |
4 |
if (my $previous = $self->previous_element) { } |
|
|
3 |
1 |
elsif (my $parent = $self->parent) { } |
|
755
|
0 |
0 |
if $self->significant |
|
791
|
1 |
10 |
defined $r->{'removed'} ? : |
|
795
|
0 |
10 |
unless @req |
|
845
|
0 |
1 |
unless my $parent = $self->_parent |
|
850
|
0 |
2 |
unless $elem[$inx] |
|
852
|
1 |
1 |
if $elem[$inx]->significant |
|
873
|
430 |
4 |
if $sib->significant |
|
891
|
1 |
1 |
unless my $inx = $self->__my_inx |
|
893
|
0 |
1 |
unless my $parent = $self->_parent |
|
897
|
1 |
1 |
if $elem[--$inx]->significant |
|
918
|
17 |
1 |
if $sib->significant |
|
945
|
0 |
2 |
unless my $top = $self->top |
|
947
|
0 |
2 |
unless $top->can("source") |
|
949
|
0 |
2 |
unless my $source = $top->source |
|
951
|
1 |
1 |
unless $source->can("statement") |
|
1067
|
0 |
33 |
unless __instance($self, "PPIx::Regexp::Element") |
|
1071
|
10 |
23 |
unless my $parent = $self->_parent |
|
1082
|
1 |
32 |
unless my $parent = $self->_parent |
|
1098
|
39 |
756 |
unless my $parent = $self->_parent |
|
1101
|
0 |
758 |
unless $parent->can($method) |
|
1104
|
2 |
756 |
unless defined(my $inx = &first(sub {
&refaddr($elem[$_]) == $addr;
}
, 0 .. $#elem)) |
|
1119
|
10345 |
2451 |
if (@arg) |
|
1121
|
3936 |
6409 |
if (defined $parent) { } |
|
1122
|
0 |
3936 |
unless __instance($parent, "PPIx::Regexp::Element") |
|
1141
|
0 |
2 |
unless defined $msg |