Branch Coverage

lib/Sisimai/Lhost/Domino.pm
Criterion Covered Total %
branch 40 48 83.3


line true false branch
22 17 886 if index($mhead->{'subject'}, "DELIVERY FAILURE:") == 0
23 0 903 if index($mhead->{'subject'}, "DELIVERY_FAILURE:") == 0
24 886 17 unless $match > 0
54 17 280 unless ($readcursor)
56 17 0 if index($e, $startingof->{'message'}[0]) == 0
59 112 168 if ($readcursor & $indicators->{'deliverystatus'}) == 0 or $e eq ""
74 17 151 if ($e eq 'was not delivered to:') { }
17 134 elsif (index($e, ' ') == 0 and index($e, '@') != -1 and index($e, ' ', 3) == -1) { }
17 117 elsif ($e eq 'because:') { }
77 0 17 if ($v->{'recipient'})
96 17 100 if (exists $v->{'diagnosis'} and $v->{'diagnosis'} eq 'because:') { }
17 83 elsif (index($e, ' Subject: ') == 0) { }
106 22 61 if $f < 1
107 0 61 unless $o
108 11 50 if $o->[3] eq "addr"
110 11 39 if ($o->[3] eq 'code') { }
117 0 39 unless exists $$fieldtable{$o->[0]}
118 0 39 if $o->[3] eq "host" and "Sisimai::RFC1123"->is_internethost($o->[2]) == 0
121 28 11 unless $f == 1
127 0 17 unless $recipients
134 12 5 if $e->{'diagnosis'} eq "" or "Sisimai::String"->is_8bit(\$e->{'diagnosis'}) == 0
138 5 0 unless ref $ce
151 22 11 unless grep {index($e->{'diagnosis'}, $_) != -1;} @{$$messagesof{$r}}
159 6 11 if index($emailparts->[1], "\nSubject:") == -1