File Coverage

lib/eBay/API/XML/DataType/PaymentDetailsType.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::PaymentDetailsType;
4              
5 1     1   1274 use strict;
  1         3  
  1         35  
6 1     1   6 use warnings;
  1         2  
  1         36  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. PaymentDetailsType.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::PaymentDetailsType
21              
22             =head1 DESCRIPTION
23              
24             Data associated with payment (payment durations).
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::PaymentDetailsType inherits from the L class
36              
37             =cut
38              
39 1     1   46 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42              
43              
44             my @gaProperties = ( [ 'DaysToFullPayment', 'xs:int', '', '', '' ]
45             , [ 'HoursToDeposit', 'xs:int', '', '', '' ]
46             );
47             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
48              
49             my @gaAttributes = (
50             );
51             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
52              
53             =head1 Subroutines:
54              
55             =cut
56              
57             sub new {
58             my $classname = shift;
59             my %args = @_;
60             my $self = $classname->SUPER::new(%args);
61             return $self;
62             }
63              
64             sub isScalar {
65             return 0;
66             }
67              
68              
69              
70             =head2 setDaysToFullPayment()
71              
72             Applies to vehicle categories on the US and Canada eBay Motors sites
73             (not Parts and Accessories categories).
74             Number of days after a listing closes that the buyer can take to pay
75             the full cost of the vehicle. The choices are 3, 7, 10, and 14,
76             and the default is 7. PayPal and credit cards cannot be used
77             to pay the full cost of a vehicle, so the listing must
78             offer MOCC (cashier's check), PersonalCheck, LoanCheck, CashInPerson,
79             and/or PaymentSeeDescription as payment methods.
80              
81             Default: 7
82              
83             Calls: AddItem
84             GetItemRecommendations
85             RelistItem
86             ReviseItem
87             VerifyAddItem
88             RequiredInput: No
89              
90             # Argument: 'xs:int'
91              
92             =cut
93              
94             sub setDaysToFullPayment {
95             my $self = shift;
96             $self->{'DaysToFullPayment'} = shift
97             }
98              
99             =head2 getDaysToFullPayment()
100              
101             Calls: GetBidderList
102             Returned: Conditionally
103              
104             Calls: GetItem
105             Returned: Conditionally
106             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
107              
108             # Returns: 'xs:int'
109              
110             =cut
111              
112             sub getDaysToFullPayment {
113             my $self = shift;
114             return $self->{'DaysToFullPayment'};
115             }
116              
117              
118             =head2 setHoursToDeposit()
119              
120             Applies to US eBay Motors site (except Parts and Accessories category).
121             Number of hours after a listing closes that the buyer can put down a deposit
122             on an item (if the seller specified a deposit).
123             Only takes effect if listing also includes the
124             Deposit Amount and Deposit Type attributes (see AttributeSetArray).
125             The choices are 24, 48, and 72, and the default is 48.
126             Deposits can only be paid using PayPal, so the listing must offer
127             PayPal as a payment method (in addition to the payment methods
128             offered for the full payment).
129              
130             Default: 48
131              
132             Calls: AddItem
133             GetItemRecommendations
134             RelistItem
135             ReviseItem
136             VerifyAddItem
137             RequiredInput: No
138              
139             # Argument: 'xs:int'
140              
141             =cut
142              
143             sub setHoursToDeposit {
144             my $self = shift;
145             $self->{'HoursToDeposit'} = shift
146             }
147              
148             =head2 getHoursToDeposit()
149              
150             Calls: GetBidderList
151             Returned: Conditionally
152              
153             Calls: GetItem
154             Returned: Conditionally
155             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
156              
157             # Returns: 'xs:int'
158              
159             =cut
160              
161             sub getHoursToDeposit {
162             my $self = shift;
163             return $self->{'HoursToDeposit'};
164             }
165              
166              
167              
168              
169              
170             ## Attribute and Property lists
171             sub getPropertiesList {
172             my $self = shift;
173             return \@gaProperties;
174             }
175              
176             sub getAttributesList {
177             my $self = shift;
178             return \@gaAttributes;
179             }
180              
181              
182              
183             1;