| line |
true |
false |
branch |
|
53
|
0 |
1 |
if exists $xtractrl{$n} |
|
54
|
0 |
1 |
if exists $metactrl{$n} |
|
73
|
0 |
0 |
if $c =~ /^\d+$/u |
|
74
|
0 |
0 |
if exists $$n{$c} |
|
75
|
0 |
0 |
if $c =~ /^\e(.)$/u and exists $metactrl{$1} |
|
96
|
4 |
0 |
if $c =~ /[\00-\x20]/u |
|
97
|
0 |
0 |
if $c eq "\177" |
|
103
|
3 |
6 |
if substr($c, -1) =~ /^[\n\f\t]$/u |
|
104
|
6 |
3 |
if $PREFER_UNICODE_SYMBOLS |
|
105
|
6 |
3 |
if exists $$h{$c} |
|
106
|
9 |
0 |
$v ? : |
|
107
|
0 |
0 |
$name ? : |
|
119
|
1 |
0 |
$_ =~ /^[\x80-\x9f]$/u ? : |
|
|
0 |
0 |
$_ =~ /^\d+$/a ? : |
|
|
1 |
0 |
$_ =~ /^\w\w|^U\+/a ? : |
|
122
|
1 |
0 |
wantarray ? : |
|
139
|
3 |
0 |
defined wantarray ? : |
|
148
|
0 |
0 |
defined wantarray ? : |
|
187
|
14 |
10 |
unless ($r =~ tr[()/<>[-]`{}\264]")(/><]/[\264}{`") |
|
189
|
2 |
12 |
if ($cname =~ /\b($OPPm)\b/iou) |
|
190
|
2 |
0 |
if ($dir = $1 and exists $$OPP{$dir = $1}) |
|
195
|
1 |
13 |
if ord $_ > 256 and $r eq $_ |
|
208
|
8 |
8 |
$_ < 40 ? : |
|
213
|
1 |
12 |
if $_ eq '' |
|
215
|
12 |
0 |
if $opp ne $_ or m[[-\260^*+~_/'"[:punct:]\s]]u |
|
223
|
4 |
0 |
if exists $$CLS{0 + $_} |
|
228
|
0 |
1 |
if /^0*38;/u |
|
229
|
0 |
1 |
if /^0*48;/u |
|
244
|
4 |
0 |
defined wantarray ? : |
|
249
|
2 |
3 |
/$SEQ/u ? : |
|
253
|
1 |
0 |
defined wantarray ? : |
|
258
|
2 |
1 |
$test =~ /\r?\n\h*?\z/u || !($test =~ /\S/u) ? : |
|
259
|
0 |
3 |
unless defined wantarray |
|
265
|
3 |
0 |
defined wantarray ? : |
|
273
|
2 |
0 |
defined wantarray ? : |
|
279
|
2 |
0 |
defined wantarray ? : |
|
285
|
4 |
0 |
defined wantarray ? : |
|
287
|
0 |
8 |
if /^[\d;]+\z/u |
|
292
|
5 |
26 |
$emiss ? : |
|
|
31 |
19 |
if (not $2) { } |
|
293
|
13 |
6 |
$emiss ? : |
|
296
|
1 |
3 |
if $emiss |