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::Print;
# ABSTRACT: print email to a filehandle (like stdout)
$Email::Sender::Transport::Print::VERSION = '1.300035';
use Moo;
with 'Email::Sender::Transport';

#pod =head1 DESCRIPTION
#pod
#pod When this transport is handed mail, it prints it to a filehandle.  By default,
#pod it will print to STDOUT, but it can be given any L<IO::Handle> object to print
#pod to as its C<fh> attribute.
#pod
#pod =cut

use IO::Handle;
use MooX::Types::MooseLike::Base qw(InstanceOf);

has 'fh' => (
  is       => 'ro',
  isa      => InstanceOf['IO::Handle'],
  required => 1,
  default  => sub { IO::Handle->new_from_fd(fileno(STDOUT), 'w') },
);

sub send_email {
  my ($self, $email, $env) = @_;

my $fh = $self->fh;

$fh->printf("ENVELOPE TO  : %s\n", join(q{, }, @{ $env->{to} }) || '-');
  $fh->printf("ENVELOPE FROM: %s\n", defined $env->{from} ? $env->{from} : '-');
  $fh->print(q{-} x 10 . " begin message\n");

$fh->print( $email->as_string );

$fh->print(q{-} x 10 . " end message\n");

return $self->success;
}

no Moo;
1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Email::Sender::Transport::Print - print email to a filehandle (like stdout)

=head1 VERSION

version 1.300035

=head1 DESCRIPTION

When this transport is handed mail, it prints it to a filehandle.  By default,
it will print to STDOUT, but it can be given any L<IO::Handle> object to print
to as its C<fh> attribute.

=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