| blib/lib/Log/Log4perl/Appender/SMTP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 8 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 31 | 0 | 0 | unless my $smtp = 'Net::SMTP'->new(%$self) |
| 34 | 0 | 0 | unless $smtp->mail($self->{'from'}) |
| 37 | 0 | 0 | unless $smtp->to(split(/,/, $self->{'to'}, 0)) |
| 45 | 0 | 0 | unless $smtp->dataend |