1#!/usr/bin/perl
2############################################################
3# Seller test
4############################################################
5use strict;
6use warnings;
7
8use Net::Amazon;
9use Net::Amazon::Request::Seller;
10use Log::Log4perl qw(:easy);
11
12#Log::Log4perl->easy_init($DEBUG);
13
14my $ua = Net::Amazon->new(
15    associate_tag => $ENV{AMAZON_ASSOCIATE_TAG},
16    token         => $ENV{AMAZON_TOKEN},
17    secret_key    => $ENV{AMAZON_SECRET_KEY},
18);
19
20my $req = Net::Amazon::Request::Seller->new(
21    seller  => 'A2GXAGU54VOP7',
22);
23
24my $resp = $ua->request(
25    $req,
26);
27
28if($resp->is_success()) {
29    print $resp->result()->as_string(), "\n";
30} else {
31    print "Error: ",
32          $resp->message(), "\n";
33}
34