File Coverage

lib/eBay/API/XML/DataType/TransactionStatusType.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::DataType::TransactionStatusType;
4              
5 1     1   1437 use strict;
  1         3  
  1         29  
6 1     1   4 use warnings;
  1         1  
  1         25  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. TransactionStatusType.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::DataType::TransactionStatusType
21              
22             =head1 DESCRIPTION
23              
24             Contains the transaction status, e.g. the buyer's online
25             payment and whether the checkout process for the transaction is complete.
26              
27              
28              
29             =head1 SYNOPSIS
30              
31             =cut
32              
33              
34             =head1 INHERITANCE
35              
36             eBay::API::XML::DataType::TransactionStatusType inherits from the L class
37              
38             =cut
39              
40 1     1   34 use eBay::API::XML::BaseDataType;
  0            
  0            
41             our @ISA = ("eBay::API::XML::BaseDataType");
42              
43             use eBay::API::XML::DataType::Enum::BuyerPaymentMethodCodeType;
44             use eBay::API::XML::DataType::Enum::CheckoutStatusCodeType;
45             use eBay::API::XML::DataType::Enum::CompleteStatusCodeType;
46             use eBay::API::XML::DataType::Enum::PaymentHoldStatusCodeType;
47             use eBay::API::XML::DataType::Enum::PaymentStatusCodeType;
48              
49              
50             my @gaProperties = ( [ 'BuyerSelectedShipping', 'xs:boolean', '', '', '' ]
51             , [ 'CheckoutStatus', 'ns:CheckoutStatusCodeType', ''
52             ,'eBay::API::XML::DataType::Enum::CheckoutStatusCodeType', '' ]
53             , [ 'CompleteStatus', 'ns:CompleteStatusCodeType', ''
54             ,'eBay::API::XML::DataType::Enum::CompleteStatusCodeType', '' ]
55             , [ 'LastTimeModified', 'xs:dateTime', '', '', '' ]
56             , [ 'PaymentHoldStatus', 'ns:PaymentHoldStatusCodeType', ''
57             ,'eBay::API::XML::DataType::Enum::PaymentHoldStatusCodeType', '' ]
58             , [ 'PaymentMethodUsed', 'ns:BuyerPaymentMethodCodeType', ''
59             ,'eBay::API::XML::DataType::Enum::BuyerPaymentMethodCodeType', '' ]
60             , [ 'eBayPaymentStatus', 'ns:PaymentStatusCodeType', ''
61             ,'eBay::API::XML::DataType::Enum::PaymentStatusCodeType', '' ]
62             );
63             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
64              
65             my @gaAttributes = (
66             );
67             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
68              
69             =head1 Subroutines:
70              
71             =cut
72              
73             sub new {
74             my $classname = shift;
75             my %args = @_;
76             my $self = $classname->SUPER::new(%args);
77             return $self;
78             }
79              
80             sub isScalar {
81             return 0;
82             }
83              
84              
85              
86             =head2 setBuyerSelectedShipping()
87              
88             Indicates whether the buyer has selected shipping details
89             during checkout. False indicates that the shipping service was
90             selected by eBay for the buyer. For example, if the buyer has
91             not yet completed the Review Your Purchase page, he has not
92             picked a shipping service. If it is false, the application
93             should ignore ShippingServiceCost and ShippingServiceSelected
94             (items whose values are defaulted by eBay).
95              
96             # Argument: 'xs:boolean'
97              
98             =cut
99              
100             sub setBuyerSelectedShipping {
101             my $self = shift;
102             $self->{'BuyerSelectedShipping'} = shift
103             }
104              
105             =head2 isBuyerSelectedShipping()
106              
107             Calls: GetItemTransactions
108             GetSellerTransactions
109             Returned: Conditionally
110             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
111              
112             Calls: GetOrderTransactions
113             Returned: Conditionally
114             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
115              
116             # Returns: 'xs:boolean'
117              
118             =cut
119              
120             sub isBuyerSelectedShipping {
121             my $self = shift;
122             return $self->{'BuyerSelectedShipping'};
123             }
124              
125              
126             =head2 setCheckoutStatus()
127              
128             Indicates the current status of the checkout process for the transaction.
129              
130             # Argument: 'ns:CheckoutStatusCodeType'
131              
132             =cut
133              
134             sub setCheckoutStatus {
135             my $self = shift;
136             $self->{'CheckoutStatus'} = shift
137             }
138              
139             =head2 getCheckoutStatus()
140              
141             Calls: GetItemTransactions
142             GetSellerTransactions
143             Returned: Conditionally
144             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
145              
146             Calls: GetOrderTransactions
147             Returned: Conditionally
148             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
149              
150             # Returns: 'ns:CheckoutStatusCodeType'
151              
152             =cut
153              
154             sub getCheckoutStatus {
155             my $self = shift;
156             return $self->{'CheckoutStatus'};
157             }
158              
159              
160             =head2 setCompleteStatus()
161              
162             Indicates whether the transaction process is complete or incomplete.
163              
164             # Argument: 'ns:CompleteStatusCodeType'
165              
166             =cut
167              
168             sub setCompleteStatus {
169             my $self = shift;
170             $self->{'CompleteStatus'} = shift
171             }
172              
173             =head2 getCompleteStatus()
174              
175             Calls: GetItemTransactions
176             GetSellerTransactions
177             Returned: Conditionally
178             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
179              
180             Calls: GetOrderTransactions
181             Returned: Conditionally
182             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
183              
184             # Returns: 'ns:CompleteStatusCodeType'
185              
186             =cut
187              
188             sub getCompleteStatus {
189             my $self = shift;
190             return $self->{'CompleteStatus'};
191             }
192              
193              
194             =head2 setLastTimeModified()
195              
196             Indicates date and time a transaction's status or incomplete
197             state was last updated (in GMT).
198              
199             # Argument: 'xs:dateTime'
200              
201             =cut
202              
203             sub setLastTimeModified {
204             my $self = shift;
205             $self->{'LastTimeModified'} = shift
206             }
207              
208             =head2 getLastTimeModified()
209              
210             Calls: GetItemTransactions
211             GetSellerTransactions
212             Returned: Conditionally
213             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
214              
215             Calls: GetOrderTransactions
216             Returned: Conditionally
217             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
218              
219             # Returns: 'xs:dateTime'
220              
221             =cut
222              
223             sub getLastTimeModified {
224             my $self = shift;
225             return $self->{'LastTimeModified'};
226             }
227              
228              
229             =head2 setPaymentHoldStatus()
230              
231             Contains the current status of a hold on a PayPal payment.
232             The payment hold that is referred to as a "payment review" hold
233             results from a possible issue with a buyer.
234             The payment hold referred to as
235             a "merchant hold" results from a possible issue with a seller.
236             For more information, please see the link below.
237             Additionally, in the cases of the GetMyeBaySelling and GetMyeBayBuying calls,
238             the PaymentHoldStatus value can affect the value returned in
239             in SellerPaidStatus and BuyerPaidStatus; see the PaymentHoldStatus applicable values.
240              
241             SeeLink: URL: http://developer.ebay.com/DevZone/XML/docs/WebHelp/index.htm?context=eBay_XML_API&topic=HoldsOnPayPalPayments
242             Title: Holds on PayPal Payments
243              
244             # Argument: 'ns:PaymentHoldStatusCodeType'
245              
246             =cut
247              
248             sub setPaymentHoldStatus {
249             my $self = shift;
250             $self->{'PaymentHoldStatus'} = shift
251             }
252              
253             =head2 getPaymentHoldStatus()
254              
255             Calls: GetItemTransactions
256             GetSellerTransactions
257             Returned: Conditionally
258             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
259              
260             Calls: GetOrderTransactions
261             Returned: Conditionally
262             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
263              
264             Calls: GetOrders
265             Returned: Conditionally
266             Details: DetailLevel: none
267              
268             Calls: GetMyeBayBuying
269             Returned: Conditionally
270             Details: DetailLevel: none, ReturnSummary, ReturnAll
271             Context: WonList
272             DeletedFromWonList
273              
274             Calls: GetMyeBaySelling
275             Returned: Conditionally
276             Details: DetailLevel: none, ReturnSummary, ReturnAll
277             Context: SoldList
278             DeletedFromSoldList
279              
280             # Returns: 'ns:PaymentHoldStatusCodeType'
281              
282             =cut
283              
284             sub getPaymentHoldStatus {
285             my $self = shift;
286             return $self->{'PaymentHoldStatus'};
287             }
288              
289              
290             =head2 setPaymentMethodUsed()
291              
292             Payment method the buyer selected for paying the seller
293             for the transaction. If checkout is not yet complete,
294             PaymentMethodUsed is set to whatever the buyer selected as his
295             or her preference on the Review Your Purchase page.
296              
297             # Argument: 'ns:BuyerPaymentMethodCodeType'
298              
299             =cut
300              
301             sub setPaymentMethodUsed {
302             my $self = shift;
303             $self->{'PaymentMethodUsed'} = shift
304             }
305              
306             =head2 getPaymentMethodUsed()
307              
308             Calls: GetOrders
309             Returned: Always
310             Details: DetailLevel: none
311              
312             Calls: GetItemTransactions
313             GetSellerTransactions
314             Returned: Conditionally
315             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
316              
317             Calls: GetOrderTransactions
318             Returned: Conditionally
319             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
320              
321             # Returns: 'ns:BuyerPaymentMethodCodeType'
322              
323             =cut
324              
325             sub getPaymentMethodUsed {
326             my $self = shift;
327             return $self->{'PaymentMethodUsed'};
328             }
329              
330              
331             =head2 setEBayPaymentStatus()
332              
333             Indicates the success or failure of the buyer's online payment
334             for a transaction. Only applicable if the buyer chose PayPal as
335             the payment method for the transaction. If the payment failed,
336             the value returned indicates the reason for the failure. Output
337             only.
338              
339             # Argument: 'ns:PaymentStatusCodeType'
340              
341             =cut
342              
343             sub setEBayPaymentStatus {
344             my $self = shift;
345             $self->{'eBayPaymentStatus'} = shift
346             }
347              
348             =head2 getEBayPaymentStatus()
349              
350             Calls: GetItemTransactions
351             GetSellerTransactions
352             Returned: Conditionally
353             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
354              
355             Calls: GetOrderTransactions
356             Returned: Conditionally
357             Details: DetailLevel: none, ItemReturnDescription, ReturnAll
358              
359             # Returns: 'ns:PaymentStatusCodeType'
360              
361             =cut
362              
363             sub getEBayPaymentStatus {
364             my $self = shift;
365             return $self->{'eBayPaymentStatus'};
366             }
367              
368              
369              
370              
371              
372             ## Attribute and Property lists
373             sub getPropertiesList {
374             my $self = shift;
375             return \@gaProperties;
376             }
377              
378             sub getAttributesList {
379             my $self = shift;
380             return \@gaAttributes;
381             }
382              
383              
384              
385             1;