Branch Coverage

blib/lib/Mail/Message/Construct/Reply.pm
Criterion Covered Total %
branch 55 88 62.5


line true false branch
31 0 3 if ($include eq 'NO') { }
3 0 elsif ($include eq 'INLINE' or $include eq 'ATTACH') { }
33 0 0 unless defined $body
39 3 0 unless (defined $body)
42 0 3 if $body->isMultipart and $body->parts == 1
43 0 3 if $body->isNested
51 2 1 $strip && !$body->isMultipart && !$body->isBinary ? :
54 0 3 if ($include eq 'INLINE' and $body->isMultipart) { }
0 3 elsif ($include eq 'INLINE' and $body->isBinary) { }
60 3 0 if ($include eq 'INLINE')
64 1 0 exists $args{'quote'} ? :
2 1 defined $args{'quote'} ? :
66 2 1 if (defined $quote)
67 1 1 ref $quote ? :
85 3 0 unless (defined $from)
87 3 0 if @from
93 0 3 unless defined $to
97 1 2 if (not defined $cc and $args{'group_reply'})
99 1 0 if @cc
104 0 0 ref $srcsub ? :
3 0 !defined($srcsub) ? :
111 0 3 if $msgid and not $msgid =~ /^\s*\<.*\>\s*$/
121 1 2 exists $args{'prelude'} ? :
0 3 defined $args{'prelude'} ? :
123 2 1 if defined $prelude and not &blessed($prelude)
127 0 3 if defined $postlude and not &blessed($postlude)
135 0 3 if ($include eq 'NO') { }
3 0 elsif ($include eq 'INLINE') { }
138 0 3 if defined $signature and $signature->isa('Mail::Message')
141 0 3 defined $signature ? :
146 0 3 if ($include eq 'ATTACH')
161 0 3 $refs ? :
171 1 2 if $cc
172 1 2 if $args{'Bcc'}
190 2 22 unless defined $subject and length $subject
197 24 14 if $subject[0] =~ /[A-QS-Za-qs-z][A-DF-Za-df-z]/
201 4 13 defined $1 ? :
208 24 0 if (@subject)
222 8 16 $re_count == 1 ? :
231 0 2 if ref $who eq 'ARRAY'
233 2 0 $who->isa('Mail::Message::Field') ? :
0 2 !ref($who) ? :
0 2 !defined($who) ? :
239 2 0 ref $user && $user->isa('Mail::Address') ? :