| line |
!l |
l&&!r |
l&&r |
condition |
|
181
|
3 |
0 |
3 |
$qdel && qr/\G([$qdel])/ |
|
238
|
382 |
140 |
10 |
$qdel and $$textref =~ /$qdel/cg |
|
|
470 |
50 |
2 |
$quotelike and _match_quotelike($textref, qr/\G()/, $ref2slashvalid{$textref}, $ref2qmarkvalid{$textref}) |
|
390
|
990 |
156 |
12 |
$ignore and $$textref =~ /\G(?:$ignore)/cg |
|
|
1038 |
96 |
12 |
$bad and $$textref =~ /\G($bad)/cgs |
|
594
|
0 |
4 |
131 |
pos $$textref and defined $ref2slashvalid{$textref} |
|
597
|
498 |
2 |
0 |
$rd and $$textref =~ /\G(\(\?\)|\(s\?\)|\(s\))/cg |
|
610
|
0 |
2 |
129 |
$closing && $1 eq $closing |
|
706
|
105 |
4 |
739 |
pos $$textref and defined $ref2slashvalid{$textref} |
|
723
|
25 |
782 |
41 |
$initial and $maybe_quote{$initial} |
|
|
412 |
378 |
17 |
$allow_slash_match and $initial eq "/" |
|
|
697 |
91 |
2 |
$allow_qmark_match and $initial eq "?" |
|
921
|
359 |
206 |
26 |
$ref2slashvalid{$textref} and $text =~ /(?:$RE_NUM|[\)\]])\s*$/ |
|
|
206 |
357 |
2 |
not $ref2slashvalid{$textref} and $text =~ /$RE_PREREGEX_PAT\s*$/ |
|
|
206 |
311 |
46 |
not $ref2slashvalid{$textref} and $text =~ /$RE_EXPR_PAT\s*$/ |
|
944
|
27 |
0 |
14 |
defined $_[2] && $_[2] > 0 |
|
952
|
14 |
0 |
0 |
$^W and defined $_[2] |
|
|
14 |
0 |
0 |
$^W and defined $_[2] and $max > 1 |
|
983
|
1026 |
2 |
108 |
defined $field and length $field |
|
986
|
67 |
30 |
4 |
length $pref and not defined $unkpos |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
374
|
40 |
2 |
0 |
eval "qq{$rdel}" || do {
my $del;
foreach $_ ('~', '!', '^', '&', '*', ')', '_', '+', '-', '=', '}', ']', ':', '"', ';', q['], '>', '.', '?', '/', '|', q[']) {
next if $rdel =~ /\Q$_\E/;
$del = $_;
last;
} ;
unless ($del) {
croak("Can't interpolate right delimiter $rdel");
} ;
eval "qq$del$rdel$del"
} |
|
407
|
4 |
4 |
4 |
$omode eq "PARA" or $omode eq "MAX" |
|
417
|
0 |
0 |
4 |
$omode eq "PARA" or $omode eq "MAX" |
|
496
|
226 |
20 |
7 |
$$textref =~ /\G\s*(?:::|')?(?:[_a-z]\w*(?:::|'))*[_a-z]\w*/cig or _match_codeblock($textref, qr/\G()/, "\\{", qr/\G\s*(\})/, "\\{", "\\}", 0, 1) |
|
|
246 |
2 |
5 |
$$textref =~ /\G\s*(?:::|')?(?:[_a-z]\w*(?:::|'))*[_a-z]\w*/cig or _match_codeblock($textref, qr/\G()/, "\\{", qr/\G\s*(\})/, "\\{", "\\}", 0, 1) or $deref eq "\$#" |
|
|
22 |
2 |
3 |
$$textref =~ /\G\s*(?:::|')?(?:[_a-z]\w*(?:::|'))*[_a-z]\w*/cig or _match_codeblock($textref, qr/\G()/, "\\{", qr/\G\s*(\})/, "\\{", "\\}", 0, 1) or $deref eq "\$#" or $deref eq "\$\$" |
|
|
4 |
3 |
0 |
$$textref =~ /\G\s*(?:::|')?(?:[_a-z]\w*(?:::|'))*[_a-z]\w*/cig or _match_codeblock($textref, qr/\G()/, "\\{", qr/\G\s*(\})/, "\\{", "\\}", 0, 1) or $deref eq "\$#" or $deref eq "\$\$" or pos $$textref == length $$textref |
|
621
|
109 |
29 |
225 |
_match_variable($textref, qr/\G\s*/) or _match_quotelike($textref, qr/\G\s*/, $ref2slashvalid{$textref}, $ref2qmarkvalid{$textref}) |
|
723
|
41 |
17 |
790 |
$initial and $maybe_quote{$initial} or $allow_slash_match and $initial eq "/" |
|
|
17 |
23 |
767 |
$initial and $maybe_quote{$initial} or $allow_slash_match and $initial eq "/" or $allow_qmark_match and $initial eq "?" |
|
739
|
17 |
0 |
41 |
$initial eq "/" or $initial eq "?" |
|
1006
|
38 |
362 |
86 |
$igunk or defined $unkpos |