Condition Coverage

blib/lib/Mail/Message/Body/Encode.pm
Criterion Covered Total %
condition 48 85 56.4


and 3 conditions

line !l l&&!r l&&r condition
73 2 0 0 not $char_to and $char_was
86 0 32 31 $char_to and $trans_to ne "none"
32 31 0 $char_to and $trans_to ne "none" and $char_to eq "PERL"
97 53 9 1 $from and $to
98 1 0 0 $char_was ne $char_to and $from->name eq $to->name
105 1 0 0 $trans_was eq $trans_to and $char_was eq $char_to
145 29 1 33 $to && $char_was eq 'PERL'
20 1 9 $from && $char_to eq 'PERL'
20 1 0 $to && $from && $char_was ne $char_to
200 32 0 0 $text =~ /[\0xC0-\xDF][\x80-\xBF]/ and not $text =~ /[\0xC0-\xFF]([^\0x80-\xBF]|$)/
253 0 4 51 $mime && $mime =~ m[^text/]i
255 30 2 23 $enc_was ne 'none' && $old_charset eq $new_charset
310 0 0 1 not defined $raw and $field = $self->type
318 1 0 0 defined $raw && length $raw
340 1 0 0 length $filename && $filename =~ /(.*)\.([^.]+)/

or 2 conditions

line l !l condition
240 51 4 $self->charset || ''
340 1 0 ($self->mimeType->extensions)[0] || 'raw'

or 3 conditions

line l !l&&r !l&&!r condition
36 0 82 44 not $charset or $charset eq "PERL"
47 0 66 0 $args{'result_type'} || ref $self
52 0 66 0 $args{'mime_type'} || $type_from->clone->study
58 61 5 0 $args{'transfer_encoding'} || $self->transferEncoding->clone
75 0 42 19 not $char_to or $char_to ne $charset
133 0 0 0 $args{'charset_detect'} || $self->charsetDetectAlgorithm
237 48 7 0 $mime_types ||= "MIME::Types"->new
241 4 28 23 not $charset or $charset eq "PERL"
242 0 32 0 $args{'charset_detect'} || $self->charsetDetectAlgorithm
288 10 1 0 $mime_types ||= "MIME::Types"->new("only_complete", 1)
305 0 0 1 $field->attribute('filename') || $field->attribute('file') || $field->attribute('name')
312 0 0 1 $field->attribute('filename') || $field->attribute('file') || $field->attribute('name')