Amazon-SQS-Client

 view release on metacpan or  search on metacpan

lib/Amazon/SQS/Client.pm  view on Meta::CPAN

package Amazon::SQS::Credentials;

use strict;
use warnings;

# faux Credentials class - just provides getters

__PACKAGE__->follow_best_practice();
__PACKAGE__->mk_accessors(qw(aws_access_key_id aws_secret_access_key token loglevel));

use parent qw(Class::Accessor::Fast);

our $VERSION = '2.0.7';

########################################################################
sub new {
########################################################################
  my ( $class, @args ) = @_;

lib/Amazon/SQS/Client.pm  view on Meta::CPAN

use Data::Dumper;
use Digest::SHA qw (hmac_sha1_base64 hmac_sha256_base64);
use English qw(-no_match_vars);
use LWP::UserAgent;
use Scalar::Util qw(reftype);
use Time::HiRes qw(usleep);
use URI::Escape;
use URI;
use XML::Simple;

__PACKAGE__->follow_best_practice();
__PACKAGE__->mk_accessors(
  qw(
    ServiceURL
    UserAgent
    SignatureVersion
    SignatureMethod
    MaxErrorRetry
    ServiceVersion
    SecurityToken
    Region

lib/Amazon/SQS/Config.pm  view on Meta::CPAN

  queue_create_queue
  queue_name
  queue_url
  queue_interval
  queue_max_messages
  queue_max_wait
  queue_visibility_timeout
  queue_wait_time
);

__PACKAGE__->follow_best_practice;
__PACKAGE__->mk_accessors(qw(config file queue_list service));

use parent qw(Class::Accessor::Fast);

########################################################################
sub new {
########################################################################
  my ( $class, @args ) = @_;

  my $options = ref $args[0] ? $args[0] : {@args};

lib/Amazon/SQS/QueueHandler.pm  view on Meta::CPAN

use English qw(-no_match_vars);

use Amazon::Credentials;
use Amazon::SQS::Model::DeleteMessageRequest;
use Amazon::SQS::Model::ReceiveMessageRequest;
use Amazon::SQS::Client;
use CGI::Simple;
use JSON;
use List::Util qw(none max);

__PACKAGE__->follow_best_practice;
__PACKAGE__->mk_accessors(
  qw(
    config
    create_queue
    credentials
    endpoint_url
    logger
    max_error_retry
    message
    message_id

lib/Amazon/SQS/Sample.pm  view on Meta::CPAN

use Amazon::SQS::Client;
use Amazon::SQS::Config;
use Amazon::SQS::Exception;
use Pod::Usage;

use Carp qw( carp croak );
use Data::Dumper;
use English qw(-no_match_vars);

__PACKAGE__->follow_best_practice;
__PACKAGE__->mk_accessors(qw(file service config endpoint_url));

use parent qw(Class::Accessor::Fast);

########################################################################
sub sample {
########################################################################
  my ($service) = @_;

  return;