view release on metacpan or  search on metacpan

lib/Email/Sender/Transport/SES.pm  view on Meta::CPAN

sub send_email {
  my ($self, $email, $envelope) = @_;
  
  my $string = $email->as_string;
  $string =~ s/\x0D\x0A/\x0A/g unless $^O eq 'MSWin32';
  
  my $r = $self->call('SendRawEmail', {
      'RawMessage.Data' => MIME::Base64::encode_base64($string)
  });
 
  $r->is_success or  Email::Sender::Failure->throw("couldn't send message via Amazon SES: " . $r->error_message);
 
  return $self->success;
}
 
no Moo;
1;

=head1 AUTHOR

Rusty Conover rusty@luckydinosaur.com