Branch Coverage

blib/lib/Mail/Message/Construct/Build.pm
Criterion Covered Total %
branch 28 80 35.0


line true false branch
36 0 2 if $class->isa("Mail::Box::Message")
40 0 0 $_[0]->isa('Mail::Message::Body') ? :
0 0 $_[0]->isa('Mail::Message') ? :
2 0 !builtin::blessed($_[0]) ? :
50 0 9 if (builtin::blessed($key) and $key->isa("Mail::Message::Field"))
52 0 0 if ($name eq 'content-type') { }
0 0 elsif ($name eq 'content-transfer-encoding') { }
0 0 elsif ($name eq 'content-disposition') { }
0 0 elsif ($name eq 'content-description') { }
0 0 elsif ($name eq 'content-language') { }
0 0 elsif ($name eq 'content-id') { }
66 0 9 if ($key eq 'head') { }
3 6 elsif ($key eq 'data') { }
0 6 elsif ($key eq 'file' or $key eq 'files') { }
0 6 elsif ($key eq 'attach') { }
0 6 elsif ($key =~ /^content\-(type|transfer\-encoding|disposition|language|description|id)$/i) { }
6 0 elsif ($key =~ /^[A-Z]/) { }
71 0 0 ref $value eq 'ARRAY' ? :
74 0 0 ref $value eq 'ARRAY' ? :
75 0 0 unless defined $c
76 0 0 builtin::blessed($c) && $c->isa('Mail::Message') ? :
82 0 0 if ($k eq 'type') { }
0 0 elsif ($k eq 'disposition') { }
0 0 elsif ($k eq 'description') { }
0 0 elsif ($k eq 'language') { }
0 0 elsif ($k eq 'id') { }
98 1 1 @parts == 1 ? :
0 2 @parts == 0 ? :
104 0 2 if defined $type
105 0 2 if defined $dispose
106 0 2 if defined $descr
107 0 2 if defined $lang
108 0 2 if defined $cid
109 0 2 if defined $transfenc
119 0 23 if (builtin::blessed($_[0]) and $_[0]->isa('Mail::Message::Head')) { }
121 2 21 unless defined $_[0]
126 0 80 if (builtin::blessed($_[0])) { }
134 18 5 unless defined $head->get("message-id")
135 16 7 unless defined $head->get("Date")
136 23 0 unless defined $head->get("MIME-Version")