Branch Coverage

blib/lib/MailX/Qmail/Queue/Message.pm
Criterion Covered Total %
branch 0 14 0.0


line true false branch
18 0 0 if exists $header{$self}
19 0 0 unless open my $fh, "<", $self->body_ref
28 0 0 unless my $from = $self->header->get("From")
35 0 0 unless my $received = $header->get("Received")
36 0 0 unless $received =~ /^from .*? \(HELO (.*?)\) /u or $received =~ /^from (\S+) \(/u
51 0 0 unless exists $body{$self}
52 0 0 if ref $header and $header->can("as_string")