Updated for modern times

.gitignore

@@ -0,0 +1,12 @@
+/.idea
+/_build
+META.*
+MYMETA.*
+Build
+*.bak
+*.tar.gz
+MANIFEST
+blib/
+/.project
+/.includepath
+/.settings

Build.PL

@@ -31,7 +31,7 @@ my $build = Module::Build->new(
 
         'MIME::Base64'      => 0,
         'Digest::MD5'       => 0,
-        'Digest::HMAC_SHA1' => 0,
+        'Digest::SHA'       => 0,
     },
 );
 

MANIFEST

@@ -0,0 +1,20 @@
+Build.PL
+examples/download-FBA-fulfillment-report.pl
+examples/get-lowest-offer.pl
+examples/request-FBA-fulfillment-report.pl
+INSTALL
+lib/Amazon/MWS/Client.pm
+lib/Amazon/MWS/Enumeration.pm
+lib/Amazon/MWS/Enumeration/FeedProcessingStatus.pm
+lib/Amazon/MWS/Enumeration/FeedType.pm
+lib/Amazon/MWS/Enumeration/IdType.pm
+lib/Amazon/MWS/Enumeration/ItemCondition.pm
+lib/Amazon/MWS/Enumeration/ReportProcessingStatus.pm
+lib/Amazon/MWS/Enumeration/ReportType.pm
+lib/Amazon/MWS/Enumeration/Schedule.pm
+lib/Amazon/MWS/TypeMap.pm
+MANIFEST			This list of files
+MANIFEST.SKIP
+README
+t/enumeration.t
+t/SubmitFeed.t

MANIFEST.SKIP

@@ -38,10 +38,20 @@
 \.#
 \.rej$
 
+# Avoid IDE files/dirs
+\B\.idea
+\B\.includepath
+\B\.project
+\B\.settings
+
 # Avoid OS-specific files/dirs
 #   Mac OSX metadata
 \B\.DS_Store
 #   Mac OSX SMB mount metadata files
 \B\._
 # Avoid archives of this distribution
 \bAmazon-MWS-[\d\.\_]+
+^MYMETA\.yml$
+^MYMETA\.json$
+^META\.yml$
+^META\.json$

examples/get-lowest-offer.pl

@@ -0,0 +1,42 @@
+
+use strict;
+
+use Amazon::MWS::Enumeration::ItemCondition qw(:all);
+use Amazon::MWS::Client;
+use DateTime;
+use Data::Dumper;
+
+my $mws = Amazon::MWS::Client->new(access_key_id=>"XXX",
+                                   secret_key => "YYY",
+                                   seller_id => "ZZZ",
+                                   marketplace_id => "VVV");
+
+my @skus = qw(1234 2345 3456 4567 5678);
+
+my $req;
+
+eval {
+    $req = $mws->GetLowestOfferListingsForSKU(SellerSKUList => \@skus, ItemCondition => New, ExcludeMe => 1);
+};
+
+if(my $e = Exception::Class->caught('Amazon::MWS::Client::Exception')) {
+    die $e->error . "\n" . $e->trace->as_string . "\n";
+}
+elsif($@) {
+    die $@;
+}
+
+sub process_product {
+  my $product = shift;
+  my $lowest;
+  foreach my $offer (@{$product->{Product}->{LowestOfferListings}->{LowestOfferListing}}) {
+    if (!defined($lowest) || $offer->{Price}->{LandedPrice}->{Amount} > 0 && $offer->{Price}->{LandedPrice}->{Amount} < $lowest) {
+      $lowest = $offer->{Price}->{LandedPrice}->{Amount} ;
+    }
+  }
+  print $product->{SellerSKU}." lowest price ".$lowest."\n";
+}
+
+foreach my $product (@$req) {
+  process_product($product);
+}

examples/request-FBA-fulfillment-report.pl

@@ -2,6 +2,7 @@
 
 use strict;
 
+use Amazon::MWS::Enumeration::ReportType qw(:all);
 use Amazon::MWS::Client;
 use DateTime;
 
@@ -10,12 +11,22 @@
                                    merchant_id => "ZZZ",
                                    marketplace_id => "VVV");
 
-my $req = $mws->RequestReport(ReportType => '_GET_AMAZON_FULFILLED_SHIPMENTS_DATA_',
+my $req;
+
+eval {
+    $req = $mws->RequestReport(ReportType => (_GET_AMAZON_FULFILLED_SHIPMENTS_DATA_),
                               StartDate => DateTime->now->add(weeks => -1),
                               EndDate => DateTime->now);
+};
+
+if(my $e = Exception::Class->caught('Amazon::MWS::Client::Exception')) {
+    die $e->error . "\n" . $e->trace->as_string . "\n";
+}
+elsif($@) {
+    die $@;
+}
 
 if (my $req_id = $req->{ReportRequestInfo}->[0]->{ReportRequestId}) {
     open my $req, "> request.${req_id}";
     close $req;
 }
-