Condition Coverage

blib/lib/Mail/Message/Body.pm
Criterion Covered Total %
condition 58 101 57.4


and 3 conditions

line !l l&&!r l&&r condition
71 0 0 3 builtin::blessed($file) and $file->isa("IO::Handle")
113 243 65 0 ref $mime and $mime->isa("MIME::Type")
136 74 52 182 $default_charset and $mime =~ m[^text/]i
126 85 97 $default_charset and $mime =~ m[^text/]i and not $mime->attribute("charset")
198 719 0 512 not @_ and defined $self->{'MMB_type'}
222 284 53 296 not @_ and defined $self->{'MMB_transfer'}
231 234 57 161 not @_ and $self->{'MMB_description'}
240 234 57 163 not @_ and $self->{'MMB_disposition'}
249 103 218 0 not @_ and $self->{'MMB_lang'}
258 321 0 0 defined $langs && length $langs
266 234 57 161 not @_ and $self->{'MMB_id'}

or 2 conditions

line l !l condition
64 0 308 $args->{'modified'} || 0
129 3 174 $args->{'checked'} || 0
132 218 90 $mime ||= "text/plain"
201 705 14 shift() // "text/plain"
224 246 91 shift() // "none"
233 135 156 shift() // "none"
242 146 145 shift() // "none"
268 131 160 shift() // "none"
360 84 431 $head->get("Content-$_") || ''
414 13 3 $in_module{$call} || 'construct'

or 3 conditions

line l !l&&r !l&&!r condition
69 49 12 89 $self->isMultipart || $self->isNested
71 0 0 3 ref $file eq "GLOB" or builtin::blessed($file) and $file->isa("IO::Handle")
73 0 0 0 $filename ||= $file
74 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')
80 0 0 0 ref $file // $file
93 0 0 0 ref $data // $data
106 0 0 0 $disp //= "Mail::Message::Field"->new("Content-Disposition", -T $filename ? "inline" : "attachment", "filename", basename($filename))
110 0 0 0 $mime //= $mime_types->mimeTypeOf($filename)
118 84 47 0 $mime //= $based->type
119 13 118 0 $transfer //= $based->transferEncoding
120 0 131 0 $disp //= $based->disposition
121 0 131 0 $descr //= $based->description
122 0 0 131 $lang //= $based->language
123 0 131 0 $cid //= $based->contentId
213 69 0 0 $mime_types->type($body) || 'MIME::Type'->new('type', $body)