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

Email-Sender documentation Contained in the Email-Sender distribution.

Index

Code Index:

NAME

Top

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

VERSION

Top

version 0.110001

DESCRIPTION

Top

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 IO::Handle object to print to as its fh attribute.

AUTHOR

Top

Ricardo Signes <rjbs@cpan.org>

COPYRIGHT AND LICENSE

Top

This software is copyright (c) 2011 by Ricardo Signes.

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

Email-Sender documentation Contained in the Email-Sender distribution. 
package Email::Sender::Transport::Print;
BEGIN {
  $Email::Sender::Transport::Print::VERSION = '0.110001';
}
use Moose;
with 'Email::Sender::Transport';
# ABSTRACT: print email to a filehandle (like stdout)


use IO::Handle;

has 'fh' => (
  is       => 'ro',
  isa      => '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;
}

__PACKAGE__->meta->make_immutable;
no Moose;
1;

__END__