CPAN::Groonga

e 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                 

ission => 'allowAll' };

  my @attributes = (
    { Name  => 'RedriveAllowPolicy',
      Value => JSON->new->encode($redriveAllowPolicy)
    },
    { Name  => 'VisibilityTimeout',
      Value => $opti

 ) = @_;

  my $dlq_url = $options{dlq_url};

  if ($dlq_url) {

    $options{'redrive-policy'} = JSON->new->encode(
      { deadLetterTargetArn => get_queue_arn( $client, $dlq_url ),
        maxRecei

control how messages are processed.

  [handler]
  class = MyHandler
  message_type = application/json
  max_children = 1

=over 5

=item class

Name of the class that implements your handler.  If you

 be one of 'text/plain', 'application/json',
or 'application/x-www-form-urlencoded'.

If the message type is 'application/json' it will be decoded using the
L<JSON> class. If the message type is
'appl

;
use warnings;

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

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

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

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

ct;
use warnings;

use Amazon::SQS::Model::ListQueuesRequest;
use English qw(-no_match_vars);
use JSON;

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

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

QueuesResult();
    my $queueUrlList     = $listQueuesResult->getQueueUrl();

    print {*STDOUT} JSON->new->pretty->encode($queueUrlList);
  }

  if ( $response->isSetResponseMetadata() ) {
    my $r

est;
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

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

our @VALID_MESSAGE_TYPES = qw(
  text/plain
  application/json
  application/x-www-form-urlencoded
);

our $DEFAULT_ENDPOINT_URL = 'https://queue.amazonaws.com'

sage_body
      if $message_type eq 'text/plain';

    return JSON->new->decode($message_body)
      if $message_type eq 'application/json';

    if ( $message_type eq 'application/x-www-form-encoded'

    fixed at 1 currently
 -M, --message-type       mime type of messages (text/plain, application/json, 
                          application/x-www-form-encoded), default: text/plain
 -q, --queue