Amazon-MWS

 view release on metacpan or  search on metacpan

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

package Amazon::MWS::Uploader;

use utf8;
use strict;
use warnings;

use DBI;
use Amazon::MWS::XML::Feed;
use Amazon::MWS::XML::Order;
use Amazon::MWS::Client;
use Amazon::MWS::XML::Response::FeedSubmissionResult;
use Amazon::MWS::XML::Response::OrderReport;
use Data::Dumper;

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

=item db_username

=item db_password

=item db_options

E.g.

  {
   mysql_enable_utf8 => 1,
  }

AutoCommit and RaiseError are set by us.

=cut

has db_dsn => (is => 'ro');
has db_password => (is => 'ro');
has db_username => (is => 'ro');
has db_options => (is => 'ro',

lib/Amazon/MWS/XML/Feed.pm  view on Meta::CPAN

package Amazon::MWS::XML::Feed;

use strict;
use warnings;
use utf8;

use base 'Amazon::MWS::XML::GenericFeed';
use Data::Dumper;

use Moo;

=head1 NAME

Amazon::MWS::XML::Feed -- module to create XML feeds for Amazon MWS

lib/Amazon/MWS/XML/GenericFeed.pm  view on Meta::CPAN

package Amazon::MWS::XML::GenericFeed;

use strict;
use warnings;
use utf8;

use File::Spec;
use Data::Dumper;

use Moo;

=head1 NAME

Amazon::MWS::XML::GenericFeed -- base module to create XML feeds for Amazon MWS

lib/Amazon/MWS/XML/Response/OrderReport.pm  view on Meta::CPAN

package Amazon::MWS::XML::Response::OrderReport;

use utf8;
use strict;
use warnings;
use DateTime;
use DateTime::Format::ISO8601;
use Data::Dumper;
use Amazon::MWS::XML::Response::OrderReport::Item;
use Amazon::MWS::XML::Address;
use Moo;
use MooX::Types::MooseLike::Base qw(HashRef ArrayRef Str Int);
use namespace::clean;

lib/Amazon/MWS/XML/Response/OrderReport/Item.pm  view on Meta::CPAN

package Amazon::MWS::XML::Response::OrderReport::Item;

use utf8;
use strict;
use warnings;
use MooX::Types::MooseLike::Base qw(Int Str HashRef);
use namespace::clean;
use Moo;

=head1 NAME

Amazon::MWS::XML::Response::OrderReport::Item

t/client.t  view on Meta::CPAN

#!perl

use strict;
use warnings;
use utf8;
use Amazon::MWS::Client;

use Test::More;
use Test::Deep;
use Test::Warnings;

my $mws = Amazon::MWS::Client->new(
    merchant_id => '__MERCHANT_ID__',
    access_key_id => '12341234',
    secret_key => '123412341234',

t/error-parsing.t  view on Meta::CPAN

#!perl

use utf8;
use strict;
use warnings;
use Amazon::MWS::Uploader;
use Data::Dumper;
use Test::More;

my %constructor = (
                   merchant_id => '__MERCHANT_ID__',
                   access_key_id => '12341234',
                   secret_key => '123412341234',

t/feeds.t  view on Meta::CPAN

#!perl

use strict;
use warnings;
use utf8;
use Amazon::MWS::XML::Product;
use Amazon::MWS::XML::Feed;
use XML::Compile::Schema;
use File::Spec;
use Test::More;

# testing requires a directory with the schema

if (-d 'schemas') {
    plan tests => 51;

t/job-selection.t  view on Meta::CPAN

#!perl

use utf8;
use strict;
use warnings;
use Amazon::MWS::Uploader;
use Data::Dumper;
use Test::More;
use DateTime;
use DBI;

binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';

my $feed_dir = 't/feeds';

if (-d 'schemas') {
    plan tests => 12;
}
else {
    plan skip_all => q{Missing "schemas" directory with the xsd from Amazon, skipping feeds tests};
}

t/order-reports.t  view on Meta::CPAN

#!perl
use strict;
use warnings;
use utf8;

use Amazon::MWS::Uploader;
use Amazon::MWS::XML::Response::OrderReport;
use Test::More;
use Data::Dumper;
use File::Spec;

if (-d 'schemas') {
    plan tests => 106;
}

t/product-filtering.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use Test::More;
use Amazon::MWS::Uploader;
use Amazon::MWS::XML::Product;
use Data::Dumper;

if (-d 'schemas') {
    plan tests => 10;
}
else {
    plan skip_all => q{Missing "schemas" directory with the xsd from Amazon, skipping feeds tests};

t/shipping-confirmation.t  view on Meta::CPAN

#!perl

use utf8;
use strict;
use warnings;
use Test::More;
use Amazon::MWS::XML::ShippedOrder;
use Amazon::MWS::Uploader;
use DateTime;


my $test_extended;
my $schema_dir = 'schemas';

t/uploader.t  view on Meta::CPAN

#!perl

use utf8;
use strict;
use warnings;
use Amazon::MWS::Uploader;
use Data::Dumper;
use Test::More;
use DateTime;

binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';

my $feed_dir = 't/feeds';

if (-d 'schemas') {
    plan tests => 26;
}
else {
    plan skip_all => q{Missing "schemas" directory with the xsd from Amazon, skipping feeds tests};
}