| blib/lib/MIME/Parser.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 26 | 40 | 65.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 814 | 134 | 0 | 3 | $self->extract_uuencode and $encoding =~ /^(7bit|8bit|binary)\Z/ |
| 134 | 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] | |
| 910 | 0 | 2 | 2 | @$preamble and grep /\S/, @$preamble |
| 2 | 0 | 2 | @$preamble and grep /\S/, @$preamble and not @parts | |
| 1056 | 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 |
| 1478 | 28 | 14 | 2 | $yesno and $yesno eq "NONE" |
| line | l | !l | condition |
|---|---|---|---|
| 832 | 34 | 0 | $body->binmode(1) or die "${ME}: can't set to binmode: $!" |
| 906 | 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" |
| 691 | 0 | 0 | 51 | not defined $bound or $bound =~ /[\r\n]/ |
| 763 | 116 | 1 | 20 | $rdr->has_bounds || $self->{'MP5_UUDecode'} |
| 832 | 100 | 1 | 34 | textual_type($ent->effective_type) or not $self->decode_bodies |
| 1014 | 138 | 65 | 0 | $rdr ||= "MIME::Parser::Reader"->new |
| 1056 | 13 | 76 | 61 | "$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 |