| blib/lib/Email/Send/Sendmail.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 3 | 5 | unless $class->_find_sendmail |
| 27 | 6 | 6 | if defined $Email::Send::Sendmail::SENDMAIL |
| 30 | 3 | 3 | $ENV{'PERL_EMAIL_SEND_SENDMAIL_NO_EXTRA_PATHS'} ? : |
| 37 | 2 | 9 | if (-x "$dir/sendmail") |
| 50 | 0 | 3 | unless $mailer |
| 54 | 1 | 2 | unless -x $mailer |
| 61 | 0 | 2 | unless open $pipe, "| $mailer -t -oi @args" |
| 63 | 0 | 2 | unless print $pipe $message->as_string |
| 65 | 0 | 2 | unless close $pipe |