PA-API Version 5

CPAN module is here Amazon::PAApi5::Signature.

Example

This is an example code to search JP market items by keyword 'Perl'.

```

!/usr/bin/env perl

use strict; use warnings; use Amazon::PAApi5::Payload; use Amazon::PAApi5::Signature; use HTTP::Headers; use LWP::UserAgent; use Data::Dumper;

my $PARTNER_TAG = 'YOUR_ASSOCIATE_PARTNER_TAG-22'; my $ACCESS_KEY = 'YOUR_ACCESS_KEY'; my $SECRET_KEY = 'YOUR_SECRET_KEY';

{ my $payload = Amazon::PAApi5::Payload->new( $PARTNER_TAG, 'www.amazon.co.jp', )->to_json({ Keywords => 'Perl', SearchIndex => 'All', ItemCount => 2, Resources => [qw/ ItemInfo.Title /], });

my $sig = Amazon::PAApi5::Signature->new(
    $ACCESS_KEY,
    $SECRET_KEY,
    $payload,
    {
        resource_path => '/paapi5/searchitems',
        operation     => 'SearchItems',
        host          => 'webservices.amazon.co.jp',
        region        => 'us-west-2',
    },
);

my $ua = LWP::UserAgent->new(
    default_headers => HTTP::Headers->new($sig->headers),
);

my $res = $ua->post($sig->req_url, Content => $sig->payload);

warn Dumper($res->status_line, $res->content);

} ```

One more an example to get browser nodes from US market.

```

!/usr/bin/env perl

use strict; use warnings; use Amazon::PAApi5::Payload; use Amazon::PAApi5::Signature; use HTTP::Headers; use LWP::UserAgent; use Data::Dumper;

my $PARTNER_TAG = 'YOUR_ASSOCIATE_PARTNER_TAG-22'; my $ACCESS_KEY = 'YOUR_ACCESS_KEY'; my $SECRET_KEY = 'YOUR_SECRET_KEY';

{ my $payload = Amazon::PAApi5::Payload->new( $PARTNER_TAG )->to_json({ BrowseNodeIds => ['6134005011'], Resources => ["BrowseNodes.Children"], });

my $sig = Amazon::PAApi5::Signature->new(
    $ACCESS_KEY,
    $SECRET_KEY,
    $payload,
    {
        resource_path => '/paapi5/getbrowsenodes',,
        operation     => 'GetBrowseNodes',
    },
);

my $ua = LWP::UserAgent->new(
    default_headers => HTTP::Headers->new($sig->headers),
);

my $res = $ua->post($sig->req_url, Content => $sig->payload);

warn Dumper($res->status_line, $res->content);

} ```