| line |
true |
false |
branch |
|
54
|
1 |
2 |
if $self->is_named |
|
57
|
1 |
1 |
if $self->is_relative |
|
84
|
0 |
30 |
unless my $re = $self->top |
|
87
|
6 |
24 |
if ($self->is_named) { } |
|
89
|
0 |
6 |
unless $re->find("PPIx::Regexp::Structure::NamedCapture") |
|
91
|
0 |
6 |
unless $elem->name eq $name |
|
93
|
0 |
6 |
unless $re->__token_post_order($elem, $self) < 0 |
|
99
|
0 |
24 |
unless $re->find("PPIx::Regexp::Structure::Capture") |
|
101
|
0 |
36 |
unless $elem->number == $number |
|
103
|
0 |
36 |
unless $re->__token_post_order($elem, $self) < 0 |
|
108
|
18 |
12 |
if @capture == 1 |
|
113
|
0 |
12 |
unless defined $ele_min |
|
115
|
6 |
6 |
$base_min == $ele_min ? : |
|
|
12 |
0 |
if defined $base_min |
|
117
|
0 |
12 |
unless defined $ele_max |
|
119
|
6 |
6 |
$base_max == $ele_max ? : |
|
|
12 |
0 |
if defined $base_max |
|
161
|
9 |
9 |
'PPIx::Regexp::Token::Backreference'->isa(scalar caller) ? : |
|
173
|
64 |
46 |
unless $character eq "\\" |
|
178
|
19 |
39 |
unless my $accept = $tokenizer->find_regexp($re) |
|
189
|
0 |
13 |
unless $tokenizer->interpolates |
|
203
|
8 |
17 |
if ($self->is_named) |
|
204
|
8 |
0 |
if $arg{'capture_name'}{$self->name} |
|
214
|
0 |
17 |
if $absolute <= 0 |
|
220
|
16 |
1 |
if $absolute <= $arg{'max_capture'} |
|
226
|
1 |
0 |
if ($content =~ / \A \\ [0-7]{2,} \z /msx) |
|
237
|
0 |
0 |
unless defined $msg |