| blib/lib/MIME/Parser.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 25 | 40 | 62.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 810 | 114 | 0 | 3 | $self->extract_uuencode and $encoding =~ /^(7bit|8bit|binary)\Z/ |
| 114 | 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 |
| 1462 | 28 | 12 | 2 | $yesno and $yesno eq 'NONE' |
| line | l | !l | condition |
|---|---|---|---|
| 828 | 26 | 0 | $body->binmode(1) or die "${ME}: can't set to binmode: $!" |
| 902 | 4 | 0 | $ext || '' |
| 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 | 40 | not defined $bound or $bound =~ /[\r\n]/ |
| 759 | 96 | 1 | 20 | $rdr->has_bounds || $self->{'MP5_UUDecode'} |
| 828 | 88 | 1 | 26 | textual_type($ent->effective_type) or not $self->decode_bodies |
| 1010 | 118 | 54 | 0 | $rdr ||= 'MIME::Parser::Reader'->new |
| 1040 | 13 | 0 | 117 | "$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 |