Branch Coverage

blib/lib/Mail/Message/Head/ResentGroup.pm
Criterion Covered Total %
branch 26 60 43.3


line true false branch
47 0 6 if $self->orderedFields and not $self->received
55 1 3 if @_ == 1
58 3 0 $from->isa('Mail::Message::Head') ? :
64 12 12 unless $resent_field_names{$name}
66 1 11 if ($name eq 'return-path') { }
0 11 elsif ($name eq 'delivered-to') { }
8 3 elsif (substr($name, 0, 7) eq 'resent-') { }
3 0 elsif ($name eq 'received') { }
69 8 0 if defined $group
76 0 3 if defined $delivered_to
79 1 2 if defined $return_path
91 3 1 if (@_) { }
97 85 55 unless $head->get($_)
105 12 15 if (@_ == 1) { }
108 4 11 $resent_field_names{lc $fn} ? :
144 0 0 unless my $received = $_[0]->received
145 0 0 unless my $comment = $received->comment
154 0 0 unless my $date = $_[0]->date
160 0 1 unless my $from = $_[0]->head->get("resent-from")
161 0 1 wantarray ? :
166 0 0 unless my $sender = $_[0]->head->get("resent-sender")
167 0 0 wantarray ? :
172 0 0 unless my $to = $_[0]->head->get("resent-to")
173 0 0 wantarray ? :
178 0 0 unless my $cc = $_[0]->head->get("resent-cc")
179 0 0 wantarray ? :
184 0 0 unless my $bcc = $_[0]->head->get("resent-bcc")
185 0 0 wantarray ? :
207 0 0 unless (defined $domain)
209 0 0 if defined $sender