| blib/lib/Mail/Message/Body.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 35 | 59 | 59.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 118 | 137 | 61 | 0 | ref $mime and $mime->isa("MIME::Type") |
| 139 | 51 | 77 | 70 | $mime =~ m[^text/]i and not $mime->attribute("charset") |
| 183 | 0 | 0 | 0 | $eol eq $self->{'MMB_eol'} and $self->checked |
| 235 | 413 | 0 | 470 | not @_ and defined $self->{'MMB_type'} |
| 265 | 179 | 45 | 265 | not @_ and defined $self->{'MMB_transfer'} |
| 275 | 136 | 49 | 153 | not @_ and $self->{'MMB_description'} |
| 285 | 136 | 49 | 155 | not @_ and $self->{'MMB_disposition'} |
| 296 | 136 | 49 | 153 | not @_ and $self->{'MMB_id'} |
| line | l | !l | condition |
|---|---|---|---|
| 68 | 0 | 198 | $args->{'modified'} || 0 |
| 134 | 3 | 76 | $args->{'checked'} || 0 |
| 137 | 158 | 40 | $mime ||= "text/plain" |
| 139 | 10 | 60 | $charset || 'PERL' |
| 148 | 0 | 198 | $args->{'eol'} || 'NATIVE' |
| 387 | 13 | 55 | $head->get("Content-$_") || '' |
| 442 | 9 | 3 | $in_module{$call} || 'construct' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 73 | 33 | 11 | 13 | $self->isMultipart || $self->isNested |
| 77 | 0 | 0 | 0 | $filename ||= $file |
| 78 | 0 | 0 | 0 | $mime_types->mimeTypeOf($filename) || (-T $file ? 'text/plain' : 'application/octet-stream') |
| 0 | 0 | 0 | $mime ||= $mime_types->mimeTypeOf($filename) || (-T $file ? 'text/plain' : 'application/octet-stream') | |
| 111 | 0 | 0 | 0 | $disp //= "Mail::Message::Field"->new("Content-Disposition", -T $filename ? "inline" : "attachment", "filename", basename($filename)) |
| 115 | 0 | 0 | 0 | $mime //= $mime_types->mimeTypeOf($filename) |
| 256 | 26 | 0 | 0 | $mime_types->type($body) || 'MIME::Type'->new('type', $body) |