Branch Coverage

blib/lib/Mail/Message/Construct/Rebuild.pm
Criterion Covered Total %
branch 51 70 72.8


line true false branch
43 6 8 $args{'rules'} ? :
44 0 14 if $args{'extra_rules'}
45 6 8 if $args{'extraRules'}
48 0 65 if ref $rule
49 0 65 unless $self->can($rule)
55 0 14 unless my $rebuild = $self->recursiveRebuildPart($self, %args, "rules", \@rules)
60 4 10 if ($rebuild->isa("Mail::Message::Part"))
68 14 0 unless $keep
76 1 3 $part->isNested ? :
81 25 10 unless $part->isMultipart
83 3 7 @active == 1 ? :
88 0 14 $part->isMultipart && $part->body->parts == 0 ? :
94 23 2 unless $part->isMultipart and $part->parts("ACTIVE") == 0
114 0 0 $part->body->lines == 0 ? :
119 26 19 unless $part->isMultipart
127 9 19 if (not defined $new) { }
19 0 elsif ($new == $part) { }
132 12 7 unless $changed
143 25 7 unless $part->isNested
149 0 7 unless defined $newnested
150 4 3 if $newnested == $srcnested
162 7 23 $part->isDeleted ? :
168 23 0 unless $part->isNested and $part->body->nested->isDeleted or $part->isDeleted
183 6 2 unless $part->body->mimeType eq "text/html"
188 0 2 unless defined $container and $container->mimeType eq "multipart/alternative"
193 2 2 if $subpart->body->mimeType eq "text/plain"
203 0 0 unless $container and $container->mimeType eq "multipart/alternative"
208 0 0 $last && $part == $last ? :
216 1 2 unless (defined $has_hft)
221 2 1 unless $has_hft and $part->body->mimeType eq "text/html"
228 0 1 if $in_alt and &first(sub { $_->body->mimeType eq "text/plain"; } , $container->parts)
239 0 1 if $in_alt
262 219 0 unless $args{$rule}
263 9 210 unless my $rebuild = $self->$rule($part, %params)
266 17 193 if ($part != $rebuild)