Branch Coverage

lib/Sisimai/Lhost/Exim.pm
Criterion Covered Total %
branch 112 130 86.1


line true false branch
18 10 1393 if grep {index($$mbody, $_) > 0;} @{__PACKAGE__->BannerDTAG}
31 325 1068 if index($mhead->{'from'}, "Mail Delivery System") != -1
35 1024 223 if index($messageidv, "<") != 0 or index($messageidv, "-") != 8 or index($messageidv, "\@") != 18
42 3637 879 if index($mhead->{'subject'}, $e) == -1
48 11 1382 if exists $mhead->{'x-mx-bounce'}
49 0 1393 if exists $mhead->{'x-mxl-hash'}
50 11 1382 if exists $mhead->{'x-mxl-notehash'}
51 16 1377 if index($messageidv, "
52 1092 301 if $proceedsto < 2 and $thirdparty == 0
124 5 296 if (index($$mbody, "\n----- This is a copy ") != -1)
141 119 182 if $mhead->{'content-type'}
147 1039 3395 unless ($readcursor)
149 296 743 if (grep {index($e, $_) != -1;} @{$$startingof{"message"}})
152 296 0 unless grep {index($e, $_) != -1;} @{$$startingof{"frozen"}}
155 1554 2584 if ($readcursor & $indicators->{'deliverystatus'}) == 0 or $e eq ""
171 1547 1037 if index($e, " ") != 0
172 483 554 if index($e, "\@") < 2
173 0 554 if index($e, ".") < 2
174 10 544 if index($e, "pipe to |") != -1
177 270 274 if $cx eq " "
178 10 264 if $thirdparty == 0 and $cx eq "<"
183 264 2320 if ($ce == 1 or grep {index($e, $_) > 0;} @{$$startingof{'alias'}}) { }
36 2284 elsif (index($e, ' (generated from ') > 0 or index($e, ' generated by ') > 0) { }
185 10 254 if ($v->{'recipient'})
191 0 264 if (grep {index($e, $_) > 0;} @{$$startingof{'alias'}}) { }
205 21 243 if ($p1 > 1 and $p2 > 1) { }
223 0 264 unless "Sisimai::Address"->is_emailaddress($cv)
234 87 31 if index($f, "\@") == -1
238 0 2284 if (grep {index($e, $_) != -1;} @{$$startingof{'frozen'}}) { }
355 1929 elsif ($boundary00) { }
247 160 195 if ('Sisimai::RFC1894'->match($e)) { }
249 0 160 unless my $o = "Sisimai::RFC1894"->field($e)
251 30 130 if ($o->[3] eq 'addr') { }
20 110 elsif ($o->[3] eq 'code') { }
253 0 30 unless $o->[0] eq "final-recipient"
254 25 5 rindex($o->[2], '@') != -1 ? :
263 0 110 unless exists $$fieldtable{$o->[0]}
268 5 190 if $nextcursor
271 30 160 if index($e, $startingof->{'deliverystatus'}[0]) == 0
272 80 110 if index($e, " ") == 0
276 711 1218 if (scalar @$dscontents == $recipients) { }
284 1172 46 unless index($e, " ") == 0
291 254 47 if ($recipients) { }
295 258 6 unless $q->{'alias'}
296 0 6 if (not $q->{'recipient'} or rindex($q->{'recipient'}, "\@") == -1)
303 25 22 if (defined $mhead->{'x-failed-recipients'})
312 25 0 if scalar @$dscontents == $recipients
317 22 279 unless $recipients
327 10 279 if (not $e->{'diagnosis'} and length $boundary00 > 0)
343 10 0 if $dscontents->[0]{'alterrors'}
346 30 259 if ($e->{'alterrors'})
350 0 30 if (index($e->{'diagnosis'}, '-') == 0 or substr($e->{'diagnosis'}, -2, 2) eq '__') { }
20 10 elsif (length $e->{'diagnosis'} < length $e->{'alterrors'}) { }
358 20 0 if index(lc $e->{'alterrors'}, lc $e->{'diagnosis'}) != -1
363 0 289 if $p1 > 1
365 269 20 unless ($e->{'rhost'})
370 193 76 if $p1 > -1
375 289 0 unless ($e->{'command'})
379 182 213 if index($e->{'diagnosis'}, $r) == -1
385 5 284 if ($e->{'command'} eq 'HELO' or $e->{'command'} eq 'EHLO') { }
76 208 elsif ($e->{'command'} eq 'MAIL') { }
397 406 5 unless grep {index($e->{'diagnosis'}, $_) != -1;} @{$$messagesof{$r}}
401 0 208 if grep {index($e->{'diagnosis'}, $_) != -1;} @$delayedfor
421 10 279 if ("Sisimai::SMTP::Failure"->is_temporary($cr) or $re eq "expired")
423 0 10 if "Sisimai::Reason"->is_explicit($re)