File Coverage

lib/eBay/API/XML/Call/RespondToBestOffer/RespondToBestOfferRequestType.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package eBay::API::XML::Call::RespondToBestOffer::RespondToBestOfferRequestType;
4              
5 1     1   2254 use strict;
  1         3  
  1         34  
6 1     1   6 use warnings;
  1         3  
  1         34  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. RespondToBestOfferRequestType.pm
12             # Generated by: ......... genEBayApiDataTypes.pl
13             # Last Generated: ....... 08/24/2008 16:44
14             # API Release Number: ... 579
15             #
16             ##########################################################################
17              
18             =head1 NAME
19              
20             eBay::API::XML::Call::RespondToBestOffer::RespondToBestOfferRequestType
21              
22             =head1 DESCRIPTION
23              
24             Enables the seller of a Best Offer item to accept, decline, or counter offers
25             made by bidders. Best offers can be declined in bulk, using the same message
26             from the seller to the bidders of all rejected offers.
27              
28              
29              
30             =head1 SYNOPSIS
31              
32             =cut
33              
34              
35             =head1 INHERITANCE
36              
37             eBay::API::XML::Call::RespondToBestOffer::RespondToBestOfferRequestType inherits from the L class
38              
39             =cut
40              
41 1     1   43 use eBay::API::XML::RequestDataType;
  0            
  0            
