| line |
true |
false |
branch |
|
50
|
1 |
3523 |
unless $aftersplit = __PACKAGE__->part(\$email) |
|
57
|
3506 |
17 |
if ($thing->{'header'}{'subject'}) |
|
60
|
153 |
3353 |
'Sisimai::RFC2045'->is_encoded(\$cv) ? : |
|
62
|
3496 |
10 |
if $p1 < 0 |
|
65
|
30 |
3476 |
if ($p1 > -1) |
|
76
|
3463 |
60 |
if $beforefact = __PACKAGE__->sift(%$param) |
|
77
|
43 |
17 |
unless grep {index($aftersplit->[2], $_) != -1;} @$Boundaries |
|
86
|
0 |
17 |
unless length $email > 128 |
|
88
|
44 |
3463 |
unless $beforefact |
|
93
|
0 |
3463 |
ref $r ? : |
|
108
|
757 |
2767 |
if rindex($$email, "\r\n") != -1 |
|
111
|
1 |
3523 |
if $parts->[1] eq "" or $parts->[2] eq "" |
|
113
|
461 |
3062 |
if (substr($parts->[1], 0, 5) eq 'From ') { } |
|
122
|
3523 |
0 |
unless substr($parts->[1], -1, 1) eq "\n" |
|
126
|
3523 |
7046 |
$e eq 'text/html' ? : |
|
129
|
10356 |
826 |
if $p0 < 0 |
|
130
|
213 |
613 |
if $p1 < 0 |
|
156
|
6163 |
823 |
if (index($$argv0, "\nReceived:") > 0 or index($$argv0, "Received:") == 0) |
|
162
|
255 |
11344 |
if index($e, "Sisimai::RFC5322"->woReceived->[0]) > 0 or index($e, "Sisimai::RFC5322"->woReceived->[1]) > 0 |
|
171
|
3523 |
3463 |
unless $argv1 |
|
172
|
332 |
3131 |
unless length $headermaps->{'subject'} |
|
175
|
44 |
3087 |
if ('Sisimai::String'->is_8bit(\$headermaps->{'subject'})) { } |
|
182
|
0 |
44 |
if $@ |
|
187
|
251 |
2836 |
if ('Sisimai::RFC2045'->is_encoded(\$headermaps->{'subject'})) { } |
|
191
|
308 |
5 |
if "Sisimai::RFC2045"->is_encoded(\$v) |
|
217
|
996 |
194605 |
if substr($cf, -1, 1) eq " " |
|
222
|
133334 |
62267 |
if ($fn eq "") |
|
232
|
35034 |
27233 |
unless grep {$fn eq $_;} @$Fields1894, "Content-Type" |
|
234
|
14767 |
12466 |
if ($p1 > 0) { } |
|
249
|
2324 |
26686 |
if index($f, " ") > 0 |
|
251
|
4759 |
21927 |
if ($p2 > 0) |
|
256
|
26156 |
530 |
if $ps ne "boundary" |
|
257
|
10 |
26676 |
if $f eq "rfc/822" |
|
263
|
2026 |
12741 |
if ($fn eq "Diagnostic-Code") |
|
267
|
5 |
2021 |
if scalar @$ab == 1 and index($lines[$index + 1], " ") == 0 |
|
275
|
3017 |
9449 |
if index($fn, "-Date") > 0 or index($fn, "-Message-ID") > 0 |
|
282
|
10254 |
52013 |
if ($fn eq "Content-Type") |
|
287
|
71772 |
6 |
if $p1 < 0 |
|
295
|
161985 |
0 |
if length $f > 0 |
|
302
|
3544 |
0 |
if substr($email, -2, 2) ne "\n\n" |
|
339
|
458 |
3065 |
if (index($mesgformat, 'text/plain') == 0 or index($mesgformat, 'text/html') == 0) { } |
|
|
2409 |
656 |
elsif (index($mesgformat, 'multipart/') == 0) { } |
|
341
|
11 |
447 |
if ($ctencoding eq 'base64') { } |
|
|
60 |
387 |
elsif ($ctencoding eq 'quoted-printable') { } |
|
351
|
0 |
458 |
if index($mesgformat, "text/html") != -1 |
|
356
|
2361 |
48 |
if defined $p and length $$p |
|
361
|
711 |
2812 |
if (ref $hookmethod eq "CODE") |
|
365
|
0 |
711 |
if $@ |
|
379
|
3340 |
35270 |
if exists $haveloaded->{$r} |
|
384
|
2668 |
32602 |
if $havesifted |
|
390
|
739 |
116 |
if ($havesifted) |
|
395
|
40 |
76 |
if ($havesifted) |
|
400
|
16 |
60 |
if ($havesifted) |
|
405
|
60 |
3463 |
unless $havesifted |