2017-03-27 07:22:08 +02:00
|
|
|
package main;
|
|
|
|
|
|
|
|
my $mail;
|
2020-12-03 20:00:51 +01:00
|
|
|
my $mail_envelope;
|
2017-03-27 07:22:08 +02:00
|
|
|
|
|
|
|
sub mail {
|
|
|
|
return $mail;
|
|
|
|
}
|
|
|
|
|
2020-12-03 20:00:51 +01:00
|
|
|
sub envelope {
|
|
|
|
return $mail_envelope;
|
|
|
|
}
|
|
|
|
|
2017-03-27 07:22:08 +02:00
|
|
|
package Email::Sender::Transport::LLNG::Test;
|
|
|
|
|
|
|
|
use Mouse;
|
|
|
|
use Lemonldap::NG::Portal::Lib::SMTP;
|
|
|
|
$Lemonldap::NG::Portal::Lib::SMTP::transport = __PACKAGE__->new();
|
|
|
|
|
|
|
|
extends 'Email::Sender::Transport';
|
|
|
|
|
|
|
|
sub send_email {
|
|
|
|
my ( $self, $email, $envelope ) = @_;
|
2020-12-03 20:00:51 +01:00
|
|
|
$mail = $email->get_body;
|
|
|
|
$mail_envelope = $envelope;
|
2017-03-27 07:22:08 +02:00
|
|
|
return $self->success;
|
|
|
|
}
|
|
|
|
|
|
|
|
1;
|