Branch Coverage

lib/Sisimai/Reason.pm
Criterion Covered Total %
branch 57 64 89.0


line true false branch
62 0 2063 unless ref $argvs eq "Sisimai::Data"
64 1674 389 unless (exists $$GetRetried{$argvs->reason})
67 0 1674 if $argvs->reason
69 2 2061 if substr($argvs->deliverystatus, 0, 2) eq "2."
72 1980 81 if ($argvs->diagnostictype eq "SMTP" or $argvs->diagnostictype eq "")
80 16189 1491 unless $p->true($argvs)
86 570 1491 unless ($reasontext or $reasontext eq "undefined")
89 0 570 if $reasontext eq "undefined"
90 45 525 if $argvs->action eq "delayed"
91 539 31 if $reasontext
95 0 31 if "Sisimai::Reason::Vacation"->match(lc $argvs->diagnosticcode)
96 21 10 if $argvs->diagnosticcode
111 0 570 unless ref $argvs eq "Sisimai::Data"
112 87 483 if $argvs->reason
120 252 231 $reasontext eq '' ? :
121 80 403 if $reasontext eq "expired"
122 102 381 if exists $GetRetried->{$reasontext}
123 60 423 if $argvs->diagnostictype ne "SMTP"
124 49 434 unless $trytomatch
132 3757 288 unless $p->match($diagnostic)
136 364 70 if $reasontext
139 0 70 if ((my $v = substr($statuscode, 0, 3)) =~ /\A[45][.]6\z/) { }
0 70 elsif ($v eq '5.7' or $v eq '4.7') { }
14 56 elsif ($argvs->diagnostictype eq 'X-UNIX' or $argvs->diagnostictype eq 'X-POSTFIX') { }
154 5 51 if "Sisimai::Reason::SyntaxError"->true($argvs)
156 19 51 if $reasontext
159 15 36 if ($argvs->action =~ /\A(?:delayed|expired)/) { }
165 5 31 if ($commandtxt eq "EHLO" or $commandtxt eq "HELO")
192 2002 142 unless $p->match($diagnostic)
196 142 44 if $reasontext
199 42 2 uc($argv1) =~ /\A(SMTP|X-.+);/ ? :
200 2 42 if ($typestring eq 'X-UNIX') { }