42             our @ISA = ("eBay::API::XML::RequestDataType");
43              
44             use eBay::API::XML::DataType::AmountType;
45             use eBay::API::XML::DataType::BestOfferIDType;
46             use eBay::API::XML::DataType::ItemIDType;
47             use eBay::API::XML::DataType::Enum::BestOfferActionCodeType;
48              
49              
50             my @gaProperties = ( [ 'Action', 'ns:BestOfferActionCodeType', ''
51             ,'eBay::API::XML::DataType::Enum::BestOfferActionCodeType', '' ]
52             , [ 'BestOfferID', 'ns:BestOfferIDType', '1'
53             ,'eBay::API::XML::DataType::BestOfferIDType', '1' ]
54             , [ 'CounterOfferPrice', 'ns:AmountType', ''
55             ,'eBay::API::XML::DataType::AmountType', '1' ]
56             , [ 'CounterOfferQuantity', 'xs:int', '', '', '' ]
57             , [ 'ItemID', 'ns:ItemIDType', ''
58             ,'eBay::API::XML::DataType::ItemIDType', '1' ]
59             , [ 'SellerResponse', 'xs:string', '', '', '' ]
60             );
61             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
62              
63             my @gaAttributes = (
64             );
65             push @gaAttributes, @{eBay::API::XML::RequestDataType::getAttributesList()};
66              
67             =head1 Subroutines:
68              
69             =cut
70              
71             sub new {
72             my $classname = shift;
73             my %args = @_;
74             my $self = $classname->SUPER::new(%args);
75             return $self;
76             }
77              
78             sub isScalar {
79             return 0;
80             }
81              
82              
83              
84             =head2 setAction()
85              
86             The action taken on the best offer by the seller (e.g.,
87             Accept, Decline, or Counter). Bulk Accept and Bulk
88             Counter are not supported. That is, you cannot accept or
89             counter multiple offers in a single call. You can,
90             however, decline multiple offers in a single call.
91              
92             RequiredInput: Yes
93             # Argument: 'ns:BestOfferActionCodeType'
94              
95             =cut
96              
97             sub setAction {
98             my $self = shift;
99             $self->{'Action'} = shift
100             }
101              
102             =head2 getAction()
103              
104             # Returns: 'ns:BestOfferActionCodeType'
105              
106             =cut
107              
108             sub getAction {
109             my $self = shift;
110             return $self->{'Action'};
111             }
112              
113              
114             =head2 setBestOfferID()
115              
116             The ID of a Best Offer for the item.
117              
118             RequiredInput: Yes
119             # Argument: reference to an array
120             of 'ns:BestOfferIDType'
121              
122             =cut
123              
124             sub setBestOfferID {
125             my $self = shift;
126             $self->{'BestOfferID'} =
127             $self->convertArray_To_RefToArrayIfNeeded(@_);
128             }
129              
130             =head2 getBestOfferID()
131              
132             # Returns: reference to an array
133             of 'ns:BestOfferIDType'
134              
135             =cut
136              
137             sub getBestOfferID {
138             my $self = shift;
139             return $self->_getDataTypeArray('BestOfferID');
140             }
141              
142              
143             =head2 setCounterOfferPrice()
144              
145             The counter offer price. When Action is set to Counter,
146             you must specify the amount for the counteroffer with
147             CounterOfferPrice. The value of CounterOfferPrice cannot
148             exceed the Buy It Now price for a single quantity item.
149             The value of CounterOfferPrice may exceed the Buy It Now
150             price if the value for CounterOfferQuantity is greater
151             than 1.
152              
153             RequiredInput: Conditionally
154             # Argument: 'ns:AmountType'
155              
156             =cut
157              
158             sub setCounterOfferPrice {
159             my $self = shift;
160             $self->{'CounterOfferPrice'} = shift
161             }
162              
163             =head2 getCounterOfferPrice()
164              
165             # Returns: 'ns:AmountType'
166              
167             =cut
168              
169             sub getCounterOfferPrice {
170             my $self = shift;
171             return $self->_getDataTypeInstance( 'CounterOfferPrice'
172             ,'eBay::API::XML::DataType::AmountType');
173             }
174              
175              
176             =head2 setCounterOfferQuantity()
177              
178             The counter offer quantity. When Action is set to
179             Counter you must specify the quantity of items for the
180             counteroffer with CounterOfferQuantity.
181              
182             RequiredInput: Conditionally
183             # Argument: 'xs:int'
184              
185             =cut
186              
187             sub setCounterOfferQuantity {
188             my $self = shift;
189             $self->{'CounterOfferQuantity'} = shift
190             }
191              
192             =head2 getCounterOfferQuantity()
193              
194             # Returns: 'xs:int'
195              
196             =cut
197              
198             sub getCounterOfferQuantity {
199             my $self = shift;
200             return $self->{'CounterOfferQuantity'};
201             }
202              
203              
204             =head2 setItemID()
205              
206             Specifies the item for which the BestOffer data is to be returned.
207              
208             MaxLength: 19 (Note: The eBay database specifies 38. Currently, Item IDs are usually 9 to 12 digits)
209              
210             RequiredInput: Yes
211             # Argument: 'ns:ItemIDType'
212              
213             =cut
214              
215             sub setItemID {
216             my $self = shift;
217             $self->{'ItemID'} = shift
218             }
219              
220             =head2 getItemID()
221              
222             # Returns: 'ns:ItemIDType'
223              
224             =cut
225              
226             sub getItemID {
227             my $self = shift;
228             return $self->_getDataTypeInstance( 'ItemID'
229             ,'eBay::API::XML::DataType::ItemIDType');
230             }
231              
232              
233             =head2 setSellerResponse()
234              
235             A comment from the seller to the buyer.
236              
237             MaxLength: 250
238              
239             RequiredInput: Conditionally
240             # Argument: 'xs:string'
241              
242             =cut
243              
244             sub setSellerResponse {
245             my $self = shift;
246             $self->{'SellerResponse'} = shift
247             }
248              
249             =head2 getSellerResponse()
250              
251             # Returns: 'xs:string'
252              
253             =cut
254              
255             sub getSellerResponse {
256             my $self = shift;
257             return $self->{'SellerResponse'};
258             }
259              
260              
261              
262              
263              
264             ## Attribute and Property lists
265             sub getPropertiesList {
266             my $self = shift;
267             return \@gaProperties;
268             }
269              
270             sub getAttributesList {
271             my $self = shift;
272             return \@gaAttributes;
273             }
274              
275              
276              
277             1;