1######################################################################
2package Net::Amazon::Request::Exchange;
3######################################################################
4use warnings;
5use strict;
6use base qw(Net::Amazon::Request);
7
8##################################################
9sub new {
10##################################################
11    my($class, %options) = @_;
12
13    $class->_assert_options_defined(\%options,
14                                   'exchange');
15
16    $options{IdType} = "Exchange";
17    $class->_convert_option(\%options,
18                            'exchange',
19                            'Id');
20
21   my $self = $class->SUPER::new(%options);
22
23   bless $self, $class;   # reconsecrate
24}
25
261;
27
28__END__
29
30=head1 NAME
31
32Net::Amazon::Request::Exchange - Class for submitting Exchange requests
33
34=head1 SYNOPSIS
35
36  use Net::Amazon;
37  use Net::Amazon::Request::Exchange;
38
39  my $ua = Net::Amazon->new(
40      token       => 'YOUR_AMZN_TOKEN'
41  );
42
43  my $req = Net::Amazon::Request::Exchange->new(
44      exchange  => 'Y04Y3424291Y2398445'
45  );
46
47    # Response is of type Net::Amazon::Response::Seller
48  my $resp = $ua->request($req);
49
50=head1 DESCRIPTION
51
52C<Net::Amazon::Request::Exchange> is a class used to submit Exchange search
53requests to the Amazon web service. Exchange requests send an item's
54exchange ID and retrieve a description of the item, offered by a third
55party seller on Amazon.
56
57Upon success, the responses' C<result()> method will return a single
58C<Net::Amazon::Result::Seller::Listing> object.
59
60Check L<Net::Amazon::Request> for common request parameters not listed here.
61
62=head2 METHODS
63
64=over 4
65
66=item new( exchange => $exchange_id )
67
68Constructs a new C<Net::Amazon::Request::Exchange> object, used to query
69the Amazon web service with the given seller id.
70
71=back
72
73=head1 AUTHOR
74
75Mike Schilli, E<lt>m@perlmeister.comE<gt>
76
77=head1 COPYRIGHT AND LICENSE
78
79Copyright 2005 by Mike Schilli E<lt>m@perlmeister.comE<gt>
80
81This library is free software; you can redistribute it and/or modify
82it under the same terms as Perl itself.
83
84=cut
85