Branch Coverage

lib/Sisimai/Lhost/MessagingServer.pm
Criterion Covered Total %
branch 36 42 85.7


line true false branch
18 61 870 if rindex($mhead->{'content-type'}, "Boundary_(ID_") != -1
19 61 870 if index($mhead->{'subject'}, "Delivery Notification: ") == 0
20 870 61 unless $match
35 61 1967 unless ($readcursor)
37 61 0 if index($e, $startingof->{'message'}[0]) == 0
40 441 1526 if ($readcursor & $indicators->{'deliverystatus'}) == 0 or $e eq ""
62 71 1455 if ('Sisimai::String'->aligned(\$e, [' Recipient address: ', '@', '.']) or 'Sisimai::String'->aligned(\$e, [' Original address: ', '@', '.'])) { }
61 1394 elsif (index($e, ' Date: ') == 0) { }
66 1328 elsif (index($e, ' Reason: ') == 0) { }
46 1282 elsif (index($e, ' Diagnostic code: ') == 0) { }
46 1236 elsif (index($e, ' Remote system: ') == 0) { }
67 5 66 unless "Sisimai::Address"->is_emailaddress($cv)
69 5 61 if ($v->{'recipient'} and $cv ne $v->{'recipient'})
104 46 0 unless $sessionlog->[0] eq "(TCP"
106 0 0 unless index($remotehost, ".") > 1
121 66 1170 if (index($e, 'Status: ') == 0) { }
51 1119 elsif (index($e, 'Arrival-Date: ') == 0) { }
61 1058 elsif (index($e, 'Reporting-MTA: ') == 0) { }
136 0 61 unless index($v->{'lhost'}, ".") > 0
140 0 61 unless $recipients
147 61 5 unless grep {index($e->{'diagnosis'}, $_) != -1;} @{$$messagesof{$r}}