Branch Coverage

lib/Sisimai/Lhost/DragonFly.pm
Criterion Covered Total %
branch 18 22 81.8


line true false branch
19 870 188 unless index($mhead->{'subject'}, "Mail delivery failed") != -1
20 38 150 unless grep {rindex($_, " (DragonFly Mail Agent") != -1;} @{$$mhead{"received"}}
57 150 755 unless ($readcursor)
59 150 0 if index($e, $startingof->{'message'}[0]) == 0
62 300 455 if ($readcursor & $indicators->{'deliverystatus'}) == 0 or $e eq ""
74 150 305 if (index($e, 'There was an error delivering your mail to <') == 0) { }
77 0 150 if ($v->{'recipient'})
91 170 135 if index($e, " did not like our ") == -1 or length $v->{'rhost'} > 0
94 135 0 index($p->[0], '.') > 1 ? :
98 0 150 unless $recipients
105 275 15 unless grep {index($e->{'diagnosis'}, $_) != -1;} @{$$messagesof{$r}}