Condition Coverage

blib/lib/Email/MIME.pm
Criterion Covered Total %
condition 52 73 71.2


and 3 conditions

line !l l&&!r l&&r condition
263 40 0 14 $args{'parts'} and @{$args{'parts'};}
336 0 29 26 not $self->force_decode_hook and $cte =~ /$NO_ENCODE_RE/u
361 1 1 0 $self->{'ct'}{'type'} eq "text" and $self->{'ct'}{'subtype'} eq 'plain' || $self->{'ct'}{'subtype'} eq 'html'
385 0 41 0 $MAX_DEPTH and $DEPTH > $MAX_DEPTH
393 0 0 41 length $boundary and $self->body_raw =~ /^--\Q$boundary\E\s*$/msu
463 0 0 2 $type && ($type->extensions)[0]

or 2 conditions

line l !l condition
127 138 26 $arg ||= {}
288 145 0 $self->{'mycrlf'} || "\n"
328 55 51 $self->header('Content-Transfer-Encoding') || ''
383 11 30 our $DEPTH ||= 0
401 41 0 $body || ''
409 37 4 $bits[0] || ''
434 5 2 $level ||= 0
436 6 1 $self->content_type || ''
448 1 3 $self->header_raw('Content-Disposition') || ''
464 2 0 $ext ||= "dat"
635 51 8 $enc ||= "7bit"
669 294 1 (caller 1)[3] || ''
714 8 0 $dis ||= "inline"
905 4 5 $part->header("Content-ID") // ""

or 3 conditions

line l !l&&r !l&&!r condition
313 41 0 152 $self->{'ct'}{'type'} eq "multipart" or $self->{'ct'}{'type'} eq "message"
353 236 0 1 $_[0]{'body_raw'} || $_[0]->SUPER::body
361 1 0 0 $self->{'ct'}{'subtype'} eq 'plain' || $self->{'ct'}{'subtype'} eq 'html'
451 1 1 2 $attrs->{'filename'} || $self->{'ct'}{'attributes'}{'name'}
452 2 0 2 $name or not $force
670 16 74 41 not $enc or $enc =~ /$NO_ENCODE_RE/u
762 17 8 4 @{$parts;} > 1 or $ct_header->{'type'} eq "multipart"
864 0 0 8 @subparts != @orig_subparts || grep({$subparts[$_] != $orig_subparts[$_];} 0 .. $#subparts) || grep({$changed{0 + $subparts[$_]};} 0 .. $#subparts)
6 0 8 $differ ||= @subparts != @orig_subparts || grep({$subparts[$_] != $orig_subparts[$_];} 0 .. $#subparts) || grep({$changed{0 + $subparts[$_]};} 0 .. $#subparts)