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