Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
SMTP	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
DevNull.pm	986 B	-rw-rw-rw-	2020-10-10 20:34
Failable.pm	2.73 KB	-rw-rw-rw-	2020-10-10 20:34
Maildir.pm	5.4 KB	-rw-rw-rw-	2020-10-10 20:34
Mbox.pm	3.38 KB	-rw-rw-rw-	2020-10-10 20:34
Print.pm	1.67 KB	-rw-rw-rw-	2020-10-10 20:34
SMTP.pm	11.34 KB	-rw-rw-rw-	2020-10-10 20:34
Sendmail.pm	3.45 KB	-rw-rw-rw-	2020-10-10 20:34
Test.pm	5.45 KB	-rw-rw-rw-	2020-10-10 20:34
Wrapper.pm	1.89 KB	-rw-rw-rw-	2020-10-10 20:34

Rename

package Email::Sender::Transport::Wrapper;
# ABSTRACT: a mailer to wrap a mailer for mailing mail
$Email::Sender::Transport::Wrapper::VERSION = '1.300035';
use Moo;
with 'Email::Sender::Transport';

use Email::Sender::Util;

#pod =head1 DESCRIPTION
#pod
#pod Email::Sender::Transport::Wrapper wraps a transport, provided as the
#pod C<transport> argument to the constructor.  It is provided as a simple way to
#pod use method modifiers to create wrapping classes.
#pod
#pod =cut

has transport => (
  is   => 'ro',
  does => 'Email::Sender::Transport',
  required => 1,
);

sub send_email {
  my $self = shift;

$self->transport->send_email(@_);
}

sub is_simple {
  return $_[0]->transport->is_simple;
}

sub allow_partial_success {
  return $_[0]->transport->allow_partial_success;
}

sub BUILDARGS {
  my $self = shift;
  my $href = $self->SUPER::BUILDARGS(@_);

if (my $class = delete $href->{transport_class}) {
    Carp::confess("given both a transport and transport_class")
      if $href->{transport};

my %arg;
    for my $key (map {; /^transport_arg_(.+)$/ ? "$1" : () } keys %$href) {
      $arg{$key} = delete $href->{"transport_arg_$key"};
    }

$href->{transport} = Email::Sender::Util->easy_transport($class, \%arg);
  }

return $href;
}

no Moo;
1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Email::Sender::Transport::Wrapper - a mailer to wrap a mailer for mailing mail

=head1 VERSION

version 1.300035

=head1 DESCRIPTION

Email::Sender::Transport::Wrapper wraps a transport, provided as the
C<transport> argument to the constructor.  It is provided as a simple way to
use method modifiers to create wrapping classes.

=head1 AUTHOR

Ricardo Signes <rjbs@semiotic.systems>

=head1 COPYRIGHT AND LICENSE

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut