Branch Coverage

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


line true false branch
22 17 884 if index($mhead->{'subject'}, "DELIVERY FAILURE:") == 0
23 0 901 if index($mhead->{'subject'}, "DELIVERY_FAILURE:") == 0
24 884 17 unless $match > 0
52 17 280 unless ($readcursor)
54 17 0 if index($e, $startingof->{'message'}[0]) == 0
57 112 168 if ($readcursor & $indicators->{'deliverystatus'}) == 0 or $e eq ""
72 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:') { }
75 0 17 if ($v->{'recipient'})
94 17 100 if (exists $v->{'diagnosis'} and $v->{'diagnosis'} eq 'because:') { }
17 83 elsif (index($e, ' Subject: ') == 0) { }
104 22 61 if $f < 1
105 0 61 unless $o
106 11 50 if $o->[3] eq "addr"
108 11 39 if ($o->[3] eq 'code') { }
115 0 39 unless exists $$fieldtable{$o->[0]}
116 0 39 if $o->[3] eq "host" and "Sisimai::RFC1123"->is_internethost($o->[2]) == 0
119 28 11 unless $f == 1
125 0 17 unless $recipients
132 12 5 if $e->{'diagnosis'} eq "" or "Sisimai::String"->is_8bit(\$e->{'diagnosis'}) == 0
136 5 0 unless ref $ce
149 6 11 unless grep {index($e->{'diagnosis'}, $_) != -1;} @{$$messagesof{$r}}
157 6 11 if index($emailparts->[1], "\nSubject:") == -1