Branch Coverage

blib/lib/Mail/Message/Construct/Build.pm
Criterion Covered Total %
branch 28 76 36.8


line true false branch
29 0 2 if ($class->isa('Mail::Box::Message'))
36 0 0 $_[0]->isa('Mail::Message::Body') ? :
0 0 $_[0]->isa('Mail::Message') ? :
2 0 !ref($_[0]) ? :
45 0 9 if (ref $key and $key->isa('Mail::Message::Field'))
47 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-id') { }
57 0 9 unless defined $value
61 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|description|id)$/i) { }
6 0 elsif ($key =~ /^[A-Z]/) { }
66 0 0 ref $value eq 'ARRAY' ? :
70 0 0 ref $value eq 'ARRAY' ? :
71 0 0 unless defined $c
72 0 0 ref $c && $c->isa('Mail::Message') ? :
81 0 0 if ($k eq 'type') { }
0 0 elsif ($k eq 'disposition') { }
0 0 elsif ($k eq 'description') { }
0 0 elsif ($k eq 'id') { }
96 1 1 @parts == 1 ? :
0 2 @parts == 0 ? :
102 0 2 if defined $type
103 0 2 if defined $dispose
104 0 2 if defined $descr
105 0 2 if defined $cid
106 0 2 if defined $transfenc
119 0 22 if (ref $_[0] and $_[0]->isa('Mail::Message::Head')) { }
121 2 20 unless defined $_[0]
126 0 76 if (ref $_[0]) { }
138 18 4 unless defined $head->get('message-id')
141 16 6 unless defined $head->get('Date')
144 22 0 unless defined $head->get('MIME-Version')