Branch Coverage

lib/Sisimai/Lhost/MessagingServer.pm
Criterion Covered Total %
branch 39 44 88.6


line true false branch
21 61 191 if rindex($mhead->{'content-type'}, "Boundary_(ID_") > -1
22 61 191 if index($mhead->{'subject'}, "Delivery Notification: ") == 0
23 191 61 unless $match
39 117 1798 unless ($readcursor)
41 61 56 if index($e, $startingof->{'message'}[0]) == 0
44 0 1798 unless $readcursor & $indicators->{'deliverystatus'}
45 416 1382 unless length $e
67 66 1316 if ($e =~ /\A[ \t]+Recipient address:[ \t]*([^ ]+[\@][^ ]+)\z/) { }
5 1311 elsif ($e =~ /\A[ \t]+Original address:[ \t]*([^ ]+[\@][^ ]+)\z/) { }
61 1250 elsif ($e =~ /\A[ \t]+Date:[ \t]*(.+)\z/) { }
66 1184 elsif ($e =~ /\A[ \t]+Reason:[ \t]*(.+)\z/) { }
46 1138 elsif ($e =~ /\A[ \t]+Diagnostic code:[ \t]*([^ ]+);(.+)\z/) { }
36 1102 elsif ($e =~ /\A[ \t]+Remote system:[ \t]*dns;([^ ]+)[ \t]*([^ ]+)[ \t]*.+\z/) { }
69 5 61 if ($v->{'recipient'})
103 0 36 unless $sessionlog =~ /\A[(]TCP|(.+)|\d+|(.+)|\d+[)]/
105 0 36 unless $remotehost =~ /[^.]+[.][^.]+/
120 61 1041 if ($e =~ /\AStatus:[ \t]*(\d[.]\d[.]\d)[ \t]*[(](.+)[)]\z/) { }
0 1041 elsif ($e =~ /\AArrival-Date:[ ]*(.+)\z/) { }
61 980 elsif ($e =~ /\AReporting-MTA:[ ]*(?:DNS|dns);[ ]*(.+)\z/) { }
133 5 56 unless $v->{'lhost'} =~ /[^.]+[.][^ ]+/
137 0 61 unless $recipients
144 61 5 unless grep {index($e->{'diagnosis'}, $_) > -1;} @{$$messagesof{$r};}