File Coverage

lib/eBay/API/XML/Call/AddTransactionConfirmationItem/AddTransactionConfirmationItemRequestType.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::AddTransactionConfirmationItem::AddTransactionConfirmationItemRequestType;
4              
5 1     1   1361 use strict;
  1         3  
  1         29  
6 1     1   5 use warnings;
  1         2  
  1         32  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. AddTransactionConfirmationItemRequestType.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::AddTransactionConfirmationItem::AddTransactionConfirmationItemRequestType
21              
22             =head1 DESCRIPTION
23              
24             Ends the listing specified by ItemID (if listed for at least 24 hours) and creates
25             a new Transaction Confirmation Request (TCR) for an item, enabling the TCR
26             recipient to purchase the item. A TCR can be sent by a seller to any one of the
27             following: a bidder, a best offer buyer, a member who has asked the seller a
28             question, or any member with a postal code. This call can also be used to verify
29             whether a new TCR can be created. Applies to the US eBay Motors site (except Parts
30             and Accessories category).
31              
32              
33              
34             =head1 SYNOPSIS
35              
36             =cut
37              
38              
39             =head1 INHERITANCE
40              
41             eBay::API::XML::Call::AddTransactionConfirmationItem::AddTransactionConfirmationItemRequestType inherits from the L class
42              
43             =cut
44              
45 1     1   34 use eBay::API::XML::RequestDataType;
  0            
  0            
