Branch Coverage

lib/Sisimai/Lhost/Courier.pm
Criterion Covered Total %
branch 38 46 82.6


line true false branch
18 0 891 if index($mhead->{'from'}, "Courier mail server at ") != -1
19 21 870 if index($mhead->{'subject'}, "NOTICE: mail delivery status.") != -1
20 0 891 if index($mhead->{'subject'}, "WARNING: delayed mail.") != -1
21 830 61 if (defined $mhead->{'message-id'})
23 21 809 if index($mhead->{'message-id'}, "
25 870 21 unless $match
58 252 808 unless ($readcursor)
60 21 231 if (rindex($e, $startingof->{'message'}[0]) != -1 or rindex($e, $startingof->{'message'}[1]) != -1)
65 430 609 if ($readcursor & $indicators->{'deliverystatus'}) == 0 or $e eq ""
67 163 446 if (my $f = 'Sisimai::RFC1894'->match($e)) { }
69 0 163 unless my $o = "Sisimai::RFC1894"->field($e)
72 21 142 if ($o->[3] eq 'addr') { }
21 121 elsif ($o->[3] eq 'code') { }
75 21 0 if ($o->[0] eq 'final-recipient') { }
77 0 21 if ($v->{'recipient'})
96 0 121 unless exists $$fieldtable{$o->[0]}
97 22 99 if $o->[3] eq "host" and "Sisimai::RFC1123"->is_internethost($o->[2]) == 0
100 42 57 unless $f == 1
124 16 430 if (index($e, '>>> ') == 0) { }
130 425 5 unless index($p, "Diagnostic-Code:") == 0
131 0 5 unless index($e, " ") == 0
139 0 21 unless $recipients
148 54 5 unless grep {index($e->{'diagnosis'}, $_) != -1;} @{$$messagesof{$r}}