Amazon-SQS-ProducerConsumer

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    build_requires => {
        'Test::More' => 0,
    },
    requires => {
        'perl' => 5.006,
				'XML::Simple' => 0,
				'LWP::UserAgent' => 0,
				'Digest::HMAC_SHA1' => 0,
				'URI::Escape' => 0,
				'MIME::Base64' => 0,
				'JSON::XS' => 0,
    },
    add_to_cleanup      => [ 'Amazon-SQS-ProducerConsumer-*' ],
    create_makefile_pl => 'traditional',
);

$builder->create_build_script();

META.json  view on Meta::CPAN

         }
      },
      "configure" : {
         "requires" : {
            "Module::Build" : "0.4"
         }
      },
      "runtime" : {
         "requires" : {
            "Digest::HMAC_SHA1" : "0",
            "JSON::XS" : "0",
            "LWP::UserAgent" : "0",
            "MIME::Base64" : "0",
            "URI::Escape" : "0",
            "XML::Simple" : "0",
            "perl" : "5.006"
         }
      }
   },
   "provides" : {
      "Amazon::SQS::Consumer" : {

META.yml  view on Meta::CPAN

    file: lib/Amazon/SQS/Consumer.pm
    version: 0
  Amazon::SQS::Producer:
    file: lib/Amazon/SQS/Producer.pm
    version: 0
  Amazon::SQS::ProducerConsumer::Base:
    file: lib/Amazon/SQS/ProducerConsumer/Base.pm
    version: 0.04
requires:
  Digest::HMAC_SHA1: 0
  JSON::XS: 0
  LWP::UserAgent: 0
  MIME::Base64: 0
  URI::Escape: 0
  XML::Simple: 0
  perl: 5.006
resources:
  license: http://dev.perl.org/licenses/
version: 0.04

Makefile.PL  view on Meta::CPAN

WriteMakefile
(
  'PL_FILES' => {},
  'INSTALLDIRS' => 'site',
  'NAME' => 'Amazon::SQS::ProducerConsumer',
  'EXE_FILES' => [],
  'VERSION_FROM' => 'lib/Amazon/SQS/ProducerConsumer/Base.pm',
  'PREREQ_PM' => {
                   'URI::Escape' => 0,
                   'XML::Simple' => 0,
                   'JSON::XS' => 0,
                   'Test::More' => 0,
                   'Digest::HMAC_SHA1' => 0,
                   'LWP::UserAgent' => 0,
                   'MIME::Base64' => 0
                 }
)
;

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

package Amazon::SQS::Consumer;

use 5.006;
use strict;
use warnings;

use base 'Amazon::SQS::ProducerConsumer::Base';
use JSON::XS;
use Encode qw( encode_utf8 is_utf8 );

use constant {
	DEFAULT_N_MESSAGES => 10,
	DEFAULT_WAIT_SECONDS => 30,
	SECONDS_BETWEEN_TRIES => 10
};

=head1 NAME

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

package Amazon::SQS::Producer;

use 5.006;
use strict;
use warnings;

use base 'Amazon::SQS::ProducerConsumer::Base';
use JSON::XS;

use constant MAX_RETRIES => 3;

=head1 NAME

Amazon::SQS::Producer - Publish messages to an Amazon Simple Queue Service (SQS) queue

=cut

sub say (@) { warn join ' ', (split ' ', scalar localtime)[2,1,4,3], "[$$]", (split '/', $0)[-1], @_, "\n"; return @_; }