Condition Coverage

lib/Sisimai/MIME.pm
Criterion Covered Total %
condition 33 48 68.7


and 3 conditions

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"

or 2 conditions

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

or 3 conditions

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"