line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#!/usr/bin/perl |
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
package eBay::API::XML::Call::SetShippingDiscountProfiles::SetShippingDiscountProfilesRequestType; |
4
|
|
|
|
|
|
|
|
5
|
1
|
|
|
1
|
|
1631
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
34
|
|
6
|
1
|
|
|
1
|
|
6
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
28
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
########################################################################## |
9
|
|
|
|
|
|
|
# |
10
|
|
|
|
|
|
|
# Module: ............... eBay/API/XML |
11
|
|
|
|
|
|
|
# File: ................. SetShippingDiscountProfilesRequestType.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::SetShippingDiscountProfiles::SetShippingDiscountProfilesRequestType |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
=head1 DESCRIPTION |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
Enables a seller to define shipping cost discount profiles and a few additional |
25
|
|
|
|
|
|
|
parameters related to combined payment, such as shipping insurance and packaging handling costs. |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
=head1 SYNOPSIS |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
=cut |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
=head1 INHERITANCE |
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
eBay::API::XML::Call::SetShippingDiscountProfiles::SetShippingDiscountProfilesRequestType inherits from the L class |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
=cut |
39
|
|
|
|
|
|
|
|
40
|
1
|
|
|
1
|
|
36
|
use eBay::API::XML::RequestDataType; |
|
0
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
41
|
|
|
|
|
|
|
our @ISA = ("eBay::API::XML::RequestDataType"); |
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
use eBay::API::XML::DataType::CalculatedHandlingDiscountType; |
44
|
|
|
|
|
|
|
use eBay::API::XML::DataType::CalculatedShippingDiscountType; |
45
|
|
|
|
|
|
|
use eBay::API::XML::DataType::FlatShippingDiscountType; |
46
|
|
|
|
|
|
|
use eBay::API::XML::DataType::PromotionalShippingDiscountDetailsType; |
47
|
|
|
|
|
|
|
use eBay::API::XML::DataType::ShippingInsuranceType; |
48
|
|
|
|
|
|
|
use eBay::API::XML::DataType::Enum::CombinedPaymentPeriodCodeType; |
49
|
|
|
|
|
|
|
use eBay::API::XML::DataType::Enum::CurrencyCodeType; |
50
|
|
|
|
|
|
|
use eBay::API::XML::DataType::Enum::ModifyActionCodeType; |
51
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
|
53
|
|
|
|
|
|
|
my @gaProperties = ( [ 'CalculatedHandlingDiscount', 'ns:CalculatedHandlingDiscountType', '' |
54
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::CalculatedHandlingDiscountType', '1' ] |
55
|
|
|
|
|
|
|
, [ 'CalculatedShippingDiscount', 'ns:CalculatedShippingDiscountType', '' |
56
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::CalculatedShippingDiscountType', '1' ] |
57
|
|
|
|
|
|
|
, [ 'CombinedDuration', 'ns:CombinedPaymentPeriodCodeType', '' |
58
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::Enum::CombinedPaymentPeriodCodeType', '' ] |
59
|
|
|
|
|
|
|
, [ 'CurrencyID', 'ns:CurrencyCodeType', '' |
60
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::Enum::CurrencyCodeType', '' ] |
61
|
|
|
|
|
|
|
, [ 'FlatShippingDiscount', 'ns:FlatShippingDiscountType', '' |
62
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::FlatShippingDiscountType', '1' ] |
63
|
|
|
|
|
|
|
, [ 'InternationalShippingInsurance', 'ns:ShippingInsuranceType', '' |
64
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::ShippingInsuranceType', '1' ] |
65
|
|
|
|
|
|
|
, [ 'ModifyActionCode', 'ns:ModifyActionCodeType', '' |
66
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::Enum::ModifyActionCodeType', '' ] |
67
|
|
|
|
|
|
|
, [ 'PromotionalShippingDiscountDetails', 'ns:PromotionalShippingDiscountDetailsType', '' |
68
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::PromotionalShippingDiscountDetailsType', '1' ] |
69
|
|
|
|
|
|
|
, [ 'ShippingInsurance', 'ns:ShippingInsuranceType', '' |
70
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::ShippingInsuranceType', '1' ] |
71
|
|
|
|
|
|
|
); |
72
|
|
|
|
|
|
|
push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()}; |
73
|
|
|
|
|
|
|
|
74
|
|
|
|
|
|
|
my @gaAttributes = ( |
75
|
|
|
|
|
|
|
); |
76
|
|
|
|
|
|
|
push @gaAttributes, @{eBay::API::XML::RequestDataType::getAttributesList()}; |
77
|
|
|
|
|
|
|
|
78
|
|
|
|
|
|
|
=head1 Subroutines: |
79
|
|
|
|
|
|
|
|
80
|
|
|
|
|
|
|
=cut |
81
|
|
|
|
|
|
|
|
82
|
|
|
|
|
|
|
sub new { |
83
|
|
|
|
|
|
|
my $classname = shift; |
84
|
|
|
|
|
|
|
my %args = @_; |
85
|
|
|
|
|
|
|
my $self = $classname->SUPER::new(%args); |
86
|
|
|
|
|
|
|
return $self; |
87
|
|
|
|
|
|
|
} |
88
|
|
|
|
|
|
|
|
89
|
|
|
|
|
|
|
sub isScalar { |
90
|
|
|
|
|
|
|
return 0; |
91
|
|
|
|
|
|
|
} |
92
|
|
|
|
|
|
|
|
93
|
|
|
|
|
|
|
|
94
|
|
|
|
|
|
|
|
95
|
|
|
|
|
|
|
=head2 setCalculatedHandlingDiscount() |
96
|
|
|
|
|
|
|
|
97
|
|
|
|
|
|
|
The data for the specific packaging/handling cost details for combined payment. |
98
|
|
|
|
|
|
|
|
99
|
|
|
|
|
|
|
RequiredInput: No |
100
|
|
|
|
|
|
|
# Argument: 'ns:CalculatedHandlingDiscountType' |
101
|
|
|
|
|
|
|
|
102
|
|
|
|
|
|
|
=cut |
103
|
|
|
|
|
|
|
|
104
|
|
|
|
|
|
|
sub setCalculatedHandlingDiscount { |
105
|
|
|
|
|
|
|
my $self = shift; |
106
|
|
|
|
|
|
|
$self->{'CalculatedHandlingDiscount'} = shift |
107
|
|
|
|
|
|
|
} |
108
|
|
|
|
|
|
|
|
109
|
|
|
|
|
|
|
=head2 getCalculatedHandlingDiscount() |
110
|
|
|
|
|
|
|
|
111
|
|
|
|
|
|
|
# Returns: 'ns:CalculatedHandlingDiscountType' |
112
|
|
|
|
|
|
|
|
113
|
|
|
|
|
|
|
=cut |
114
|
|
|
|
|
|
|
|
115
|
|
|
|
|
|
|
sub getCalculatedHandlingDiscount { |
116
|
|
|
|
|
|
|
my $self = shift; |
117
|
|
|
|
|
|
|
return $self->_getDataTypeInstance( 'CalculatedHandlingDiscount' |
118
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::CalculatedHandlingDiscountType'); |
119
|
|
|
|
|
|
|
} |
120
|
|
|
|
|
|
|
|
121
|
|
|
|
|
|
|
|
122
|
|
|
|
|
|
|
=head2 setCalculatedShippingDiscount() |
123
|
|
|
|
|
|
|
|
124
|
|
|
|
|
|
|
Details of a shipping cost discount profile for calculated shipping. |
125
|
|
|
|
|
|
|
If this is provided, FlatShippingDiscount and PromotionalShippingDiscountDetails |
126
|
|
|
|
|
|
|
should be omitted. |
127
|
|
|
|
|
|
|
|
128
|
|
|
|
|
|
|
RequiredInput: No |
129
|
|
|
|
|
|
|
# Argument: 'ns:CalculatedShippingDiscountType' |
130
|
|
|
|
|
|
|
|
131
|
|
|
|
|
|
|
=cut |
132
|
|
|
|
|
|
|
|
133
|
|
|
|
|
|
|
sub setCalculatedShippingDiscount { |
134
|
|
|
|
|
|
|
my $self = shift; |
135
|
|
|
|
|
|
|
$self->{'CalculatedShippingDiscount'} = shift |
136
|
|
|
|
|
|
|
} |
137
|
|
|
|
|
|
|
|
138
|
|
|
|
|
|
|
=head2 getCalculatedShippingDiscount() |
139
|
|
|
|
|
|
|
|
140
|
|
|
|
|
|
|
# Returns: 'ns:CalculatedShippingDiscountType' |
141
|
|
|
|
|
|
|
|
142
|
|
|
|
|
|
|
=cut |
143
|
|
|
|
|
|
|
|
144
|
|
|
|
|
|
|
sub getCalculatedShippingDiscount { |
145
|
|
|
|
|
|
|
my $self = shift; |
146
|
|
|
|
|
|
|
return $self->_getDataTypeInstance( 'CalculatedShippingDiscount' |
147
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::CalculatedShippingDiscountType'); |
148
|
|
|
|
|
|
|
} |
149
|
|
|
|
|
|
|
|
150
|
|
|
|
|
|
|
|
151
|
|
|
|
|
|
|
=head2 setCombinedDuration() |
152
|
|
|
|
|
|
|
|
153
|
|
|
|
|
|
|
Only those items purchased within CombinedDuration days of each other can |
154
|
|
|
|
|
|
|
be combined into an order and benefit from any shipping discounts. |
155
|
|
|
|
|
|
|
|
156
|
|
|
|
|
|
|
RequiredInput: Yes |
157
|
|
|
|
|
|
|
# Argument: 'ns:CombinedPaymentPeriodCodeType' |
158
|
|
|
|
|
|
|
|
159
|
|
|
|
|
|
|
=cut |
160
|
|
|
|
|
|
|
|
161
|
|
|
|
|
|
|
sub setCombinedDuration { |
162
|
|
|
|
|
|
|
my $self = shift; |
163
|
|
|
|
|
|
|
$self->{'CombinedDuration'} = shift |
164
|
|
|
|
|
|
|
} |
165
|
|
|
|
|
|
|
|
166
|
|
|
|
|
|
|
=head2 getCombinedDuration() |
167
|
|
|
|
|
|
|
|
168
|
|
|
|
|
|
|
# Returns: 'ns:CombinedPaymentPeriodCodeType' |
169
|
|
|
|
|
|
|
|
170
|
|
|
|
|
|
|
=cut |
171
|
|
|
|
|
|
|
|
172
|
|
|
|
|
|
|
sub getCombinedDuration { |
173
|
|
|
|
|
|
|
my $self = shift; |
174
|
|
|
|
|
|
|
return $self->{'CombinedDuration'}; |
175
|
|
|
|
|
|
|
} |
176
|
|
|
|
|
|
|
|
177
|
|
|
|
|
|
|
|
178
|
|
|
|
|
|
|
=head2 setCurrencyID() |
179
|
|
|
|
|
|
|
|
180
|
|
|
|
|
|
|
The ID of the currency to be used for shipping cost discounts and |
181
|
|
|
|
|
|
|
insurance for combined payment. A discount profile can only be |
182
|
|
|
|
|
|
|
associated with a listing if the currency ID of the profile matches the |
183
|
|
|
|
|
|
|
currency ID of the listing. |
184
|
|
|
|
|
|
|
Required if the user creates flat rate shipping discount profiles, a promotional |
185
|
|
|
|
|
|
|
discount, a packaging/handling cost profile based on a variable |
186
|
|
|
|
|
|
|
discount rule, or if the user defines shipping insurance range/fee pairs. |
187
|
|
|
|
|
|
|
|
188
|
|
|
|
|
|
|
Note: There is a currencyID attribute on many elements of SetShippingDiscountProfiles. |
189
|
|
|
|
|
|
|
To avoid an error, be sure to use the same value of CurrencyCodeType in each |
190
|
|
|
|
|
|
|
occurrence within the same request. |
191
|
|
|
|
|
|
|
|
192
|
|
|
|
|
|
|
RequiredInput: Conditionally |
193
|
|
|
|
|
|
|
# Argument: 'ns:CurrencyCodeType' |
194
|
|
|
|
|
|
|
|
195
|
|
|
|
|
|
|
=cut |
196
|
|
|
|
|
|
|
|
197
|
|
|
|
|
|
|
sub setCurrencyID { |
198
|
|
|
|
|
|
|
my $self = shift; |
199
|
|
|
|
|
|
|
$self->{'CurrencyID'} = shift |
200
|
|
|
|
|
|
|
} |
201
|
|
|
|
|
|
|
|
202
|
|
|
|
|
|
|
=head2 getCurrencyID() |
203
|
|
|
|
|
|
|
|
204
|
|
|
|
|
|
|
# Returns: 'ns:CurrencyCodeType' |
205
|
|
|
|
|
|
|
|
206
|
|
|
|
|
|
|
=cut |
207
|
|
|
|
|
|
|
|
208
|
|
|
|
|
|
|
sub getCurrencyID { |
209
|
|
|
|
|
|
|
my $self = shift; |
210
|
|
|
|
|
|
|
return $self->{'CurrencyID'}; |
211
|
|
|
|
|
|
|
} |
212
|
|
|
|
|
|
|
|
213
|
|
|
|
|
|
|
|
214
|
|
|
|
|
|
|
=head2 setFlatShippingDiscount() |
215
|
|
|
|
|
|
|
|
216
|
|
|
|
|
|
|
Details of a shipping cost discount profile for flat rate shipping. |
217
|
|
|
|
|
|
|
If this is provided, CalculatedShippingDiscount and PromotionalShippingDiscountDetails |
218
|
|
|
|
|
|
|
should be omitted. |
219
|
|
|
|
|
|
|
|
220
|
|
|
|
|
|
|
RequiredInput: No |
221
|
|
|
|
|
|
|
# Argument: 'ns:FlatShippingDiscountType' |
222
|
|
|
|
|
|
|
|
223
|
|
|
|
|
|
|
=cut |
224
|
|
|
|
|
|
|
|
225
|
|
|
|
|
|
|
sub setFlatShippingDiscount { |
226
|
|
|
|
|
|
|
my $self = shift; |
227
|
|
|
|
|
|
|
$self->{'FlatShippingDiscount'} = shift |
228
|
|
|
|
|
|
|
} |
229
|
|
|
|
|
|
|
|
230
|
|
|
|
|
|
|
=head2 getFlatShippingDiscount() |
231
|
|
|
|
|
|
|
|
232
|
|
|
|
|
|
|
# Returns: 'ns:FlatShippingDiscountType' |
233
|
|
|
|
|
|
|
|
234
|
|
|
|
|
|
|
=cut |
235
|
|
|
|
|
|
|
|
236
|
|
|
|
|
|
|
sub getFlatShippingDiscount { |
237
|
|
|
|
|
|
|
my $self = shift; |
238
|
|
|
|
|
|
|
return $self->_getDataTypeInstance( 'FlatShippingDiscount' |
239
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::FlatShippingDiscountType'); |
240
|
|
|
|
|
|
|
} |
241
|
|
|
|
|
|
|
|
242
|
|
|
|
|
|
|
|
243
|
|
|
|
|
|
|
=head2 setInternationalShippingInsurance() |
244
|
|
|
|
|
|
|
|
245
|
|
|
|
|
|
|
Information establishing what fee to apply for international shipping |
246
|
|
|
|
|
|
|
insurance for combined payment depending on which range the order item- |
247
|
|
|
|
|
|
|
total price falls into. |
248
|
|
|
|
|
|
|
|
249
|
|
|
|
|
|
|
RequiredInput: No |
250
|
|
|
|
|
|
|
# Argument: 'ns:ShippingInsuranceType' |
251
|
|
|
|
|
|
|
|
252
|
|
|
|
|
|
|
=cut |
253
|
|
|
|
|
|
|
|
254
|
|
|
|
|
|
|
sub setInternationalShippingInsurance { |
255
|
|
|
|
|
|
|
my $self = shift; |
256
|
|
|
|
|
|
|
$self->{'InternationalShippingInsurance'} = shift |
257
|
|
|
|
|
|
|
} |
258
|
|
|
|
|
|
|
|
259
|
|
|
|
|
|
|
=head2 getInternationalShippingInsurance() |
260
|
|
|
|
|
|
|
|
261
|
|
|
|
|
|
|
# Returns: 'ns:ShippingInsuranceType' |
262
|
|
|
|
|
|
|
|
263
|
|
|
|
|
|
|
=cut |
264
|
|
|
|
|
|
|
|
265
|
|
|
|
|
|
|
sub getInternationalShippingInsurance { |
266
|
|
|
|
|
|
|
my $self = shift; |
267
|
|
|
|
|
|
|
return $self->_getDataTypeInstance( 'InternationalShippingInsurance' |
268
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::ShippingInsuranceType'); |
269
|
|
|
|
|
|
|
} |
270
|
|
|
|
|
|
|
|
271
|
|
|
|
|
|
|
|
272
|
|
|
|
|
|
|
=head2 setModifyActionCode() |
273
|
|
|
|
|
|
|
|
274
|
|
|
|
|
|
|
Indicates what action to take on the specified flat shipping discount, |
275
|
|
|
|
|
|
|
calculated shipping discount or promotional discount. |
276
|
|
|
|
|
|
|
If the action is Delete and if a flat rate or calculated shipping discount |
277
|
|
|
|
|
|
|
profile is specified, the discount profile identified by |
278
|
|
|
|
|
|
|
DiscountProfile.DiscountProfileID is deleted |
279
|
|
|
|
|
|
|
(see DiscountProfile.MappedDiscountProfileID for related details). |
280
|
|
|
|
|
|
|
|
281
|
|
|
|
|
|
|
RequiredInput: Yes |
282
|
|
|
|
|
|
|
# Argument: 'ns:ModifyActionCodeType' |
283
|
|
|
|
|
|
|
|
284
|
|
|
|
|
|
|
=cut |
285
|
|
|
|
|
|
|
|
286
|
|
|
|
|
|
|
sub setModifyActionCode { |
287
|
|
|
|
|
|
|
my $self = shift; |
288
|
|
|
|
|
|
|
$self->{'ModifyActionCode'} = shift |
289
|
|
|
|
|
|
|
} |
290
|
|
|
|
|
|
|
|
291
|
|
|
|
|
|
|
=head2 getModifyActionCode() |
292
|
|
|
|
|
|
|
|
293
|
|
|
|
|
|
|
# Returns: 'ns:ModifyActionCodeType' |
294
|
|
|
|
|
|
|
|
295
|
|
|
|
|
|
|
=cut |
296
|
|
|
|
|
|
|
|
297
|
|
|
|
|
|
|
sub getModifyActionCode { |
298
|
|
|
|
|
|
|
my $self = shift; |
299
|
|
|
|
|
|
|
return $self->{'ModifyActionCode'}; |
300
|
|
|
|
|
|
|
} |
301
|
|
|
|
|
|
|
|
302
|
|
|
|
|
|
|
|
303
|
|
|
|
|
|
|
=head2 setPromotionalShippingDiscountDetails() |
304
|
|
|
|
|
|
|
|
305
|
|
|
|
|
|
|
The data for the promotional shipping discount. |
306
|
|
|
|
|
|
|
If this is provided, FlatShippingDiscount and CalculatedShippingDiscount |
307
|
|
|
|
|
|
|
should be omitted. |
308
|
|
|
|
|
|
|
|
309
|
|
|
|
|
|
|
RequiredInput: No |
310
|
|
|
|
|
|
|
# Argument: 'ns:PromotionalShippingDiscountDetailsType' |
311
|
|
|
|
|
|
|
|
312
|
|
|
|
|
|
|
=cut |
313
|
|
|
|
|
|
|
|
314
|
|
|
|
|
|
|
sub setPromotionalShippingDiscountDetails { |
315
|
|
|
|
|
|
|
my $self = shift; |
316
|
|
|
|
|
|
|
$self->{'PromotionalShippingDiscountDetails'} = shift |
317
|
|
|
|
|
|
|
} |
318
|
|
|
|
|
|
|
|
319
|
|
|
|
|
|
|
=head2 getPromotionalShippingDiscountDetails() |
320
|
|
|
|
|
|
|
|
321
|
|
|
|
|
|
|
# Returns: 'ns:PromotionalShippingDiscountDetailsType' |
322
|
|
|
|
|
|
|
|
323
|
|
|
|
|
|
|
=cut |
324
|
|
|
|
|
|
|
|
325
|
|
|
|
|
|
|
sub getPromotionalShippingDiscountDetails { |
326
|
|
|
|
|
|
|
my $self = shift; |
327
|
|
|
|
|
|
|
return $self->_getDataTypeInstance( 'PromotionalShippingDiscountDetails' |
328
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::PromotionalShippingDiscountDetailsType'); |
329
|
|
|
|
|
|
|
} |
330
|
|
|
|
|
|
|
|
331
|
|
|
|
|
|
|
|
332
|
|
|
|
|
|
|
=head2 setShippingInsurance() |
333
|
|
|
|
|
|
|
|
334
|
|
|
|
|
|
|
Information establishing what fee to apply for domestic shipping insurance |
335
|
|
|
|
|
|
|
for combined payment depending on which range the order item-total price |
336
|
|
|
|
|
|
|
falls into. |
337
|
|
|
|
|
|
|
|
338
|
|
|
|
|
|
|
RequiredInput: No |
339
|
|
|
|
|
|
|
# Argument: 'ns:ShippingInsuranceType' |
340
|
|
|
|
|
|
|
|
341
|
|
|
|
|
|
|
=cut |
342
|
|
|
|
|
|
|
|
343
|
|
|
|
|
|
|
sub setShippingInsurance { |
344
|
|
|
|
|
|
|
my $self = shift; |
345
|
|
|
|
|
|
|
$self->{'ShippingInsurance'} = shift |
346
|
|
|
|
|
|
|
} |
347
|
|
|
|
|
|
|
|
348
|
|
|
|
|
|
|
=head2 getShippingInsurance() |
349
|
|
|
|
|
|
|
|
350
|
|
|
|
|
|
|
# Returns: 'ns:ShippingInsuranceType' |
351
|
|
|
|
|
|
|
|
352
|
|
|
|
|
|
|
=cut |
353
|
|
|
|
|
|
|
|
354
|
|
|
|
|
|
|
sub getShippingInsurance { |
355
|
|
|
|
|
|
|
my $self = shift; |
356
|
|
|
|
|
|
|
return $self->_getDataTypeInstance( 'ShippingInsurance' |
357
|
|
|
|
|
|
|
,'eBay::API::XML::DataType::ShippingInsuranceType'); |
358
|
|
|
|
|
|
|
} |
359
|
|
|
|
|
|
|
|
360
|
|
|
|
|
|
|
|
361
|
|
|
|
|
|
|
|
362
|
|
|
|
|
|
|
|
363
|
|
|
|
|
|
|
|
364
|
|
|
|
|
|
|
## Attribute and Property lists |
365
|
|
|
|
|
|
|
sub getPropertiesList { |
366
|
|
|
|
|
|
|
my $self = shift; |
367
|
|
|
|
|
|
|
return \@gaProperties; |
368
|
|
|
|
|
|
|
} |
369
|
|
|
|
|
|
|
|
370
|
|
|
|
|
|
|
sub getAttributesList { |
371
|
|
|
|
|
|
|
my $self = shift; |
372
|
|
|
|
|
|
|
return \@gaAttributes; |
373
|
|
|
|
|
|
|
} |
374
|
|
|
|
|
|
|
|
375
|
|
|
|
|
|
|
|
376
|
|
|
|
|
|
|
|
377
|
|
|
|
|
|
|
1; |