Branch Coverage

lib/Sisimai/Lhost/EinsUndEins.pm
Criterion Covered Total %
branch 24 30 80.0


line true false branch
20 214 31 unless index($mhead->{'from'}, "\"Mail Delivery System\"") == 0
21 14 17 unless $mhead->{'subject'} eq "Mail delivery failed: returning message to sender"
40 17 149 unless ($readcursor)
42 17 0 if index($e, $startingof->{'message'}[0]) == 0
45 0 149 unless $readcursor & $indicators->{'deliverystatus'}
46 52 97 unless length $e
58 17 80 if ($e =~ /\A([^ ]+[\@][^ ]+?)[:]?\z/) { }
6 74 elsif (index($e, $startingof->{'error'}[0]) == 0) { }
60 0 17 if ($v->{'recipient'})
73 12 62 if (length $v->{'diagnosis'}) { }
85 0 17 unless $recipients
90 11 6 if ($e->{'diagnosis'} =~ /host:[ ]+(.+?)[ ]+.+[ ]+reason:.+/) { }
95 11 0 if $e->{'diagnosis'} =~ /for TEXT command/
96 11 0 if $e->{'diagnosis'} =~ /SMTP error/
106 11 6 unless grep {index($e->{'diagnosis'}, $_) > -1;} @{$$messagesof{$r};}