1 files changed, 81 insertions, 0 deletions
diff --git a/lib/Net/Amazon/Response/Exchange.pm b/lib/Net/Amazon/Response/Exchange.pm
new file mode 100644
index 0000000..56852fe
--- /dev/null
+++ b/lib/Net/Amazon/Response/Exchange.pm
@@ -0,0 +1,81 @@
+######################################################################
+package Net::Amazon::Response::Exchange;
+######################################################################
+use warnings;
+use strict;
+use base qw(Net::Amazon::Response);
+
+use Net::Amazon::Property;
+use Net::Amazon::Result::Seller::Listing;
+use Log::Log4perl qw(:easy);
+
+__PACKAGE__->make_array_accessor($_) for qw(listings);
+
+##################################################
+sub new {
+##################################################
+   my($class, %options) = @_;
+
+   my $self = $class->SUPER::new(%options);
+
+   bless $self, $class;   # reconsecrate
+}
+
+##################################################
+sub result {
+##################################################
+    my($self) = @_;
+
+    if($self->is_success()) {
+        return Net::Amazon::Result::Seller::Listing->new(
+            xmlref => $self->{xmlref}->{ListingProductDetails}->[0],
+        );
+    }
+
+    return undef;
+}
+
+##################################################
+sub as_string {
+##################################################
+   my($self) = @_;
+
+   return "TODO: as_string not defined yet in ", __PACKAGE__;
+}
+
+##################################################
+sub xmlref_add {
+##################################################
+    my($self, $xmlref) = @_;
+
+    my $nof_items_added = 0;
+
+    unless(ref($self->{xmlref}) eq "HASH" &&
+        ref($self->{xmlref}->{ListingProductDetails}) eq "ARRAY") {
+        $self->{xmlref}->{Details} = [];
+    }
+
+    if(ref($xmlref->{ListingProductDetails}) eq "ARRAY") {
+            # Is it an array of items?
+        push @{$self->{xmlref}->{ListingProductDetails}},
+             @{$xmlref->{ListingProductDetails}};
+        $nof_items_added = scalar @{$xmlref->{ListingProductDetails}};
+    } else {
+            # It is a single item
+        push @{$self->{xmlref}->{ListingProductDetails}},
+             $xmlref->{ListingProductDetails};
+        $nof_items_added = 1;
+    }
+
+    return $nof_items_added;
+}
+
+##################################################
+sub properties {
+##################################################
+    my($self) = @_;
+
+    die "properties() not defined in ", __PACKAGE__, ". Use result() instead";
+}
+
+1;