Amazon-SNS-V4

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

    $sns->key('...')

              Get/set auth key.

    $sns->secret

    $sns->secret('...')

              Get/set secret.

    $sns->debug

    $sns->debug(1)

              Get/set debug level. When set to 1 you'll get some debug output on STDERR.

NOTES

    Be sure to use ARNs in the same region as you have set the service to.

    The module defaults to the EU (Ireland) region.

AUTHOR

    Alessandro Zummo, <a.zummo@towertech.it>

lib/Amazon/SNS/V4.pm  view on Meta::CPAN

package Amazon::SNS::V4;

use strict;
use warnings;

use base qw/ Class::Accessor::Fast /;

__PACKAGE__->mk_accessors(qw/ key secret error status_code service debug signer error_response/);

use LWP::UserAgent;
use XML::Simple;
use URI::Escape;
use AWS::Signature4;
use HTTP::Request::Common;
use Amazon::SNS::V4::Target;
use Amazon::SNS::V4::Topic;
use Amazon::SNS::V4::FifoTopic;

lib/Amazon/SNS/V4.pm  view on Meta::CPAN

	} else {
		$self->error_response( $response->content );
		$self->error(
			($response->content =~ /^<.+>/)
				? eval { XMLin($response->content)->{'Error'}{'Message'} || $response->status_line }
				: $response->status_line
		);
	}

	print STDERR 'ERROR: ', $self->error, "\n"
		if $self->debug;

	return undef;
}

sub timestamp {

	return sprintf("%04d-%02d-%02dT%02d:%02d:%02d.000Z", sub {
		($_[5]+1900, $_[4]+1, $_[3], $_[2], $_[1], $_[0])
	}->(gmtime(time)));
}

lib/Amazon/SNS/V4.pm  view on Meta::CPAN

=head2 $sns->key('...')

Get/set auth key.

=head2 $sns->secret

=head2 $sns->secret('...')

Get/set secret.

=head2 $sns->debug

=head2 $sns->debug(1)

Get/set debug level. When set to 1 you'll get some debug output on STDERR.

=head1 NOTES

Be sure to use ARNs in the same region as you have set the service to.

The module defaults to the EU (Ireland) region.


=head1 AUTHOR