blib/lib/Email/MIME.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 52 | 73 | 71.2 |
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] |
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") // "" |
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) |