Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
SMTP	[ DIR ]	drwxrwxrwx
DevNull.pm	978 B	-rw-rw-rw-
Failable.pm	2.72 KB	-rw-rw-rw-
Maildir.pm	5.39 KB	-rw-rw-rw-
Mbox.pm	3.37 KB	-rw-rw-rw-
Print.pm	1.66 KB	-rw-rw-rw-
SMTP.pm	11.81 KB	-rw-rw-rw-
Sendmail.pm	3.44 KB	-rw-rw-rw-
Test.pm	5.33 KB	-rw-rw-rw-
Wrapper.pm	1.88 KB	-rw-rw-rw-

Code Editor : Wrapper.pm

package Email::Sender::Transport::Wrapper;
# ABSTRACT: a mailer to wrap a mailer for mailing mail
$Email::Sender::Transport::Wrapper::VERSION = '1.300034';
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.300034

=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@cpan.org>

=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

${this.title}

Code Editor : Wrapper.pm