| blib/lib/MIME/Entity.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 40 | 71 | 56.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 570 | 12 | 17 | 0 | defined $filename and $filename eq '' |
| 678 | 0 | 0 | 8 | defined $value and $value ne '' |
| 1126 | 2 | 0 | 5 | $self->is_multipart and not $force |
| 1251 | 0 | 2 | 25 | $i++ < $nlines and $line-- |
| 1387 | 3 | 0 | 3 | $self->is_multipart and not $params{'Attach'} |
| 1563 | 6 | 13 | 0 | $tag =~ /\AContent-/i and not $tag =~ /\AContent-$StandardFields\Z/io |
| line | l | !l | condition |
|---|---|---|---|
| 558 | 17 | 12 | $params{'Type'} || 'text/plain' |
| 561 | 7 | 22 | $params{'Encoding'} || '' |
| 564 | 1 | 28 | $params{'Disposition'} || 'inline' |
| 568 | 14 | 15 | $params{'Path'} || '' |
| 1122 | 0 | 7 | $subtype ||= 'mixed' |
| 1247 | 1 | 3 | $nlines ||= 10 |
| 1250 | 4 | 0 | int @$body || (return) |
| 1432 | 3 | 0 | $body[-1] || '' |
| 1553 | 5 | 0 | $opts->{'Nonstandard'} || 0 |
| 1554 | 5 | 0 | $opts->{'Length'} || 0 |
| 1582 | 4 | 0 | tmpopen() || die(q[can't open tmpfile]) |
| 1670 | 0 | 0 | $self->mime_type || 'UNKNOWN' |
| 1671 | 0 | 0 | $self->effective_type || 'UNKNOWN' |
| 1675 | 0 | 0 | $path || 'NONE' |
| 1878 | 65 | 0 | $self->open('r') || die("open body: $!") |
| 1886 | 58 | 0 | $self->head->mime_encoding || 'binary' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 901 | 1540 | 208 | 0 | $self->{'mail_inet_head'} ||= 'MIME::Head'->new |
| 1416 | 3 | 0 | 0 | $self->head->mime_type =~ m[text/]i or $params{'Force'} |
| 1424 | 2 | 1 | 0 | not defined $params{'Remove'} or $params{'Remove'} > 0 |
| 1467 | 2 | 0 | 1 | $type eq 'text' or $type eq 'message' |
| 1474 | 0 | 1 | 5 | length $_ > 999 || /[\200-\377]/ |
| 1810 | 75 | 0 | 0 | $out ||= select |
| 1876 | 65 | 0 | 0 | $out ||= select |