Amazon-SQS-Simple

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

        Added full POD docs

0.3     17 July 2007
        Added Amazon::SQS::Simple::Base, Amazon::SQS::Simple::Message

0.4     17 July 2007
        Mended POD docs in Base and Message classes

0.5     06 August 2007
        Fixed bug in Queue.pm where RetrieveMessage could attempt to
        bless a null reference.

0.6     06 February 2008
        Updated to be compatible with the latest version of SQS
        (2008-01-01). NOTE: This version introduces non-backwards
        compatible changes! See this URL for details of the API change:
        http://developer.amazonwebservices.com/connect/entry.jspa?externalID=1148

0.7     14 Feb 2008
        Documentation fixes

lib/Amazon/SQS/Simple/Base.pm  view on Meta::CPAN

    if (!defined($self->{Region})) {
        $self->{Region} = 'us-east-1';
    }

    $self->{UserAgent}->env_proxy;

    if (!$self->{UseIAMRole} && (!$self->{AWSAccessKeyId} || !$self->{SecretKey})) {
        croak "Missing AWSAccessKey or SecretKey";
    }

    $self = bless($self, $class);
    return $self;
}

sub _api_version {
    my $self = shift;
    return $self->{Version};
}

sub _dispatch {
    my $self         = shift;

lib/Amazon/SQS/Simple/Message.pm  view on Meta::CPAN

use strict;
use warnings;

use Amazon::SQS::Simple::Base; # for constants

sub new {
    my $class = shift;
    my $msg = shift;
    my $version = shift || $Amazon::SQS::Simple::Base::DEFAULT_SQS_VERSION;
    $msg->{Version} = $version;
    return bless ($msg, $class);
}

sub MessageBody {
    my $self = shift;
    return $self->{Body};
}

sub MD5OfBody {
    my $self = shift;
    return $self->{MD5OfBody};

lib/Amazon/SQS/Simple/SendResponse.pm  view on Meta::CPAN

package Amazon::SQS::Simple::SendResponse;

use strict;
use warnings;

use Digest::MD5 qw(md5_hex);

sub new {
    my ($class, $msg, $body) = @_;
    $msg = bless($msg, $class);
    if ($body){
        $msg->{MessageBody} = $body;
    }
    return $msg;
}

sub MessageId {
    my $self = shift;
    return $self->{MessageId};
}