Condition Coverage

blib/lib/MIME/Parser.pm
Criterion Covered Total %
condition 25 40 62.5


and 3 conditions

line !l l&&!r l&&r condition
810 112 0 3 $self->extract_uuencode and $encoding =~ /^(7bit|8bit|binary)\Z/
112 0 3 $self->extract_uuencode and $encoding =~ /^(7bit|8bit|binary)\Z/ and $ent->effective_type =~ m[^(?:text/plain|application/mac-binhex40|application/mac-binhex)\Z]
906 0 2 2 @$preamble and grep /\S/, @$preamble
2 0 2 @$preamble and grep /\S/, @$preamble and not @parts
1040 0 0 13 "$type/$subtype" eq 'message/rfc822' || "$type/$subtype" eq 'message/external-body' || "$type/$subtype" eq 'message/partial' && defined $head->mime_attr('content-type.number') && $head->mime_attr('content-type.number') == 1 and $self->extract_nested_messages
1454 27 12 2 $yesno and $yesno eq 'NONE'

or 2 conditions

line l !l condition
828 26 0 $body->binmode(1) or die "${ME}: can't set to binmode: $!"
902 4 0 $ext || ''

or 3 conditions

line l !l&&r !l&&!r condition
332 0 0 0 $yesno eq 'I_KNOW_WHAT_I_AM_DOING' or $yesno eq 'I_NEED_TO_FIX_THIS'
687 0 0 39 not defined $bound or $bound =~ /[\r\n]/
759 94 1 20 $rdr->has_bounds || $self->{'MP5_UUDecode'}
828 86 1 26 textual_type($ent->effective_type) or not $self->decode_bodies
1010 116 53 0 $rdr ||= 'MIME::Parser::Reader'->new
1040 13 0 115 "$type/$subtype" eq 'message/rfc822' || "$type/$subtype" eq 'message/external-body' || "$type/$subtype" eq 'message/partial' && defined $head->mime_attr('content-type.number') && $head->mime_attr('content-type.number') == 1