46             our @ISA = ("eBay::API::XML::RequestDataType");
47              
48             use eBay::API::XML::DataType::AmountType;
49             use eBay::API::XML::DataType::ItemIDType;
50             use eBay::API::XML::DataType::UserIDType;
51             use eBay::API::XML::DataType::Enum::RecipientRelationCodeType;
52             use eBay::API::XML::DataType::Enum::SecondChanceOfferDurationCodeType;
53              
54              
55             my @gaProperties = ( [ 'Comments', 'xs:string', '', '', '' ]
56             , [ 'ItemID', 'ns:ItemIDType', ''
57             ,'eBay::API::XML::DataType::ItemIDType', '1' ]
58             , [ 'ListingDuration', 'ns:SecondChanceOfferDurationCodeType', ''
59             ,'eBay::API::XML::DataType::Enum::SecondChanceOfferDurationCodeType', '' ]
60             , [ 'NegotiatedPrice', 'ns:AmountType', ''
61             ,'eBay::API::XML::DataType::AmountType', '1' ]
62             , [ 'RecipientPostalCode', 'xs:string', '', '', '' ]
63             , [ 'RecipientRelationType', 'ns:RecipientRelationCodeType', ''
64             ,'eBay::API::XML::DataType::Enum::RecipientRelationCodeType', '' ]
65             , [ 'RecipientUserID', 'ns:UserIDType', ''
66             ,'eBay::API::XML::DataType::UserIDType', '1' ]
67             , [ 'VerifyEligibilityOnly', 'xs:string', '', '', '' ]
68             );
69             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
70              
71             my @gaAttributes = (
72             );
73             push @gaAttributes, @{eBay::API::XML::RequestDataType::getAttributesList()};
74              
75             =head1 Subroutines:
76              
77             =cut
78              
79             sub new {
80             my $classname = shift;
81             my %args = @_;
82             my $self = $classname->SUPER::new(%args);
83             return $self;
84             }
85              
86             sub isScalar {
87             return 0;
88             }
89              
90              
91              
92             =head2 setComments()
93              
94             Comments the seller wants to send to the recipient (bidder, best offer
95             buyer, member with an ASQ question, or member with a postal code).
96              
97             RequiredInput: No
98             # Argument: 'xs:string'
99              
100             =cut
101              
102             sub setComments {
103             my $self = shift;
104             $self->{'Comments'} = shift
105             }
106              
107             =head2 getComments()
108              
109             # Returns: 'xs:string'
110              
111             =cut
112              
113             sub getComments {
114             my $self = shift;
115             return $self->{'Comments'};
116             }
117              
118              
119             =head2 setItemID()
120              
121             The ItemID of the item that the seller wants to end in order to create a
122             Transaction Confirmation Request (TCR).
123              
124             RequiredInput: Yes
125             # Argument: 'ns:ItemIDType'
126              
127             =cut
128              
129             sub setItemID {
130             my $self = shift;
131             $self->{'ItemID'} = shift
132             }
133              
134             =head2 getItemID()
135              
136             # Returns: 'ns:ItemIDType'
137              
138             =cut
139              
140             sub getItemID {
141             my $self = shift;
142             return $self->_getDataTypeInstance( 'ItemID'
143             ,'eBay::API::XML::DataType::ItemIDType');
144             }
145              
146              
147             =head2 setListingDuration()
148              
149             Specifies the length of time the item in the Transaction Confirmation
150             Request (TCR) will be available for purchase.
151              
152             RequiredInput: Yes
153             # Argument: 'ns:SecondChanceOfferDurationCodeType'
154              
155             =cut
156              
157             sub setListingDuration {
158             my $self = shift;
159             $self->{'ListingDuration'} = shift
160             }
161              
162             =head2 getListingDuration()
163              
164             # Returns: 'ns:SecondChanceOfferDurationCodeType'
165              
166             =cut
167              
168             sub getListingDuration {
169             my $self = shift;
170             return $self->{'ListingDuration'};
171             }
172              
173              
174             =head2 setNegotiatedPrice()
175              
176             The amount the offer recipient must pay to buy the item
177             specified in the Transaction Confirmation Request (TCR).
178             A negotiated amount between the buyer and the seller.
179              
180             RequiredInput: Yes
181             # Argument: 'ns:AmountType'
182              
183             =cut
184              
185             sub setNegotiatedPrice {
186             my $self = shift;
187             $self->{'NegotiatedPrice'} = shift
188             }
189              
190             =head2 getNegotiatedPrice()
191              
192             # Returns: 'ns:AmountType'
193              
194             =cut
195              
196             sub getNegotiatedPrice {
197             my $self = shift;
198             return $self->_getDataTypeInstance( 'NegotiatedPrice'
199             ,'eBay::API::XML::DataType::AmountType');
200             }
201              
202              
203             =head2 setRecipientPostalCode()
204              
205             Specifies the postal code of the user to whom the seller is offering the
206             Transaction Confirmation Request. Required only if the user does not meet
207             the other options listed in RecipientRelationCodeType. An error is
208             returned if RecipientUserID and RecipientPostalCode do not match for more
209             than 3 times for a seller per day.
210              
211             RequiredInput: No
212             # Argument: 'xs:string'
213              
214             =cut
215              
216             sub setRecipientPostalCode {
217             my $self = shift;
218             $self->{'RecipientPostalCode'} = shift
219             }
220              
221             =head2 getRecipientPostalCode()
222              
223             # Returns: 'xs:string'
224              
225             =cut
226              
227             sub getRecipientPostalCode {
228             my $self = shift;
229             return $self->{'RecipientPostalCode'};
230             }
231              
232              
233             =head2 setRecipientRelationType()
234              
235             Specifies the current relationship between the seller and the potential
236             buyer. A seller can make a Transaction Confirmation Request (TCR) for an
237             item to a potential buyer if the buyer meets one of several criteria. A
238             TCR is sent by a seller to one of the following: a bidder, a best offer
239             buyer, a member with an ASQ question, or any member with a postal code.
240             See the values and annotations in RecipientRelationCodeType.
241              
242             RequiredInput: Yes
243             # Argument: 'ns:RecipientRelationCodeType'
244              
245             =cut
246              
247             sub setRecipientRelationType {
248             my $self = shift;
249             $self->{'RecipientRelationType'} = shift
250             }
251              
252             =head2 getRecipientRelationType()
253              
254             # Returns: 'ns:RecipientRelationCodeType'
255              
256             =cut
257              
258             sub getRecipientRelationType {
259             my $self = shift;
260             return $self->{'RecipientRelationType'};
261             }
262              
263              
264             =head2 setRecipientUserID()
265              
266             Specifies the user to whom the seller is offering the Transaction
267             Confirmation Request.
268              
269             RequiredInput: Yes
270             # Argument: 'ns:UserIDType'
271              
272             =cut
273              
274             sub setRecipientUserID {
275             my $self = shift;
276             $self->{'RecipientUserID'} = shift
277             }
278              
279             =head2 getRecipientUserID()
280              
281             # Returns: 'ns:UserIDType'
282              
283             =cut
284              
285             sub getRecipientUserID {
286             my $self = shift;
287             return $self->_getDataTypeInstance( 'RecipientUserID'
288             ,'eBay::API::XML::DataType::UserIDType');
289             }
290              
291              
292             =head2 setVerifyEligibilityOnly()
293              
294             If true, specifies that the seller is verifying whether a new Transaction
295             Confirmation Request (TCR) can be created. Thus, if this value is passed
296             as true, then no Transaction Confirmation Request is actually made. If
297             VerifyEligibilityOnly is not passed, or is false, a Transaction
298             Confirmation Request is actually made.
299              
300             RequiredInput: No
301             # Argument: 'xs:string'
302              
303             =cut
304              
305             sub setVerifyEligibilityOnly {
306             my $self = shift;
307             $self->{'VerifyEligibilityOnly'} = shift
308             }
309              
310             =head2 getVerifyEligibilityOnly()
311              
312             # Returns: 'xs:string'
313              
314             =cut
315              
316             sub getVerifyEligibilityOnly {
317             my $self = shift;
318             return $self->{'VerifyEligibilityOnly'};
319             }
320              
321              
322              
323              
324              
325             ## Attribute and Property lists
326             sub getPropertiesList {
327             my $self = shift;
328             return \@gaProperties;
329             }
330              
331             sub getAttributesList {
332             my $self = shift;
333             return \@gaAttributes;
334             }
335              
336              
337              
338             1;