| lib/Sisimai/Lhost/Postfix.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 47 | 66 | 71.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 143 | 1670 | 1012 | 16 | $o->[3] eq "host" and "Sisimai::RFC1123"->is_internethost($o->[2]) == 0 |
| 157 | 7332 | 0 | 821 | index($p, "Diagnostic-Code:") == 0 and index($e, " ") != -1 |
| 168 | 5647 | 10 | 509 | index($e, "<") == 0 and "Sisimai::String"->aligned(\$e, ["<", "\@", ">:"]) |
| 227 | 55 | 0 | 5 | $nomessages and $p1 > 0 |
| 264 | 68 | 0 | 481 | length $ar > 0 and substr($ar, -2, 2) ne "00" |
| line | l | !l | condition |
|---|---|---|---|
| 16 | 1457 | 1 | shift() // (return undef) |
| 17 | 1456 | 1 | shift() // (return undef) |
| 60 | 5 | 0 | 'Sisimai::SMTP::Transcript'->rise($emailparts->[0], 'In:', 'Out:') || (return undef) |
| 239 | 30 | 0 | $permessage->{$_} || '' |
| 257 | 10 | 177 | 'Sisimai::SMTP::Status'->find($anotherset->{'diagnosis'}) || '' |
| 263 | 481 | 68 | 'Sisimai::SMTP::Reply'->find($anotherset->{'diagnosis'}) || '' |
| 283 | 469 | 111 | shift @commandset || 'Sisimai::SMTP::Command'->find($e->{'diagnosis'}) || '' |
| 284 | 0 | 39 | $e->{'command'} ||= "HELO" |
| 285 | 415 | 5 | $e->{'spec'} ||= "SMTP" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 29 | 824 | 12 | 620 | $match == 0 or $mhead->{'x-aol-ip'} |
| 65 | 35 | 5 | 0 | $v ||= $dscontents->[-1] |
| 68 | 5 | 0 | 35 | $e->{'command'} eq "EHLO" or $e->{'command'} eq "HELO" |
| 89 | 0 | 5 | 0 | $v->{'diagnosis'} ||= join(" ", @{$p->{'text'}}) |
| 90 | 0 | 5 | 0 | $v->{'replycode'} ||= $p->{'reply'} |
| 91 | 0 | 5 | 0 | $v->{'status'} ||= $p->{'status'} |
| 106 | 0 | 4041 | 12463 | ($readcursor & $indicators->{'deliverystatus'}) == 0 or $e eq "" |
| 168 | 380 | 223 | 6206 | index($e, " (in reply to ") != -1 or index($e, "command)") != -1 |
| 239 | 1089 | 30 | 0 | $e->{$_} ||= $permessage->{$_} || '' |
| 244 | 539 | 10 | 0 | $e->{'diagnosis'} ||= $anotherset->{'diagnosis'} |
| 261 | 549 | 0 | 0 | $e->{'replycode'} eq "" or substr($e->{'replycode'}, -2, 2) eq "00" |