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;