| blib/lib/Mail/Sendmail.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 15 | 48 | 31.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 239 | 15 | 0 | 0 | not $k and $^W |
| 268 | 0 | 0 | 3 | $smtp and $mailcfg{'smtp'}[0] ne $smtp |
| 375 | 3 | 0 | 0 | not $connected = connect(S, pack_sockaddr_in($port, $smtpaddr)) and $retried < $mailcfg{'retries'} |
| line | l | !l | condition |
|---|---|---|---|
| 119 | 0 | 0 | hostname() || 'localhost' |
| 276 | 3 | 0 | $mail{'Port'} || $mailcfg{'port'} || 25 |
| 308 | 0 | 3 | $mail{'Mime-Version'} ||= "1.0" |
| 309 | 0 | 3 | $mail{'Content-Type'} ||= "text/plain; charset=\"iso-8859-1\"" |
| 352 | 3 | 0 | hostname_long() || hostname() || 'localhost' |
| 421 | 1 | 6 | $v || 1 |
| 475 | 0 | 0 | socket_read() || (return fail("AUTH CRAM-MD5 failed: $Mail::Sendmail::server_reply")) |
| 489 | 0 | 0 | socket_read() || (return fail("AUTH DIGEST-MD5 failed: $Mail::Sendmail::server_reply")) |
| 497 | 0 | 0 | socket_read() || (return fail("AUTH DIGEST-MD5 failed: $Mail::Sendmail::server_reply")) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 116 | 0 | 0 | 0 | $realm ||= $ckey{'realm'} |
| 141 | 0 | 4 | 0 | $_[0] || time |
| 219 | 0 | 0 | 25 | /^[45]/ or not $_ |
| 267 | 3 | 0 | 0 | $mail{'Smtp'} || $mail{'Server'} |
| 294 | 3 | 0 | 0 | $mail{'Sender'} || $mail{'From'} || $mailcfg{'from'} |
| 302 | 0 | 3 | 0 | $mail{'Date'} ||= time_to_date() |
| 311 | 0 | 0 | 3 | $mail{'Content-Transfer-Encoding'} or $mail{'Content-Type'} =~ /multipart/io |