Amazon-API

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "AWS::Signature4" : "1.02",
            "Amazon::Credentials" : "v1.0.10",
            "Class::Accessor" : "0.51",
            "Data::Dumper" : "2.170",
            "Exporter" : "5.73",
            "HTTP::Request" : "6.18",
            "JSON" : "4.00",
            "LWP::UserAgent" : "6.36",
            "Scalar::Util" : "1.5",
            "XML::Simple" : "2.25",
            "parent" : "0.236",
            "strict" : "1.11",
            "vars" : "1.04",
            "warnings" : "1.42"
         }
      },

META.yml  view on Meta::CPAN

no_index:
  directory:
    - t
    - inc
requires:
  AWS::Signature4: '1.02'
  Amazon::Credentials: v1.0.10
  Class::Accessor: '0.51'
  Data::Dumper: '2.170'
  Exporter: '5.73'
  HTTP::Request: '6.18'
  JSON: '4.00'
  LWP::UserAgent: '6.36'
  Scalar::Util: '1.5'
  XML::Simple: '2.25'
  parent: '0.236'
  strict: '1.11'
  vars: '1.04'
  warnings: '1.42'
version: v1.1.4
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL  view on Meta::CPAN

    VERSION_FROM   => 'lib/Amazon/API.pm',
    ABSTRACT       => 'AWS API base class',
    LICENSE        => 'perl',
    PL_FILES       => {},
    PREREQ_PM      => {
      'AWS::Signature4' => '1.02',
      'Amazon::Credentials' => '1.0.10',
      'Class::Accessor' => '0.51',
      'Data::Dumper' => '2.170',
      'Exporter' => '5.73',
      'HTTP::Request' => '6.18',
      'JSON' => '4.00',
      'LWP::UserAgent' => '6.36',
      'Scalar::Util' => '1.5',
      'XML::Simple' => '2.25',
      'parent' => '0.236',
      'strict' => '1.11',
      'vars' => '1.04',
      'warnings' => '1.42'
    }
,

lib/Amazon/API.pm  view on Meta::CPAN

use strict;
use warnings;

use parent qw/Class::Accessor Exporter/;

use Amazon::API::Error;
use Amazon::Credentials;

use AWS::Signature4;
use Data::Dumper;
use HTTP::Request;
use JSON qw/to_json from_json/;
use LWP::UserAgent;
use Scalar::Util qw/reftype/;
use XML::Simple;

__PACKAGE__->follow_best_practice;

__PACKAGE__->mk_accessors(qw/action api api_methods version content_type
			     http_method credentials response protocol
			     region url service_url_base 

lib/Amazon/API.pm  view on Meta::CPAN

 application/x-www-form-urlencoded

=back

=cut

sub submit {
  my $self = shift;
  my %options = @_;

  my $request = HTTP::Request->new($self->get_http_method || 'POST', $self->get_url);

  # 1. set the header
  # 2. set the content
  # 3. sign the request
  # 4. send the request & return result
  
  # see IMPLEMENTATION NOTES for an explanation
  if ( $self->get_api ) {
    if ( $self->get_version) {
      $self->set_target(sprintf("%s_%s.%s", $self->get_api, $self->get_version, $self->get_action));