Amazon-SQS-Client
22 results

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN 

      "runtime" : {
         "requires" : {
            "AWS::Signature4" : "1.02",
            "Amazon::Credentials" : "0",
            "CGI::Simple" : "1.281",
            "Carp" : "1.50",
            "Class::Accessor::Fast" : "0.51",
            "Class::Inspector" : "0",
            "Class::Unload" : "0",
            "Config::IniFiles" : "3.000003",
            "Data::Dumper" : "2.183",
            "Digest::SHA" : "6.02",
            "English" : "1.05",
            "JSON" : "4.10",
            "LWP::UserAgent" : "6.77",
            "List::Util" : "1.63",
            "Log::Log4perl" : "1.57",
            "Log::Log4perl::Level" : "0",
            "Module::ScanDeps::Static" : "0",
            "Proc::Daemon" : "0",
            "Proc::PID::File" : "0",

META.yml  view on Meta::CPAN 

    version: '0'
requires:
  AWS::Signature4: '1.02'
  Amazon::Credentials: '0'
  CGI::Simple: '1.281'
  Carp: '1.50'
  Class::Accessor::Fast: '0.51'
  Class::Inspector: '0'
  Class::Unload: '0'
  Config::IniFiles: '3.000003'
  Data::Dumper: '2.183'
  Digest::SHA: '6.02'
  English: '1.05'
  JSON: '4.10'
  LWP::UserAgent: '6.77'
  List::Util: '1.63'
  Log::Log4perl: '1.57'
  Log::Log4perl::Level: '0'
  Module::ScanDeps::Static: '0'
  Proc::Daemon: '0'
  Proc::PID::File: '0'

Makefile.PL  view on Meta::CPAN 

  EXE_FILES        => [ 'bin/aws-sqsd', 'bin/aws-sqsd.in', 'bin/create-queue.pl', 'bin/QueueDaemon.pl' ],
  PREREQ_PM        => {
    'AWS::Signature4'          => '1.02',
    'Amazon::Credentials'      => '0',
    'CGI::Simple'              => '1.281',
    'Carp'                     => '1.50',
    'Class::Accessor::Fast'    => '0.51',
    'Class::Inspector'         => '0',
    'Class::Unload'            => '0',
    'Config::IniFiles'         => '3.000003',
    'Data::Dumper'             => '2.183',
    'Digest::SHA'              => '6.02',
    'English'                  => '1.05',
    'JSON'                     => '4.10',
    'LWP::UserAgent'           => '6.77',
    'List::Util'               => '1.63',
    'Log::Log4perl'            => '1.57',
    'Log::Log4perl::Level'     => '0',
    'Module::ScanDeps::Static' => '0',
    'Proc::Daemon'             => '0',
    'Proc::PID::File'          => '0',

bin/QueueDaemon.pl  view on Meta::CPAN 

use strict;
use warnings;

########################################################################
package main;
########################################################################

use Class::Inspector;
use Class::Unload;
use Cwd;
use Data::Dumper;
use English qw(-no_match_vars);
use File::Basename qw(fileparse);
use Getopt::Long qw(:config no_ignore_case);
use List::Util qw(max min);
use Log::Log4perl;
use Log::Log4perl::Level;
use Pod::Usage;
use Proc::Daemon;
use Proc::PID::File;
use Module::Load qw(autoload);

bin/aws-sqsd  view on Meta::CPAN 

prog=aws-sqsd

########################################################################
function find_queue_daemon {
########################################################################

    DAEMON=$(command -v QueueDaemon.pl)
    DAEMON=${DAEMON:-/usr/local/bin/QueueDaemon.pl}

    if ! test -e "$DAEMON"; then
        eval $(perl -MConfig -MData::Dumper -e 'print Config::config_re(qr/installsitebin/);');
        DAEMON="$installsitebin/QueueDaemon.pl"
    fi
    
    if ! test -e "$DAEMON"; then
        echo "could not find QueueDaemon.pl\n";
        exit 1;
    fi
}

########################################################################

bin/aws-sqsd.in  view on Meta::CPAN 

prog=aws-sqsd

########################################################################
function find_queue_daemon {
########################################################################

    DAEMON=$(command -v QueueDaemon.pl)
    DAEMON=${DAEMON:-@bindir@/QueueDaemon.pl}

    if ! test -e "$DAEMON"; then
        eval $(perl -MConfig -MData::Dumper -e 'print Config::config_re(qr/installsitebin/);');
        DAEMON="$installsitebin/QueueDaemon.pl"
    fi
    
    if ! test -e "$DAEMON"; then
        echo "could not find QueueDaemon.pl\n";
        exit 1;
    fi
}

########################################################################

bin/create-queue.pl  view on Meta::CPAN 

#!/usr/bin/env perl

# script to create a queue w/an associated dead letter queue
# perl create-queue.pl -h

use strict;
use warnings;

use Amazon::SQS::Client;

use Data::Dumper;
use English qw(-no_match_vars);

use Getopt::Long qw(:config no_ignore_case);
use JSON;
use Pod::Usage;

use Readonly;

Readonly::Scalar our $DEFAULT_MAX_RECEIVE_COUNT                 => 10;
Readonly::Scalar our $DEFAULT_MAXIMUM_MESSAGE_SIZE              => 256 * 1024;

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


package Amazon::SQS::Client;

use strict;
use warnings;

use Amazon::Credentials;
use Amazon::SQS::Constants qw(:all);
use Amazon::SQS::Exception;
use Carp qw(croak);
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();

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

package Amazon::SQS::Config;

use strict;
use warnings;

use Config::IniFiles;
use Scalar::Util qw(openhandle);

use Data::Dumper;

our $VERSION = '2.0.6';

use Readonly;

Readonly::Array our @REQUIRED_ACCESSORS => qw(
  aws_access_key_id
  aws_secret_access_key
  error_delete
  error_exit

lib/Amazon/SQS/Model/ChangeMessageVisibilityBatchResponse.pm  view on Meta::CPAN 

#  Amazon SQS Perl Library
#  API Version: 2009-02-01
#  Generated: Thu Apr 09 01:13:11 PDT 2009 
# 

# This work has been modified from the original Copyright 2016 Robert C. Lauer

package Amazon::SQS::Model::ChangeMessageVisibilityBatchResponse;

use base qw (Amazon::SQS::Model);
use Data::Dumper;

#
# Amazon::SQS::Model::ChangeMessageVisibilityBatchResponse
# 
# Properties:
#
# 
# ResponseMetadata: Amazon::SQS::Model::ResponseMetadata
# ChangeMessageVisibilityBatchResult: Amazon::SQS::Model::ChangeMessageVisibilityBatchResult
#

lib/Amazon/SQS/Model/ListDeadLetterSourceQueuesResponse.pm  view on Meta::CPAN 

# 
#  Amazon SQS Perl Library
#  API Version: 2009-02-01
#  Generated: Thu Apr 09 01:13:11 PDT 2009 
# 


package Amazon::SQS::Model::ListDeadLetterSourceQueuesResponse;

use base qw (Amazon::SQS::Model);
use Data::Dumper;

=pod

=head1 NAME

C<Amazon::SQS::Model::ListQueuesResponse>

=head1 SYNOPSIS

 my $response = new Amazon::SQS::Model::ListQueuesResponse( { ListQueuesResult => $result,

lib/Amazon/SQS/Model/MessageAttribute.pm  view on Meta::CPAN 

#  Amazon SQS Perl Library
#  API Version: 2009-02-01
#  Generated: Thu Apr 09 01:13:11 PDT 2009 
# 

package Amazon::SQS::Model::MessageAttribute;

use base qw (Amazon::SQS::Model);

use Scalar::Util qw/reftype/;
use Data::Dumper;

=pod

=head1 NAME

 Amazon::SQS::Model::Attribute

=head1 SYNOPSIS

 my $attribute = new Amazon::SQS::Model::Attribute(

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

use strict;
use warnings;

package Amazon::SQS::QueueHandler;

use Data::Dumper;
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);

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


use strict;
use warnings;

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 {
########################################################################

share/AddPermission.pm  view on Meta::CPAN 

package AddPermission;

use strict;
use warnings;
use English qw(-no_match_vars);
use Amazon::SQS::Model::AddPermissionRequest;
use Data::Dumper;

use parent qw(Amazon::SQS::Sample);

########################################################################
sub sample {
########################################################################
  my ( $self, $label, $actions, $account_ids, $queue_url ) = @_;

  if ( !$actions ) {
    warn "actions is a required argument\n";

share/CreateQueue.pm  view on Meta::CPAN 

package CreateQueue;

use strict;
use warnings;

use Amazon::SQS::Model::CreateQueueRequest;

use English qw(-no_match_vars);
use JSON;
use Data::Dumper;

use parent qw(Amazon::SQS::Sample);

########################################################################
sub sample {
########################################################################
  my ($self, $queue_name) = @_;
  
  die "usage: example.pl [-f config-name] CreateQueue queue-name\n"
    if !$queue_name;

share/GetQueueAttributes.pm  view on Meta::CPAN 

package GetQueueAttributes;

use strict;
use warnings;

use English qw(-no_match_vars);
use Amazon::SQS::Model::GetQueueAttributesRequest;
use Data::Dumper;

use parent qw(Amazon::SQS::Sample);

########################################################################
sub sample {
########################################################################
  my ( $self, $attributes, $queue_url ) = @_;

  $attributes //= 'All';

share/ReceiveMessage.pm  view on Meta::CPAN 

package ReceiveMessage;

use strict;
use warnings;

use Amazon::SQS::Model::ReceiveMessageRequest;
use Data::Dumper;

use parent qw(Amazon::SQS::Sample);

########################################################################
sub sample {
########################################################################
  my ( $self, $queue_url ) = @_;

  my $service = $self->get_service;

share/SetQueueAttributes.pm  view on Meta::CPAN 

package SetQueueAttributes;

use strict;
use warnings;

use English qw(-no_match_vars);
use Amazon::SQS::Model::SetQueueAttributesRequest;
use Data::Dumper;
use List::Util qw(pairs);

use parent qw(Amazon::SQS::Sample);

########################################################################
sub sample {
########################################################################
  my ( $self, $attributes, $queue_url ) = @_;

  if ( !$attributes ) {

share/example.pl  view on Meta::CPAN 

#!/usr/bin/env perl

# Script for exercising Amazon::SQS examples.

use strict;
use warnings;

use Amazon::SQS::Sample;
use Data::Dumper;
use English qw(-no_match_vars);
use Carp qw(carp croak);
use Pod::Usage;
use Module::Load qw(load);

use Getopt::Long qw(:config no_ignore_case);

########################################################################
sub main {
########################################################################

t/01-handler.t  view on Meta::CPAN 

#!/usr/bin/env perl

use strict;
use warnings;

use Test::More;
use Data::Dumper;
use English qw(-no_match_vars);

use Log::Log4perl qw(:easy);

use Log::Log4perl::Level;

Log::Log4perl->easy_init($INFO);

########################################################################
subtest 'decode message' => sub {

t/01-sqs-client.t  view on Meta::CPAN 

#!/usr/bin/env perl

use strict;
use warnings;

use Test::More;
use Data::Dumper;
use English qw(-no_match_vars);
use List::Util qw(any);

my $client;

plan skip_all => 'no service set'
  if !$ENV{SERVICE_URL};

########################################################################
subtest 'create client' => sub {



( run in 0.650 second using v1.01-cache-2.11-cpan-a5abf4f5562 )