Branch Coverage

lib/Sisimai/Reason.pm
Criterion Covered Total %
branch 55 62 88.7


line true false branch
62 0 2099 unless ref $argvs eq "Sisimai::Data"
64 1710 389 unless (exists $$GetRetried{$argvs->reason})
67 0 1710 if $argvs->reason
69 2 2097 if substr($argvs->deliverystatus, 0, 2) eq "2."
72 2016 81 if ($argvs->diagnostictype eq "SMTP" or $argvs->diagnostictype eq "")
80 16509 1517 unless $p->true($argvs)
86 580 1517 unless ($reasontext or $reasontext eq "undefined")
89 0 580 if $reasontext eq "undefined"
90 45 535 if $argvs->action eq "delayed"
91 549 31 if $reasontext
95 0 31 if "Sisimai::Reason::Vacation"->match(lc $argvs->diagnosticcode)
96 21 10 if $argvs->diagnosticcode
111 0 580 unless ref $argvs eq "Sisimai::Data"
112 87 493 if $argvs->reason
120 257 236 $reasontext eq '' ? :
121 107 386 if exists $GetRetried->{$reasontext}
122 60 433 if $argvs->diagnostictype ne "SMTP"
123 114 379 unless $trytomatch
131 3062 268 unless $p->match($diagnostic)
135 304 75 if $reasontext
138 0 75 if ((my $v = substr($statuscode, 0, 3)) =~ /\A[45][.]6\z/) { }
0 75 elsif ($v eq '5.7' or $v eq '4.7') { }
14 61 elsif ($argvs->diagnostictype eq 'X-UNIX' or $argvs->diagnostictype eq 'X-POSTFIX') { }
153 10 51 if "Sisimai::Reason::SyntaxError"->true($argvs)
155 24 51 if $reasontext
158 15 36 if ($argvs->action =~ /\A(?:delayed|expired)/) { }
164 5 31 if ($commandtxt eq "EHLO" or $commandtxt eq "HELO")
191 2002 142 unless $p->match($diagnostic)
195 142 44 if $reasontext
198 42 2 uc($argv1) =~ /\A(SMTP|X-.+);/ ? :
199 2 42 if ($typestring eq 'X-UNIX') { }