Condition Coverage

blib/lib/Mail/Message/Body/Encode.pm
Criterion Covered Total %
condition 47 91 51.6


and 3 conditions

line !l l&&!r l&&r condition
90 5 0 0 not $char_to and $char_was
103 0 35 33 $char_to and $trans_to ne "none"
35 33 0 $char_to and $trans_to ne "none" and $char_to eq "PERL"
112 55 9 4 $from and $to
113 4 0 0 $char_was ne $char_to and $from->name eq $to->name
120 4 0 0 $trans_was eq $trans_to and $char_was eq $char_to
160 31 4 33 $to && $char_was eq 'PERL'
22 4 9 $from && $char_to eq 'PERL'
22 4 0 $to && $from && $char_was ne $char_to
201 28 0 0 $text =~ / [\xC0-\xDF][\x80-\xBF] # 110xxxxx, 10xxxxxx | [\xE0-\xEF][\x80-\xBF]{2} # 1110xxxx, (10xxxxxx)\302\262 | [\xF0-\xF7][\x80-\xBF]{3} # 11110xxx, (10xxxxxx)3 /x and not $text =~ /[\xC0-\xFF][^\x80-\xBF]/
28 0 0 $text =~ / [\xC0-\xDF][\x80-\xBF] # 110xxxxx, 10xxxxxx | [\xE0-\xEF][\x80-\xBF]{2} # 1110xxxx, (10xxxxxx)\302\262 | [\xF0-\xF7][\x80-\xBF]{3} # 11110xxx, (10xxxxxx)3 /x and not $text =~ /[\xC0-\xFF][^\x80-\xBF]/ and not $text =~ /[\xC0-\xFF]\z/
248 29 2 22 $enc_was eq $enc && $old_charset eq $charset
293 0 0 0 $mime eq $encoded->type && $transfer eq $encoded->transferEncoding
320 0 0 1 not defined $raw and $field = $self->type
326 1 0 0 defined $raw && length $raw
343 1 0 0 length $filename && $filename =~ /(.*)\.([^.]+)/

or 2 conditions

line l !l condition
239 53 0 $self->charset || ''
343 1 0 ($self->mimeType->extensions)[0] || 'raw'

or 3 conditions

line l !l&&r !l&&!r condition
53 0 86 50 not $charset or $charset eq "PERL"
63 0 71 0 $args{'result_type'} || ref $self
68 0 71 0 $args{'mime_type'} || $type_from->clone->study
74 66 5 0 $args{'transfer_encoding'} || $self->transferEncoding->clone
92 0 42 21 not $char_to or $char_to ne $charset
147 0 0 0 $args{'charset_detect'} || $self->charsetDetectAlgorithm
240 0 28 25 not $charset or $charset eq "PERL"
241 0 28 0 $args{'charset_detect'} || $self->charsetDetectAlgorithm
258 1 3 0 $self->{'MMBE_eol'} ||= $native_eol
264 2 1 0 $eol ne $old_eol or not $self->checked
300 8 3 0 $mime_types ||= "MIME::Types"->new("only_complete", 1)
317 0 0 1 $field->attribute('filename') || $field->attribute('file') || $field->attribute('name')
322 0 0 1 $field->attribute('filename') || $field->attribute('file') || $field->attribute('name')