| line |
true |
false |
branch |
|
22
|
4365 |
6111 |
if rindex($text1, " ") != -1 |
|
25
|
23223 |
1295 |
unless $e =~ /[ \t]*=[?][-_0-9A-Za-z]+[?][BbQq][?].+[?]=?[ \t]*/u |
|
46
|
496 |
3014 |
if (__PACKAGE__->is_encoded(\$e)) { } |
|
48
|
20 |
476 |
unless $e =~ /\A(.*)=[?]([-_0-9A-Za-z]+)[?]([BbQq])[?](.+)[?]=?(.*)\z/u |
|
53
|
388 |
88 |
$qbencoding eq 'B' ? : |
|
60
|
130 |
2884 |
scalar @textblocks ? : |
|
63
|
0 |
3291 |
unless scalar @textblocks |
|
66
|
412 |
2879 |
if ($ctxcharset and $qbencoding) |
|
68
|
284 |
128 |
if $ctxcharset eq "utf-8" |
|
70
|
128 |
284 |
unless ($ctxcharset eq "utf8") |
|
73
|
0 |
128 |
if $@ |
|
86
|
46 |
0 |
$$argv0 =~ m[([+/=0-9A-Za-z\r\n]+)]u ? : |
|
112
|
4318 |
6140 |
length $argv1 > 0 ? : |
|
113
|
4318 |
6140 |
length $argv1 > 0 ? : |
|
114
|
150 |
10308 |
if $paramindex == -1 |
|
118
|
6141 |
4167 |
unless $argv1 eq "boundary" |
|
138
|
3662 |
504 |
if $start > -1 |
|
139
|
13 |
4153 |
if $start > 0 |
|
154
|
0 |
9010 |
unless $upperchunk |
|
155
|
1560 |
7450 |
unless $lowerchunk |
|
156
|
846 |
6604 |
unless index($upperchunk, "Content-Type:") != -1 |
|
169
|
6604 |
6013 |
if (index($e, 'Content-Type:') == 0) { } |
|
|
1463 |
4550 |
elsif (index($e, 'Content-Transfer-Encoding:') == 0) { } |
|
|
273 |
4277 |
elsif (index($e, 'boundary=') != -1 or index($e, 'charset=') != -1) { } |
|
172
|
304 |
6300 |
index($v, 'boundary=') != -1 ? : |
|
180
|
0 |
273 |
unless length $headerpart->[0] |
|
185
|
1 |
6603 |
if $heads |
|
198
|
2192 |
4411 |
if index($mediatypev, "/rfc822") != -1 |
|
199
|
2001 |
2410 |
if index($mediatypev, "/delivery-status") != -1 |
|
200
|
66 |
2344 |
if index($mediatypev, "/feedback-report") != -1 |
|
201
|
1549 |
795 |
if length $ctencoding == 0 |
|
208
|
6297 |
306 |
if $lowerchunk ne "" and substr($lowerchunk, 0, 1) ne "\n" |
|
220
|
0 |
2875 |
unless length $argv0 |
|
221
|
0 |
2874 |
unless length $$argv1 |
|
228
|
1293 |
1566 |
if length $multiparts->[0] < 8 |
|
229
|
2 |
2857 |
if scalar @$multiparts == 0 |
|
230
|
184 |
2673 |
if length $multiparts->[-1] < 8 |
|
235
|
462 |
8546 |
if (index($f->[0], 'multipart/') != -1) { } |
|
239
|
0 |
462 |
if length $bodyinside < 9 or index($bodyinside, $boundary02) == -1 |
|
242
|
462 |
0 |
if scalar @$v |
|
246
|
6140 |
2406 |
length $f->[-1] ? : |
|
247
|
6140 |
2406 |
length $f->[0] ? : |
|
251
|
0 |
2857 |
unless scalar @$partstable |
|
257
|
2415 |
442 |
if $p > -1 |
|
270
|
0 |
2411 |
if index(lc $argv0, "multipart/") == -1 or index(lc $argv0, "boundary=") == -1 |
|
283
|
34 |
8510 |
if index($mediatypev, "text/") != 0 and index($mediatypev, "message/") != 0 |
|
285
|
12 |
8498 |
if ($mediatypev eq "text/html") |
|
288
|
0 |
12 |
if index($argv0, "multipart/alternative") != -1 |
|
295
|
1427 |
7083 |
if (length $ctencoding) { } |
|
297
|
34 |
1393 |
if ($ctencoding eq 'base64') { } |
|
|
222 |
1171 |
elsif ($ctencoding eq 'quoted-printable') { } |
|
|
882 |
289 |
elsif ($ctencoding eq '7bit') { } |
|
305
|
24 |
10 |
if "Sisimai::String"->aligned(\$e->[0], ["charset", "=", "utf-8"]) |
|
306
|
5 |
5 |
unless $first10 =~ /[\x00-\x08\x0E-\x1F\x7F-]/u |
|
309
|
5 |
29 |
if $dontset |
|
317
|
67 |
815 |
if (lc $e->[0] =~ /$iso2022set/u) { } |
|
331
|
12 |
1410 |
if $istexthtml |
|
332
|
11 |
1411 |
unless $bodystring |
|
333
|
5 |
1406 |
if index($bodystring, "\r\n") != -1 |
|
340
|
4264 |
4230 |
if (grep {index($mediatypev, $_) > 0;} @$delimiters) |
|
348
|
333 |
8161 |
unless substr($bodystring, -2, 2) eq "\n\n" |