Senph::Model::MailQueue
while ( my $email = $self->next_mail ) { eval { $s->send( to => $email->header('to'), from => $self->smtp_sender, data => $email->as_string, )->get; }; if ($@) { $log->errorf( "Could not send mail: %s", $@ ); } } $s->quit->get; }