Condition Coverage

blib/lib/Mail/Message/Body/Encode.pm
Criterion Covered Total %
condition 42 69 60.8


and 3 conditions

line !l l&&!r l&&r condition
74 27 31 0 $trans_to ne "none" and $char_to eq "PERL"
87 2 4 0 $from and $to
6 0 0 $from and $to and $from->name eq $to->name
107 13 1 30 $to && $char_was eq 'PERL'
4 1 9 $from && $char_to eq 'PERL'
4 1 0 $to && $from && $from->name ne $to->name
171 0 4 47 $mime && $mime =~ m[^text/]i
176 30 2 19 $enc_was ne 'none' && $charset eq $new_charset
231 0 0 1 not defined $raw and $field = $self->type
239 1 0 0 defined $raw && length $raw
261 1 0 0 length $filename && $filename =~ /(.*)\.([^.]+)/

or 2 conditions

line l !l condition
51 58 0 $type_from->attribute('charset') || 'us-ascii'
163 47 4 $self->charset || ''
261 1 0 ($self->mimeType->extensions)[0] || 'raw'

or 3 conditions

line l !l&&r !l&&!r condition
38 0 61 0 $args{'mime_type'} || $type_from->clone->study
42 60 1 0 $args{'transfer_encoding'} || $self->transferEncoding->clone
55 0 39 18 not $char_to or $char_to ne $charset
86 4 2 17 $from or $to
94 0 44 0 $args{'result_type'} || ref $self
160 44 7 0 $mime_types ||= "MIME::Types"->new
171 0 28 19 !$charset || $charset eq 'PERL'
209 10 1 0 $mime_types ||= "MIME::Types"->new("only_complete", 1)
226 0 0 1 $field->attribute('filename') || $field->attribute('file') || $field->attribute('name')
233 0 0 1 $field->attribute('filename') || $field->attribute('file') || $field->attribute('name')