| line |
true |
false |
branch |
|
133
|
0 |
589 |
unless my $self = $class->SUPER::__new($content, %arg) |
|
138
|
3 |
586 |
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 |
if ($de_aggregate{$_}) { } |
|
186
|
0 |
5357 |
unless not $wild or 1 == length $modifier |
|
189
|
15 |
5342 |
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
|
2529 |
2813 |
if ($wild) |
|
241
|
4 |
1 |
if (defined(my $val = delete $modifier{'match_semantics'})) |
|
246
|
5 |
10 |
$val ? : |
|
248
|
1 |
14 |
unless (defined $rslt[-1]) |
|
249
|
1 |
0 |
if (my $code = $self->can("_explain_$mod")) { } |
|
256
|
0 |
5 |
wantarray ? : |
|
304
|
565 |
30 |
unless defined(my $val = delete $mods{$bin}) |
|
308
|
595 |
0 |
wantarray ? : |
|
333
|
0 |
5 |
unless defined $modifier |
|
350
|
1 |
92 |
if $self->asserts("xx") |
|
354
|
1 |
91 |
if $self->asserts("n") |
|
359
|
6 |
85 |
if defined $match_semantics and $is_statement_modifier |
|
364
|
1 |
84 |
if defined $match_semantics and "aa" eq $match_semantics |
|
370
|
1 |
10 |
if defined $match_semantics and not $is_statement_modifier and "a" eq $match_semantics |
|
377
|
10 |
73 |
if defined $match_semantics and not $is_statement_modifier |
|
383
|
0 |
73 |
if not $is_statement_modifier and $content =~ / \^ /msx |
|
387
|
3 |
70 |
if $self->asserts("r") |
|
388
|
2 |
68 |
if $self->asserts("p") |
|
389
|
2 |
66 |
if $self->content =~ / \A [(]? [?] .* - /msx |
|
391
|
1 |
65 |
if $self->asserts("c") |
|
412
|
8 |
1116 |
if ($content =~ / \A \^ /msx) |
|
439
|
11 |
407 |
if ('-' eq $1) { } |
|
|
26 |
381 |
elsif (my $bin = $aggregate{$1}) { } |
|
445
|
25 |
1 |
$value ? : |
|
482
|
245 |
43 |
if ($val) { } |
|
499
|
3 |
586 |
if $self->{'__caret_undoes_n'} |