Branch Coverage

blib/lib/Mail/Message/Head/Complete.pm
Criterion Covered Total %
branch 61 104 58.6


line true false branch
47 0 25 unless defined $name
49 0 25 if ($name->isa("Mail::Message::Field"))
55 0 25 unless defined $content
57 0 25 if (ref $content and $content->isa("Mail::Message::Field"))
92 0 181 @_ == 1 && builtin::blessed($_[0]) ? :
94 0 181 unless defined $field
104 178 3 if (not defined $known->{$name}) { }
1 2 elsif (ref $known->{$name} eq 'ARRAY') { }
116 0 0 ref $value ? :
0 0 if (not defined $value) { }
127 0 119 ref $_ eq 'ARRAY' ? :
128 53 119 unless @take
131 119 0 if (@take == 1 and ref $take[0] eq 'Regexp') { }
149 87 483 unless @_ != 1 or defined $_[0]
155 462 21 @_ == 1 && builtin::blessed($_[0]) ? :
163 305 178 if ($skip_none{$name} and $field->body eq "none")
181 13 1 if (@_ == 0)
182 1 12 if delete $known->{$name}
192 0 1 @_ == 1 ? :
207 0 89 if (not defined $known->{$name}) { }
2 87 elsif (ref $known->{$name} eq 'ARRAY') { }
87 0 elsif ($known->{$name} eq $field) { }
213 2 0 if $known->{$name}[$i] eq $field
260 0 0 unless my(@sgs) = $self->spamGroups
291 0 0 ref $pattern ? :
292 0 0 if $found
295 0 0 if (not $found) { }
310 0 6 wantarray ? :
325 2 1 @_ == 1 ? :
333 0 13 unless defined $order->[$i]
334 1 12 if $rg->isResentGroupFieldName($order->[$i]->name)
347 13 2 if (not defined $known->{$name}) { }
0 2 elsif (ref $known->{$name} eq 'ARRAY') { }
377 19 24 @_ ? :
379 24 19 if (wantarray or @_ != 1) { }
390 0 2 unless $_[0]->guessTimestamp
395 1 1 if exists $self->{'MMH_recvstamp'}
398 1 0 unless my $recvd = $self->get("received", 0)
402 0 0 defined $stamp && $stamp > 0 ? :
408 1 1 if exists $self->{'MMH_timestamp'}
411 1 0 if (my $date = $self->get("date"))
415 0 1 unless ($stamp)
418 0 0 if $stamp
422 1 0 defined $stamp && $stamp > 0 ? :
429 32 80 if defined $cl and $cl =~ /(\d+)/
432 2 78 if defined $lines and $lines =~ /(\d+)/
443 0 0 defined $sender ? :
458 0 16 if defined $msgid_creator and not @_
461 0 16 if @_ == 1 and ref $_[0] eq "CODE"
467 16 0 unless (defined $hostname)
469 16 0 unless $@
474 16 0 if ("Time::HiRes"->can("gettimeofday"))