blib/lib/Mail/Sendmail.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 15 | 48 | 31.2 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
240 | 5 | 0 | 0 | not $k and $^W |
260 | 0 | 0 | 1 | $smtp and $Mail::Sendmail::mailcfg{'smtp'}[0] ne $smtp |
363 | 1 | 0 | 0 | not $connected = connect(S, pack_sockaddr_in($port, $smtpaddr)) and $retried < $Mail::Sendmail::mailcfg{'retries'} |
line | l | !l | condition |
---|---|---|---|
120 | 0 | 0 | hostname() || 'localhost' |
268 | 1 | 0 | $mail{'Port'} || $Mail::Sendmail::mailcfg{'port'} || 25 |
299 | 0 | 1 | $mail{'Mime-Version'} ||= '1.0' |
300 | 0 | 1 | $mail{'Content-Type'} ||= 'text/plain; charset="iso-8859-1"' |
340 | 1 | 0 | hostname() || 'localhost' |
409 | 2 | 8 | $v || 1 |
463 | 0 | 0 | socket_read() || (return fail("AUTH CRAM-MD5 failed: $Mail::Sendmail::server_reply")) |
477 | 0 | 0 | socket_read() || (return fail("AUTH DIGEST-MD5 failed: $Mail::Sendmail::server_reply")) |
485 | 0 | 0 | socket_read() || (return fail("AUTH DIGEST-MD5 failed: $Mail::Sendmail::server_reply")) |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
117 | 0 | 0 | 0 | $realm ||= $ckey{'realm'} |
142 | 0 | 2 | 0 | $_[0] || time |
220 | 0 | 0 | 16 | /^[45]/ or not $_ |
259 | 1 | 0 | 0 | $mail{'Smtp'} || $mail{'Server'} |
285 | 1 | 0 | 0 | $mail{'Sender'} || $mail{'From'} || $Mail::Sendmail::mailcfg{'from'} |
293 | 0 | 1 | 0 | $mail{'Date'} ||= time_to_date() |
302 | 0 | 0 | 1 | $mail{'Content-Transfer-Encoding'} or $mail{'Content-Type'} =~ /multipart/io |