view release on metacpan or  search on metacpan

lib/Amazon/Signature4/Lite.pm  view on Meta::CPAN

=head2 new(%args)

  my $signer = Amazon::Signature4::Lite->new(
    access_key => $key,
    secret_key => $secret,
    region     => 'us-east-1',
  );

Required: C<access_key>, C<secret_key>, C<region>.
Optional: C<session_token> (for temporary credentials), C<service>
(defaults to C<s3>).

=head2 sign(%args)

  my $headers = $signer->sign(
    method  => 'GET',
    url     => $url,
    headers => \%extra_headers,
    payload => $body,
  );

share/README.md  view on Meta::CPAN

## new(%args)

    my $signer = Amazon::Signature4::Lite->new(
      access_key => $key,
      secret_key => $secret,
      region     => 'us-east-1',
    );

Required: `access_key`, `secret_key`, `region`.
Optional: `session_token` (for temporary credentials), `service`
(defaults to `s3`).

## sign(%args)

    my $headers = $signer->sign(
      method  => 'GET',
      url     => $url,
      headers => \%extra_headers,
      payload => $body,
    );

t/01-signature4-lite.t  view on Meta::CPAN

use warnings;

use Test::More;

use Amazon::Signature4::Lite;

########################################################################
# Helpers
########################################################################

# Fixed credentials from the AWS SigV4 test suite
my $TEST_ACCESS_KEY = 'AKIDEXAMPLE';
my $TEST_SECRET_KEY = 'wJalrXUtnFEMI/K7MDENG+bPxRfiCYEXAMPLEKEY';
my $TEST_REGION     = 'us-east-1';
my $TEST_SERVICE    = 'service';

# 2015-08-30 12:36:00 UTC = 1440937360
my $TEST_TIME = 1440938160;

sub new_signer {
  my (%args) = @_;