26 lines
426 B
Perl
26 lines
426 B
Perl
|
package main;
|
||
|
|
||
|
my $mail;
|
||
|
my $envelope;
|
||
|
|
||
|
sub mail {
|
||
|
return $mail;
|
||
|
}
|
||
|
|
||
|
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 ) = @_;
|
||
|
$mail = $email->get_body;
|
||
|
$envelope = $envelope;
|
||
|
return $self->success;
|
||
|
}
|
||
|
|
||
|
1;
|