| line |
true |
false |
branch |
|
28
|
1 |
8 |
unless defined $str |
|
29
|
1 |
7 |
if $str eq '' |
|
33
|
1 |
6 |
if ($str =~ /^\s*$/) |
|
34
|
0 |
1 |
$trailing_crlf ? : |
|
43
|
6 |
0 |
if ($charset =~ /^([-0-9A-Za-z_]+)(\'[^\']*\')?$/i) { } |
|
|
0 |
0 |
elsif ($charset =~ /^([-0-9A-Za-z_]+)(\*[^\?]*)?(\?[QB])?$/i) { } |
|
46
|
1 |
5 |
$2 ? : |
|
50
|
0 |
0 |
if (defined $3) { } |
|
51
|
0 |
0 |
lc $3 eq '?q' ? : |
|
74
|
2 |
4 |
if ($cs ne 'utf-8') |
|
76
|
1 |
1 |
if ($cs eq 'iso-2022-jp') { } |
|
|
1 |
0 |
elsif ($cs eq 'shift_jis') { } |
|
|
0 |
0 |
elsif ($cs eq 'gb2312') { } |
|
|
0 |
0 |
elsif ($cs eq 'euc-kr') { } |
|
|
0 |
0 |
elsif ($cs eq 'big5') { } |
|
104
|
3 |
3 |
unless (defined $value) |
|
105
|
3 |
0 |
$trailing_crlf ? : |
|
110
|
0 |
3 |
if ($value =~ s/^\s*"(.*)"$/$1/) |
|
113
|
0 |
3 |
if ($value eq '') |
|
114
|
0 |
0 |
$trailing_crlf ? : |
|
121
|
0 |
3 |
unless ($quote or $value =~ /[^\w!#\$&\+-\.\^`\{\|}~]/) |
|
122
|
0 |
0 |
if ($type or $ll_len + $v_len <= $BPL) |
|
124
|
0 |
0 |
$trailing_crlf ? : |
|
135
|
0 |
0 |
if ($ll_len + 1 > $BPL) { } |
|
146
|
0 |
0 |
$trailing_crlf ? : |
|
148
|
0 |
3 |
if ($quote and not $value =~ /[^\t\x20-\x7e]/) |
|
149
|
0 |
0 |
if ($type or $ll_len + $v_len + 2 <= $BPL) |
|
151
|
0 |
0 |
$trailing_crlf ? : |
|
164
|
0 |
0 |
if ($ll_len + $vc_len + 1 > $BPL) { } |
|
176
|
0 |
0 |
$trailing_crlf ? : |
|
183
|
1 |
2 |
if ($jp) |
|
184
|
1 |
0 |
if ($type == 0) |
|
188
|
0 |
0 |
if ($type == 1) { } |
|
200
|
0 |
0 |
if ($enc eq ' ') { } |
|
208
|
0 |
0 |
$trailing_crlf ? : |
|
221
|
0 |
0 |
if ($enc eq ' ') { } |
|
229
|
0 |
0 |
$trailing_crlf ? : |
|
233
|
2 |
0 |
if ($type == 0) |
|
236
|
0 |
0 |
if ($type == 1) { } |
|
247
|
0 |
0 |
if ($enc eq ' ') { } |
|
255
|
0 |
0 |
$trailing_crlf ? : |
|
268
|
0 |
0 |
if ($enc eq ' ') { } |
|
276
|
0 |
0 |
$trailing_crlf ? : |
|
295
|
0 |
2 |
if $quote |
|
302
|
0 |
2 |
if (length($result) + length($value) <= $BPL) |
|
304
|
0 |
0 |
$trailing_crlf ? : |
|
319
|
1 |
1 |
if $UTF8 |
|
323
|
27 |
27 |
if $UTF8 |
|
330
|
24 |
30 |
if $w_len > 1 |
|
333
|
5 |
49 |
if ($ll_len + $w_len + 1 > $BPL) { } |
|
335
|
0 |
5 |
if ($ascii) { } |
|
336
|
0 |
0 |
if ($n == 0) { } |
|
346
|
2 |
3 |
if ($n == 0) { } |
|
355
|
3 |
2 |
if $w_len == 1 |
|
364
|
0 |
2 |
if ($ascii) { } |
|
365
|
0 |
0 |
if ($chunk eq '') { } |
|
375
|
2 |
0 |
$trailing_crlf ? : |
|
391
|
0 |
1 |
if $quote |
|
398
|
0 |
1 |
if (length($result) + length($value) <= $BPL) |
|
400
|
0 |
0 |
$trailing_crlf ? : |
|
430
|
7 |
36 |
if (defined $ec) { } |
|
432
|
3 |
4 |
if ($ec eq '(B') { } |
|
|
3 |
1 |
elsif ($ec eq '$B') { } |
|
444
|
9 |
27 |
if ($k_in == 1) { } |
|
|
9 |
18 |
elsif ($k_in == 2) { } |
|
453
|
12 |
15 |
$k_in ? : |
|
454
|
13 |
14 |
if $w_len > 1 |
|
457
|
4 |
23 |
if ($ll_len + $enc_len + 1 > $BPL) { } |
|
459
|
0 |
4 |
if ($ascii) { } |
|
460
|
0 |
0 |
if ($n == 0) { } |
|
470
|
1 |
3 |
if ($k_in_bak) |
|
472
|
1 |
0 |
if ($k_in) { } |
|
473
|
1 |
0 |
if ($k_in_bak == $k_in) |
|
483
|
1 |
3 |
if ($n == 0) { } |
|
492
|
0 |
4 |
if $w_len == 1 |
|
504
|
0 |
1 |
if ($ascii) { } |
|
505
|
0 |
0 |
if ($chunk eq '') { } |
|
513
|
1 |
0 |
if $k_in_bak |
|
516
|
1 |
0 |
$trailing_crlf ? : |
|
522
|
0 |
9 |
if (not defined $str or $str eq '') |
|
523
|
0 |
0 |
if wantarray |
|
529
|
0 |
9 |
if ($str =~ /^\s*$/) |
|
530
|
0 |
0 |
$trailing_crlf ? : |
|
|
0 |
0 |
if wantarray |
|
532
|
0 |
0 |
$trailing_crlf ? : |
|
543
|
7 |
2 |
unless defined $bq_on |
|
545
|
8 |
1 |
if ($bq_on) |
|
562
|
1 |
7 |
if ($value and $value =~ qr/$reg_ew(\s|$)/) |
|
564
|
1 |
0 |
unless defined $lang0 |
|
576
|
1 |
0 |
if ($w =~ qr/$reg_ew$/o) |
|
578
|
0 |
1 |
if (defined $q_enc) { } |
|
587
|
0 |
1 |
if (lc $charset0 eq 'iso-2022-jp') |
|
594
|
0 |
1 |
if (wantarray) |
|
595
|
0 |
0 |
$trailing_crlf ? : |
|
598
|
0 |
1 |
$trailing_crlf ? : |
|
608
|
5 |
17 |
if ($value =~ s/^\s*"(.*)"$/$1/) |
|
611
|
17 |
5 |
if ($param =~ s/\*$//) |
|
612
|
6 |
11 |
unless ($cs_init) |
|
613
|
6 |
0 |
if ($value =~ /^(.*?)'(.*?)'(.*)/) |
|
620
|
8 |
14 |
unless ($param0_init) |
|
630
|
0 |
8 |
$n == 0 ? : |
|
632
|
0 |
8 |
unless defined $value0 |
|
633
|
6 |
2 |
if ($n > 1) |
|
636
|
14 |
0 |
if defined $value |
|
639
|
1 |
7 |
if (lc $charset0 eq 'iso-2022-jp') |
|
644
|
4 |
4 |
$quote ? : |
|
645
|
0 |
8 |
if (wantarray) |
|
646
|
0 |
0 |
if (not $cs_init and $quote) |
|
649
|
0 |
0 |
$trailing_crlf ? : |
|
652
|
7 |
1 |
$trailing_crlf ? : |