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) |