line |
true |
false |
branch |
133
|
0 |
586 |
unless my $self = $class->SUPER::__new($content, %arg) |
138
|
3 |
583 |
if $content =~ / \A $capture_group_leader* \^ /msx and defined $arg{'tokenizer'}->modifier_seen("n") |
168
|
410 |
0 |
if (defined $modifier) { } |
171
|
0 |
0 |
if defined $_ |
172
|
0 |
0 |
$de_aggregate{$_} ? : |
186
|
0 |
5461 |
unless not $wild or 1 == length $modifier |
189
|
15 |
5446 |
if (my $bin = $aggregate{$modifier}) |
191
|
15 |
0 |
unless $wild |
193
|
0 |
0 |
unless defined $aggr |
195
|
0 |
0 |
unless $aggr =~ / \A ( (?: \Q$modifier\E )* ) \z /msx |
199
|
2583 |
2863 |
if ($wild) |
241
|
4 |
0 |
if (defined(my $val = delete $mods{'match_semantics'})) |
245
|
4 |
10 |
if (my $val = $mods{$key}) { } |
251
|
0 |
4 |
wantarray ? : |
288
|
561 |
30 |
unless defined(my $val = delete $mods{$bin}) |
292
|
591 |
0 |
wantarray ? : |
317
|
0 |
5 |
unless defined $modifier |
334
|
1 |
92 |
if $self->asserts("xx") |
338
|
1 |
91 |
if $self->asserts("n") |
343
|
6 |
85 |
if defined $match_semantics and $is_statement_modifier |
348
|
1 |
84 |
if defined $match_semantics and "aa" eq $match_semantics |
354
|
1 |
10 |
if defined $match_semantics and not $is_statement_modifier and "a" eq $match_semantics |
361
|
10 |
73 |
if defined $match_semantics and not $is_statement_modifier |
367
|
0 |
73 |
if not $is_statement_modifier and $content =~ / \^ /msx |
371
|
3 |
70 |
if $self->asserts("r") |
372
|
2 |
68 |
if $self->asserts("p") |
373
|
2 |
66 |
if $self->content =~ / \A [(]? [?] .* - /msx |
375
|
1 |
65 |
if $self->asserts("c") |
396
|
8 |
1110 |
if ($content =~ / \A \^ /msx) |
423
|
11 |
401 |
if ('-' eq $1) { } |
|
26 |
375 |
elsif (my $bin = $aggregate{$1}) { } |
429
|
25 |
1 |
$value ? : |
466
|
242 |
43 |
if ($val) { } |
483
|
3 |
583 |
if $self->{'__caret_undoes_n'} |