| line |
true |
false |
branch |
|
37
|
0 |
52 |
unless defined $str |
|
38
|
0 |
52 |
if $str eq '' |
|
42
|
2 |
50 |
if ($str =~ /^\s*$/) |
|
43
|
0 |
2 |
$trailing_crlf ? : |
|
50
|
0 |
50 |
unless $charset =~ /^([-0-9A-Za-z_]+)(?:\*[^\?]*)?(\?[QB])?$/i |
|
53
|
43 |
7 |
unless defined $2 |
|
58
|
50 |
0 |
unless defined $MODE |
|
61
|
48 |
2 |
unless defined $lss |
|
86
|
7 |
43 |
$charset =~ /Q$/i ? : |
|
90
|
27 |
23 |
if ($cs ne 'utf-8') |
|
92
|
21 |
6 |
if ($cs eq 'iso-2022-jp') { } |
|
|
0 |
6 |
elsif ($cs eq 'shift_jis') { } |
|
|
1 |
5 |
elsif ($cs eq 'gb2312') { } |
|
|
1 |
4 |
elsif ($cs eq 'euc-kr') { } |
|
|
1 |
3 |
elsif ($cs eq 'big5') { } |
|
119
|
8 |
42 |
if ($w2 =~ /[^\x21-\x7e]/) { } |
|
122
|
2 |
6 |
if ($sps_len > $lss) { } |
|
140
|
50 |
0 |
if ($MODE == 2) |
|
141
|
26 |
24 |
$w1 =~ /^(?:Subject:|Comments:)$/i ? : |
|
144
|
21 |
29 |
if ($jp) { } |
|
145
|
0 |
21 |
if ($q_enc) { } |
|
152
|
0 |
0 |
if ($MODE == 0) { } |
|
168
|
10 |
11 |
if ($MODE == 0) { } |
|
180
|
16 |
13 |
if ($MODE == 0) { } |
|
181
|
5 |
11 |
$q_enc ? : |
|
187
|
2 |
11 |
$q_enc ? : |
|
193
|
73 |
69 |
if ($w2 =~ /[^\x21-\x7e]/) { } |
|
195
|
50 |
23 |
if ($ascii) { } |
|
198
|
2 |
48 |
if $sps_len > $lss |
|
200
|
15 |
35 |
if ($count == 0) { } |
|
205
|
4 |
31 |
if ($count > 1 and $pos + $w1_len + 1 > $BPL) { } |
|
214
|
48 |
2 |
if ($sps_len <= $lss) |
|
215
|
1 |
47 |
if ($pos >= $BPL) { } |
|
|
0 |
47 |
elsif ($pos + $sps_len - 1 > $BPL) { } |
|
232
|
18 |
5 |
if ($MODE == 1 and $sps_len <= $lss) { } |
|
233
|
12 |
6 |
if ($w1 =~ /$reg_rp1/ or $w2 =~ /^\(/) { } |
|
234
|
2 |
10 |
if ($count == 0) { } |
|
239
|
3 |
7 |
$tmp =~ s/^ /$sp1/ ? : |
|
244
|
0 |
12 |
if ($pos + $sps_len - 1 > $BPL) { } |
|
267
|
40 |
29 |
if ($ascii) { } |
|
268
|
21 |
19 |
if ($count == 0) { } |
|
273
|
0 |
19 |
if ($count > 1 and $pos + $w1_len + 1 > $BPL) { } |
|
284
|
0 |
29 |
if ($count == 0) { } |
|
290
|
7 |
22 |
$tmp =~ s/^ /$sp1/ ? : |
|
295
|
10 |
59 |
if ($pos >= $BPL) { } |
|
|
1 |
58 |
elsif ($pos + $sps_len - 1 > $BPL) { } |
|
313
|
66 |
76 |
if $count <= 1 |
|
317
|
21 |
29 |
if ($ascii) { } |
|
319
|
6 |
15 |
if ($count == 0) { } |
|
324
|
5 |
10 |
if ($count > 1 and $pos + $w1_len + 1 > $BPL) { } |
|
334
|
6 |
23 |
if ($count == 0) { } |
|
335
|
2 |
4 |
if ($sps_len > $lss) { } |
|
345
|
0 |
23 |
if ($sps_len > $lss) { } |
|
353
|
4 |
19 |
$tmp =~ s/^ /$sp1/ ? : |
|
356
|
4 |
46 |
$trailing_crlf ? : |
|
375
|
20 |
8 |
if ($str =~ s/^(\({1,3})//) |
|
380
|
14 |
14 |
if ($str =~ /$REG_RP/) |
|
387
|
20 |
8 |
if ($lp_len > 0) |
|
388
|
16 |
4 |
unless ($tmp =~ s/^ / $lp/) |
|
392
|
14 |
14 |
if ($rp_len > 0) |
|
404
|
0 |
30 |
if $str eq '' |
|
418
|
21 |
9 |
if ($ep_v + $rll <= $BPL) |
|
426
|
9 |
0 |
if $UTF8 |
|
428
|
1 |
8 |
if ($ep_v <= $BPL) |
|
431
|
1 |
0 |
if $UTF8 |
|
433
|
1 |
0 |
if $UTF8 |
|
434
|
0 |
1 |
$str eq '' ? : |
|
447
|
42 |
0 |
if $UTF8 |
|
450
|
8 |
34 |
if ($chunk_len + $w_len > $max_len) { } |
|
451
|
5 |
3 |
if ($chunk_len == 0) { } |
|
453
|
0 |
5 |
if $fof |
|
462
|
8 |
0 |
if ($ep_v + $rll <= $BPL) |
|
463
|
8 |
0 |
if $UTF8 |
|
467
|
0 |
0 |
if ($ep_v <= $BPL) |
|
470
|
0 |
0 |
if $UTF8 |
|
472
|
0 |
0 |
if $UTF8 |
|
497
|
0 |
10 |
if $str eq '' |
|
516
|
2 |
8 |
if ($MODE) { } |
|
532
|
9 |
1 |
if ($ep_v + $rll <= $BPL) |
|
537
|
1 |
0 |
if $UTF8 |
|
545
|
0 |
1 |
if ($ep_v <= $BPL) |
|
548
|
0 |
0 |
if $UTF8 |
|
551
|
0 |
0 |
$str eq '' ? : |
|
561
|
15 |
0 |
if $UTF8 |
|
563
|
1 |
14 |
if ($chunk_qlen + $w_qlen > $max_len) { } |
|
564
|
0 |
1 |
if ($chunk_qlen == 0) { } |
|
566
|
0 |
0 |
if $fof |
|
573
|
1 |
0 |
if ($ep_v + $rll <= $BPL) |
|
576
|
0 |
0 |
if ($ep_v <= $BPL) |
|
579
|
0 |
0 |
if $UTF8 |
|
626
|
1 |
8 |
if ($cb) { } |
|
632
|
2 |
7 |
if ($w =~ qr/$reg_ew/o) { } |
|
634
|
1 |
1 |
unless defined $lang |
|
635
|
0 |
2 |
if $enc and not $lp |
|
636
|
0 |
2 |
if (defined $q_enc) { } |
|
648
|
2 |
5 |
if ($enc) |
|
649
|
1 |
1 |
if ($w =~ /^\s+$/) { } |
|
669
|
16 |
37 |
if ($w =~ qr/$reg_ew/o) { } |
|
671
|
16 |
0 |
unless ($charset =~ /^US-ASCII$/i) |
|
672
|
8 |
8 |
if ($cs1) { } |
|
673
|
0 |
8 |
if ($cs1 ne lc $charset) |
|
685
|
4 |
12 |
if $enc and not $lp |
|
686
|
5 |
11 |
if (defined $q_enc) { } |
|
693
|
0 |
16 |
$rp ? : |
|
696
|
15 |
22 |
if ($enc) |
|
697
|
10 |
5 |
if ($w =~ /^\s+$/) { } |
|
707
|
3 |
5 |
if ($cs1 eq 'iso-2022-jp') |
|
712
|
0 |
8 |
if (wantarray) |
|
713
|
0 |
0 |
$trailing_crlf ? : |
|
717
|
0 |
9 |
$trailing_crlf ? : |