| line |
!l |
l&&!r |
l&&r |
condition |
|
180
|
3 |
0 |
3 |
$qdel && qr/\G([$qdel])/ |
|
237
|
382 |
140 |
10 |
$qdel and $$textref =~ /$qdel/cg |
|
|
470 |
50 |
2 |
$quotelike and _match_quotelike($textref, qr/\G()/, $ref2slashvalid{$textref}, $ref2qmarkvalid{$textref}) |
|
389
|
990 |
156 |
12 |
$ignore and $$textref =~ /\G(?:$ignore)/cg |
|
|
1038 |
96 |
12 |
$bad and $$textref =~ /\G($bad)/cgs |
|
592
|
0 |
0 |
131 |
pos $$textref and defined $ref2slashvalid{$textref} |
|
595
|
480 |
0 |
0 |
$rd and $$textref =~ /\G(\(\?\)|\(s\?\)|\(s\))/cg |
|
608
|
0 |
2 |
125 |
$closing && $1 eq $closing |
|
703
|
105 |
0 |
700 |
pos $$textref and defined $ref2slashvalid{$textref} |
|
720
|
23 |
741 |
41 |
$initial and $maybe_quote{$initial} |
|
|
379 |
370 |
15 |
$allow_slash_match and $initial eq "/" |
|
|
659 |
88 |
2 |
$allow_qmark_match and $initial eq "?" |
|
918
|
335 |
203 |
25 |
$ref2slashvalid{$textref} and $text =~ /(?:$RE_NUM|[\)\]])\s*$/ |
|
|
203 |
334 |
1 |
not $ref2slashvalid{$textref} and $text =~ /$RE_PREREGEX_PAT\s*$/ |
|
|
203 |
289 |
45 |
not $ref2slashvalid{$textref} and $text =~ /$RE_EXPR_PAT\s*$/ |
|
941
|
26 |
0 |
14 |
defined $_[2] && $_[2] > 0 |
|
949
|
14 |
0 |
0 |
$^W and defined $_[2] |
|
|
14 |
0 |
0 |
$^W and defined $_[2] and $max > 1 |
|
980
|
975 |
2 |
105 |
defined $field and length $field |
|
983
|
66 |
28 |
4 |
length $pref and not defined $unkpos |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
373
|
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"
} |
|
406
|
4 |
4 |
4 |
$omode eq "PARA" or $omode eq "MAX" |
|
416
|
0 |
0 |
4 |
$omode eq "PARA" or $omode eq "MAX" |
|
495
|
224 |
20 |
7 |
$$textref =~ /\G\s*(?:::|')?(?:[_a-z]\w*(?:::|'))*[_a-z]\w*/cig or _match_codeblock($textref, qr/\G()/, "\\{", qr/\G\s*(\})/, "\\{", "\\}", 0) |
|
|
244 |
2 |
5 |
$$textref =~ /\G\s*(?:::|')?(?:[_a-z]\w*(?:::|'))*[_a-z]\w*/cig or _match_codeblock($textref, qr/\G()/, "\\{", qr/\G\s*(\})/, "\\{", "\\}", 0) 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) 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) or $deref eq "\$#" or $deref eq "\$\$" or pos $$textref == length $$textref |
|
619
|
109 |
28 |
210 |
_match_variable($textref, qr/\G\s*/) or _match_quotelike($textref, qr/\G\s*/, $ref2slashvalid{$textref}, $ref2qmarkvalid{$textref}) |
|
720
|
41 |
15 |
749 |
$initial and $maybe_quote{$initial} or $allow_slash_match and $initial eq "/" |
|
|
15 |
23 |
726 |
$initial and $maybe_quote{$initial} or $allow_slash_match and $initial eq "/" or $allow_qmark_match and $initial eq "?" |
|
736
|
15 |
0 |
41 |
$initial eq "/" or $initial eq "?" |
|
1003
|
38 |
340 |
83 |
$igunk or defined $unkpos |