Amazon-SES

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "AWS::Signature4" : "0",
            "Carp" : "0",
            "Email::Sender::Transport" : "0",
            "HTTP::Headers" : "0",
            "HTTP::Request::Common" : "0",
            "JSON::XS" : "0",
            "Kavorka" : "0",
            "LWP::UserAgent" : "0",
            "MIME::Base64" : "0",
            "Moo" : "0",
            "MooX::Types::MooseLike::Base" : "0",
            "Moops" : "0",
            "Time::Piece" : "0",
            "VM::EC2::Security::CredentialCache" : "0",
            "XML::Simple" : "0",

META.yml  view on Meta::CPAN

    file: lib/Amazon/SES/Response.pm
    version: '0.06'
  Email::Sender::Transport::SES:
    file: lib/Email/Sender/Transport/SES.pm
    version: '0.06'
requires:
  AWS::Signature4: '0'
  Carp: '0'
  Email::Sender::Transport: '0'
  HTTP::Headers: '0'
  HTTP::Request::Common: '0'
  JSON::XS: '0'
  Kavorka: '0'
  LWP::UserAgent: '0'
  MIME::Base64: '0'
  Moo: '0'
  MooX::Types::MooseLike::Base: '0'
  Moops: '0'
  Time::Piece: '0'
  VM::EC2::Security::CredentialCache: '0'
  XML::Simple: '0'

Makefile.PL  view on Meta::CPAN

  },
  "DISTNAME" => "Amazon-SES",
  "EXE_FILES" => [],
  "LICENSE" => "perl",
  "NAME" => "Amazon::SES",
  "PREREQ_PM" => {
    "AWS::Signature4" => 0,
    "Carp" => 0,
    "Email::Sender::Transport" => 0,
    "HTTP::Headers" => 0,
    "HTTP::Request::Common" => 0,
    "JSON::XS" => 0,
    "Kavorka" => 0,
    "LWP::UserAgent" => 0,
    "MIME::Base64" => 0,
    "Moo" => 0,
    "MooX::Types::MooseLike::Base" => 0,
    "Moops" => 0,
    "Time::Piece" => 0,
    "VM::EC2::Security::CredentialCache" => 0,
    "XML::Simple" => 0,

Makefile.PL  view on Meta::CPAN

my %FallbackPrereqs = (
  "AWS::Signature4" => 0,
  "Carp" => 0,
  "Email::Sender::Simple" => 0,
  "Email::Sender::Transport" => 0,
  "Email::Simple" => 0,
  "Email::Simple::Creator" => 0,
  "ExtUtils::MakeMaker" => 0,
  "HTTP::Headers" => 0,
  "HTTP::Request::Common" => 0,
  "JSON::XS" => 0,
  "Kavorka" => 0,
  "LWP::UserAgent" => 0,
  "MIME::Base64" => 0,
  "MIME::Entity" => 0,
  "Moo" => 0,
  "MooX::Types::MooseLike::Base" => 0,
  "Moops" => 0,
  "Test::Modern" => 0,
  "Time::Piece" => 0,

lib/Amazon/SES.pm  view on Meta::CPAN

    use strict;
    use warnings;
    use Carp ('croak');
    use MIME::Base64;
    use Time::Piece;
    use HTTP::Headers;
    use LWP::UserAgent;
    use AWS::Signature4;
    use Amazon::SES::Response;
    use VM::EC2::Security::CredentialCache;
    use HTTP::Request::Common;
    use Kavorka qw( multi method );



    has 'ua' => (is => 'ro', default => sub { return LWP::UserAgent->new() } );
    has 'use_iam_role' => ( is => 'ro', default => 0 );
    has 'access_key'   => ( is => 'ro' );
    has 'secret_key'   => ( is => 'ro' );
    has 'region'       => ( is => 'ro', default => 'us-east-1' );
    has 'response'       => ( is => 'rw' );

t/iam-role.t  view on Meta::CPAN

    my $msg = MIME::Entity->build(
        From    => $ENV{AWS_SES_IDENTITY},
        To      => 'success@simulator.amazonses.com',
        Subject => 'MIME msg from AWS SES',
        Data    => "<h1>Hello world from AWS SES</h1>",
        Type    => 'text/html'
    );
    ##### ATTACHMENTS

    my $ua = LWP::UserAgent->new();
    my $request = HTTP::Request->new(GET => 'https://www.flickr.com/photos/evapro/385650640/in/photolist-69489U-fyz13-iiy7D5-5Ja6Rm-A5yuY-57JMUp-9SZi1g-53zkrK-98NZL3-9vSoog-5zvBWg-4khc92-9yMddK-2hR4AE-A5zqy-7yrNCC-6iDNFS-jz9QM6-iVKeLo-fXRSo-e3uwEk-8j...
    my $res = $ua->request($request);
    ok($res->is_success, "Successfully downloaded cat photo");
    
    $msg->attach(
        Data => $res->content,
        Type     => $res->header('Content-Type'),
        Encoding => 'base64'
    );
    $r = $ses->send($msg);
    ok( $r->is_success,

t/iam-role.t~  view on Meta::CPAN

    my $msg = MIME::Entity->build(
        From    => $ENV{AWS_SES_IDENTITY},
        To      => 'success@simulator.amazonses.com',
        Subject => 'MIME msg from AWS SES',
        Data    => "<h1>Hello world from AWS SES</h1>",
        Type    => 'text/html'
    );
    ##### ATTACHMENTS

    my $ua = LWP::UserAgent->new();
    my $request = HTTP::Request->new(GET => 'https://www.flickr.com/photos/evapro/385650640/in/photolist-69489U-fyz13-iiy7D5-5Ja6Rm-A5yuY-57JMUp-9SZi1g-53zkrK-98NZL3-9vSoog-5zvBWg-4khc92-9yMddK-2hR4AE-A5zqy-7yrNCC-6iDNFS-jz9QM6-iVKeLo-fXRSo-e3uwEk-8j...
    my $res = $ua->request($request);
    ok($res->is_success, "Successfully downloaded cat photo");
    
    $msg->attach(
        Data => $res->content,
        Type     => $res->header('Content-Type'),
        Encoding => 'base64'
    );
    $r = $ses->send($msg);
    ok( $r->is_success,

t/usage.t  view on Meta::CPAN

    my $msg = MIME::Entity->build(
        From    => $ENV{AWS_SES_IDENTITY},
        To      => 'success@simulator.amazonses.com',
        Subject => 'MIME msg from AWS SES',
        Data    => "<h1>Hello world from AWS SES</h1>",
        Type    => 'text/html'
    );
    ##### ATTACHMENTS

    my $ua = LWP::UserAgent->new();
    my $request = HTTP::Request->new(GET => 'https://www.flickr.com/photos/evapro/385650640/in/photolist-69489U-fyz13-iiy7D5-5Ja6Rm-A5yuY-57JMUp-9SZi1g-53zkrK-98NZL3-9vSoog-5zvBWg-4khc92-9yMddK-2hR4AE-A5zqy-7yrNCC-6iDNFS-jz9QM6-iVKeLo-fXRSo-e3uwEk-8j...
    my $res = $ua->request($request);
    ok($res->is_success, "Successfully downloaded cat photo");
    
    $msg->attach(
        Data => $res->content,
        Type     => $res->header('Content-Type'),
        Encoding => 'base64'
    );
    $r = $ses->send($msg);
    ok( $r->is_success,