Branch Coverage

blib/lib/Email/ARF/Report.pm
Criterion Covered Total %
branch 20 26 76.9


line true false branch
53 1 15 unless $source
55 7 8 &Scalar::Util::blessed($source) ? :
60 1 14 unless eval { do { $mime->isa('Email::MIME') } }
68 0 13 unless $ct->{'type'} eq 'multipart' and $ct->{'subtype'} eq 'report' and $ct->{'attributes'}{'report-type'} eq 'feedback-report'
70 1 12 unless $mime->subparts >= 3
78 0 12 unless $report_ct->{'type'} eq 'message' and $report_ct->{'subtype'} eq 'feedback-report'
99 12 12 $append_nl ? :
146 1 1 &Scalar::Util::blessed($arg{'original_email'}) ? :
2 1 ref $arg{'original_email'} ? :
159 3 0 ref $arg{'fields'} eq 'HASH' ? :
165 3 0 unless (defined $fields->header('user-agent'))
172 3 0 unless (defined $fields->header('version'))
176 3 0 unless (defined $fields->header('Feedback-Type'))