| 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 |
__PACKAGE__->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
|