| lib/Sisimai/MIME.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 33 | 48 | 68.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 84 | 2289 | 0 | 403 | $characterset and $encodingname |
| 108 | 244 | 0 | 1 | exists $heads->{'content-type'} and $heads->{'content-type'} |
| 116 | 0 | 0 | 1 | $boundary00 and lc($$argv1) =~ m[{"7bit-encoded" => qr/^content-transfer-encoding:[ ]*7bit/m,"html-message" => qr/^content-type:[ ]*text\/html;/m,"only-charset" => qr/^[\s\t]+charset=['"]?([-0-9a-z]+)['"]?\b/,"quoted-print" => qr/^content-transfer-encoding:[ ]*quoted-printable/m,"some-iso2022" => qr/^content-type:[ ]*.+;[ ]*charset=["']?(iso-2022-[-a-z0-9]+)['"]?\b/m,"with-charset" => qr/^content[-]type:[ ]*.+[;][ ]*charset=['"]?([-0-9a-z]+)['"]?\b/}->{'quoted-print'}] |
| 249 | 4868 | 194 | 0 | $alternates and $mimeformat eq "text/html" |
| line | l | !l | condition |
|---|---|---|---|
| 24 | 8778 | 0 | shift() || (return undef) |
| 103 | 245 | 0 | shift() // (return undef) |
| 104 | 1 | 244 | shift() // {} |
| 193 | 35 | 0 | shift() // (return undef) |
| 209 | 2347 | 0 | shift() || (return undef) |
| 210 | 2305 | 42 | shift() // -1 |
| 231 | 5067 | 1 | shift() || (return undef) |
| 232 | 5067 | 0 | shift() || '' |
| 258 | 5062 | 0 | $lowerchunk ||= "" |
| 350 | 1959 | 1 | shift() // (return undef) |
| 351 | 1959 | 0 | shift() // (return undef) |
| 392 | 51 | 3597 | $e =~ /\A(.+?)Content-Type:/s or last XCCT |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 67 | 65 | 403 | 0 | $characterset ||= lc $2 |
| 68 | 65 | 403 | 0 | $encodingname ||= uc $3 |
| 157 | 1 | 0 | 8 | $lowercased =~ m[{"7bit-encoded" => qr/^content-transfer-encoding:[ ]*7bit/m,"html-message" => qr/^content-type:[ ]*text\/html;/m,"only-charset" => qr/^[\s\t]+charset=['"]?([-0-9a-z]+)['"]?\b/,"quoted-print" => qr/^content-transfer-encoding:[ ]*quoted-printable/m,"some-iso2022" => qr/^content-type:[ ]*.+;[ ]*charset=["']?(iso-2022-[-a-z0-9]+)['"]?\b/m,"with-charset" => qr/^content[-]type:[ ]*.+[;][ ]*charset=['"]?([-0-9a-z]+)['"]?\b/}->{'with-charset'}] or $lowercased =~ m[{"7bit-encoded" => qr/^content-transfer-encoding:[ ]*7bit/m,"html-message" => qr/^content-type:[ ]*text\/html;/m,"only-charset" => qr/^[\s\t]+charset=['"]?([-0-9a-z]+)['"]?\b/,"quoted-print" => qr/^content-transfer-encoding:[ ]*quoted-printable/m,"some-iso2022" => qr/^content-type:[ ]*.+;[ ]*charset=["']?(iso-2022-[-a-z0-9]+)['"]?\b/m,"with-charset" => qr/^content[-]type:[ ]*.+[;][ ]*charset=['"]?([-0-9a-z]+)['"]?\b/}->{'only-charset'}] |
| 328 | 2472 | 288 | 745 | index($mimeformat, "message/") == 0 or $mimeformat eq "text/rfc822-headers" |