Amazon-MWS

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "runtime" : {
         "requires" : {
            "Class::InsideOut" : "0",
            "DBI" : "0",
            "DateTime" : "0",
            "DateTime::Format::ISO8601" : "0",
            "Digest::HMAC_SHA1" : "0",
            "Digest::MD5" : "0",
            "Exception::Class" : "0",
            "Exporter" : "0",
            "HTTP::Request" : "0",
            "LWP::Protocol::https" : "0",
            "LWP::UserAgent" : "0",
            "MIME::Base64" : "0",
            "Moo" : "0",
            "MooX::Types::MooseLike" : "0",
            "Path::Tiny" : "0",
            "Readonly" : "0",
            "SQL::Abstract" : "0",
            "Try::Tiny" : "0",
            "URI" : "0",

META.yml  view on Meta::CPAN

    - inc
requires:
  Class::InsideOut: '0'
  DBI: '0'
  DateTime: '0'
  DateTime::Format::ISO8601: '0'
  Digest::HMAC_SHA1: '0'
  Digest::MD5: '0'
  Exception::Class: '0'
  Exporter: '0'
  HTTP::Request: '0'
  LWP::Protocol::https: '0'
  LWP::UserAgent: '0'
  MIME::Base64: '0'
  Moo: '0'
  MooX::Types::MooseLike: '0'
  Path::Tiny: '0'
  Readonly: '0'
  SQL::Abstract: '0'
  Try::Tiny: '0'
  URI: '0'

Makefile.PL  view on Meta::CPAN

        'Test::More'                => 0,
        'Test::MockObject'          => 0,
        'Test::MockObject::Extends' => 0,
        'HTTP::Response'            => 0,
        'DBI' => 0,
        'DBD::SQLite' => 0,
    },
    PREREQ_PM => {
        'URI'            => 0, 
        'URI::Escape'    => 0,
        'HTTP::Request'  => 0,
        'LWP::UserAgent' => 0,
        'LWP::Protocol::https' => 0,
        'XML::Simple'    => 0,

        'DateTime'                  => 0,
        'DateTime::Format::ISO8601' => 0,

        'Readonly'         => 0,
        'Class::InsideOut' => 0,
        'Exception::Class' => 0,

lib/Amazon/MWS/Client.pm  view on Meta::CPAN

Any of the L<API METHODS> can throw the following exceptions
(Exception::Class).  They are all subclasses of Amazon::MWS::Exception.

=head2 Amazon::MWS::Exception::MissingArgument

The call to the API method was missing a required argument.  The name of the
missing argument can be found in $e->name.

=head2 Amazon::MWS::Exception::Transport

There was an error communicating with the Amazon endpoint.  The HTTP::Request
and Response objects can be found in $e->request and $e->response.

=head2 Amazon::MWS::Exception::Response

Amazon returned an response, but indicated an error.  An arrayref of hashrefs
corresponding to the error xml (via XML::Simple on the Error elements) is
available at $e->errors, and the entire xml response is available at $e->xml.

=head2 Amazon::MWS::Exception::BadChecksum

lib/Amazon/MWS/Routines.pm  view on Meta::CPAN

package Amazon::MWS::Routines;

use URI;
use DateTime;
use XML::Simple;
use URI::Escape;
use MIME::Base64;
use Digest::SHA;
use HTTP::Request;
use LWP::UserAgent;
use Digest::MD5 qw(md5_base64);
use Amazon::MWS::TypeMap qw(:all);
use Amazon::MWS::Exception;
use Data::Dumper;

use Exporter qw(import);
our @EXPORT_OK = qw(define_api_method new sign_request convert force_array);
our %EXPORT_TAGS = ( all => \@EXPORT_OK );

lib/Amazon/MWS/Routines.pm  view on Meta::CPAN

                $form{$name} = to_amazon($type, $value);
            }
        }

	$form{Version} = $spec->{version} || '2010-01-01';

	my $endpoint = ( $spec->{service} ) ? "$self->{endpoint}$spec->{service}" : $self->{endpoint};

        my $uri = URI->new($endpoint);

        my $request = HTTP::Request->new;
	   $request->protocol('HTTP/1.0');

        my ($response, $content);

	$spec->{method} = 'GET' unless $spec->{method};

        if ($spec->{method} eq 'POST') {
            $request->uri($uri);
            $request->method('POST'); 
            $request->content($body);