File Coverage

lib/eBay/API/XML/DataType/BuyerRequirementDetailsType.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::BuyerRequirementDetailsType;
4              
5 1     1   1036 use strict;
  1         3  
  1         24  
6 1     1   4 use warnings;
  1         1  
  1         24  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. BuyerRequirementDetailsType.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::BuyerRequirementDetailsType
21              
22             =head1 DESCRIPTION
23              
24             New Container for all buyer requirements in listing calls.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::BuyerRequirementDetailsType inherits from the L class
36              
37             =cut
38              
39 1     1   33 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::MaximumBuyerPolicyViolationsType;
43             use eBay::API::XML::DataType::MaximumItemRequirementsType;
44             use eBay::API::XML::DataType::MaximumUnpaidItemStrikesInfoType;
45             use eBay::API::XML::DataType::VerifiedUserRequirementsType;
46              
47              
48             my @gaProperties = ( [ 'LinkedPayPalAccount', 'xs:boolean', '', '', '' ]
49             , [ 'MaximumBuyerPolicyViolations', 'ns:MaximumBuyerPolicyViolationsType', ''
50             ,'eBay::API::XML::DataType::MaximumBuyerPolicyViolationsType', '1' ]
51             , [ 'MaximumItemRequirements', 'ns:MaximumItemRequirementsType', ''
52             ,'eBay::API::XML::DataType::MaximumItemRequirementsType', '1' ]
53             , [ 'MaximumUnpaidItemStrikesInfo', 'ns:MaximumUnpaidItemStrikesInfoType', ''
54             ,'eBay::API::XML::DataType::MaximumUnpaidItemStrikesInfoType', '1' ]
55             , [ 'MinimumFeedbackScore', 'xs:int', '', '', '' ]
56             , [ 'ShipToRegistrationCountry', 'xs:boolean', '', '', '' ]
57             , [ 'VerifiedUserRequirements', 'ns:VerifiedUserRequirementsType', ''
58             ,'eBay::API::XML::DataType::VerifiedUserRequirementsType', '1' ]
59             , [ 'ZeroFeedbackScore', 'xs:boolean', '', '', '' ]
60             );
61             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
62              
63             my @gaAttributes = (
64             );
65             push @gaAttributes, @{eBay::API::XML::BaseDataType::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 setLinkedPayPalAccount()
85              
86             If true, only bidders with PayPal accounts linked to eBay may bid.
87             This field can be returned even if the caller is not the seller.
88             For AddItem, the seller's My eBay preference is automatically used with
89             request version 453 and greater. For lower request versions, you must send in explicit BuyerRequirement input even if you have your
90             "global" My eBay preference set to require this.
91              
92             Default: false
93              
94             Calls: AddItem
95             GetItemRecommendations
96             RelistItem
97             ReviseItem
98             VerifyAddItem
99             RequiredInput: No
100              
101             # Argument: 'xs:boolean'
102              
103             =cut
104              
105             sub setLinkedPayPalAccount {
106             my $self = shift;
107             $self->{'LinkedPayPalAccount'} = shift
108             }
109              
110             =head2 isLinkedPayPalAccount()
111              
112             Calls: GetBidderList
113             GetSellerList
114             Returned: Conditionally
115              
116             Calls: GetItem
117             Returned: Conditionally
118             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
119              
120             # Returns: 'xs:boolean'
121              
122             =cut
123              
124             sub isLinkedPayPalAccount {
125             my $self = shift;
126             return $self->{'LinkedPayPalAccount'};
127             }
128              
129              
130             =head2 setMaximumBuyerPolicyViolations()
131              
132             If provided, blocks bidders who have received maximum allowed buyer
133             policy violation reports from the sellers in the pre defined duration.
134              
135             Default: false
136              
137             Calls: AddItem
138             GetItemRecommendations
139             RelistItem
140             ReviseItem
141             VerifyAddItem
142             RequiredInput: No
143              
144             # Argument: 'ns:MaximumBuyerPolicyViolationsType'
145              
146             =cut
147              
148             sub setMaximumBuyerPolicyViolations {
149             my $self = shift;
150             $self->{'MaximumBuyerPolicyViolations'} = shift
151             }
152              
153             =head2 getMaximumBuyerPolicyViolations()
154              
155             Calls: GetBidderList
156             GetSellerList
157             Returned: Conditionally
158              
159             Calls: GetItem
160             Returned: Conditionally
161             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
162              
163             # Returns: 'ns:MaximumBuyerPolicyViolationsType'
164              
165             =cut
166              
167             sub getMaximumBuyerPolicyViolations {
168             my $self = shift;
169             return $self->_getDataTypeInstance( 'MaximumBuyerPolicyViolations'
170             ,'eBay::API::XML::DataType::MaximumBuyerPolicyViolationsType');
171             }
172              
173              
174             =head2 setMaximumItemRequirements()
175              
176             A means of limiting unpaying, low feedback bidders.
177             Ignored as input if the application uses version 451 or older.
178              
179             Calls: AddItem
180             GetItemRecommendations
181             RelistItem
182             ReviseItem
183             VerifyAddItem
184             RequiredInput: No
185              
186             # Argument: 'ns:MaximumItemRequirementsType'
187              
188             =cut
189              
190             sub setMaximumItemRequirements {
191             my $self = shift;
192             $self->{'MaximumItemRequirements'} = shift
193             }
194              
195             =head2 getMaximumItemRequirements()
196              
197             Calls: GetBidderList
198             GetSellerList
199             Returned: Conditionally
200              
201             Calls: GetItem
202             Returned: Conditionally
203             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
204              
205             # Returns: 'ns:MaximumItemRequirementsType'
206              
207             =cut
208              
209             sub getMaximumItemRequirements {
210             my $self = shift;
211             return $self->_getDataTypeInstance( 'MaximumItemRequirements'
212             ,'eBay::API::XML::DataType::MaximumItemRequirementsType');
213             }
214              
215              
216             =head2 setMaximumUnpaidItemStrikesInfo()
217              
218             If provided, blocks bidders who have received maximum unpaid item
219             strikes in the pre defined duration by the seller.
220              
221             Default: false
222              
223             Calls: AddItem
224             GetItemRecommendations
225             RelistItem
226             ReviseItem
227             VerifyAddItem
228             RequiredInput: No
229              
230             # Argument: 'ns:MaximumUnpaidItemStrikesInfoType'
231              
232             =cut
233              
234             sub setMaximumUnpaidItemStrikesInfo {
235             my $self = shift;
236             $self->{'MaximumUnpaidItemStrikesInfo'} = shift
237             }
238              
239             =head2 getMaximumUnpaidItemStrikesInfo()
240              
241             Calls: GetBidderList
242             GetSellerList
243             Returned: Conditionally
244              
245             Calls: GetItem
246             Returned: Conditionally
247             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
248              
249             # Returns: 'ns:MaximumUnpaidItemStrikesInfoType'
250              
251             =cut
252              
253             sub getMaximumUnpaidItemStrikesInfo {
254             my $self = shift;
255             return $self->_getDataTypeInstance( 'MaximumUnpaidItemStrikesInfo'
256             ,'eBay::API::XML::DataType::MaximumUnpaidItemStrikesInfoType');
257             }
258              
259              
260             =head2 setMinimumFeedbackScore()
261              
262             If true, blocks bidders with this feedback score or lower.
263             Ignored as input if the application uses version 451 or older.
264             Valid values: -3, -2, -1.
265              
266             Max: Min:
267             Calls: AddItem
268             GetItemRecommendations
269             RelistItem
270             ReviseItem
271             VerifyAddItem
272             RequiredInput: No
273              
274             # Argument: 'xs:int'
275              
276             =cut
277              
278             sub setMinimumFeedbackScore {
279             my $self = shift;
280             $self->{'MinimumFeedbackScore'} = shift
281             }
282              
283             =head2 getMinimumFeedbackScore()
284              
285             Calls: GetBidderList
286             GetSellerList
287             Returned: Conditionally
288              
289             Calls: GetItem
290             Returned: Conditionally
291             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
292              
293             # Returns: 'xs:int'
294              
295             =cut
296              
297             sub getMinimumFeedbackScore {
298             my $self = shift;
299             return $self->{'MinimumFeedbackScore'};
300             }
301              
302              
303             =head2 setShipToRegistrationCountry()
304              
305             If true, blocks bidders who are registered in countries to which
306             the seller has specified he will not shipo.
307             Ignored as input if the application uses version 451 or older.
308              
309             Default: false
310              
311             Calls: AddItem
312             GetItemRecommendations
313             RelistItem
314             ReviseItem
315             VerifyAddItem
316             RequiredInput: No
317              
318             # Argument: 'xs:boolean'
319              
320             =cut
321              
322             sub setShipToRegistrationCountry {
323             my $self = shift;
324             $self->{'ShipToRegistrationCountry'} = shift
325             }
326              
327             =head2 isShipToRegistrationCountry()
328              
329             Calls: GetBidderList
330             GetSellerList
331             Returned: Conditionally
332              
333             Calls: GetItem
334             Returned: Conditionally
335             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
336              
337             # Returns: 'xs:boolean'
338              
339             =cut
340              
341             sub isShipToRegistrationCountry {
342             my $self = shift;
343             return $self->{'ShipToRegistrationCountry'};
344             }
345              
346              
347             =head2 setVerifiedUserRequirements()
348              
349             A means of limiting unverified bidders.
350             Ignored as input if the application uses version 451 or older.
351              
352             Calls: AddItem
353             GetItemRecommendations
354             RelistItem
355             ReviseItem
356             VerifyAddItem
357             RequiredInput: No
358              
359             # Argument: 'ns:VerifiedUserRequirementsType'
360              
361             =cut
362              
363             sub setVerifiedUserRequirements {
364             my $self = shift;
365             $self->{'VerifiedUserRequirements'} = shift
366             }
367              
368             =head2 getVerifiedUserRequirements()
369              
370             Calls: GetBidderList
371             GetSellerList
372             Returned: Conditionally
373              
374             Calls: GetItem
375             Returned: Conditionally
376             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
377              
378             # Returns: 'ns:VerifiedUserRequirementsType'
379              
380             =cut
381              
382             sub getVerifiedUserRequirements {
383             my $self = shift;
384             return $self->_getDataTypeInstance( 'VerifiedUserRequirements'
385             ,'eBay::API::XML::DataType::VerifiedUserRequirementsType');
386             }
387              
388              
389             =head2 setZeroFeedbackScore()
390              
391             If true, blocks bidders with a feedback score of 0 who attempt to bid on
392             Buy It Now items worth 100 RMB or more.
393             Ignored as input if the application uses version 451 or older.
394             This requirement is only enabled for the CN site.
395              
396             Default: false
397              
398             Calls: AddItem
399             GetItemRecommendations
400             RelistItem
401             ReviseItem
402             VerifyAddItem
403             RequiredInput: No
404              
405             # Argument: 'xs:boolean'
406              
407             =cut
408              
409             sub setZeroFeedbackScore {
410             my $self = shift;
411             $self->{'ZeroFeedbackScore'} = shift
412             }
413              
414             =head2 isZeroFeedbackScore()
415              
416             Calls: GetBidderList
417             GetSellerList
418             Returned: Conditionally
419              
420             Calls: GetItem
421             Returned: Conditionally
422             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
423              
424             # Returns: 'xs:boolean'
425              
426             =cut
427              
428             sub isZeroFeedbackScore {
429             my $self = shift;
430             return $self->{'ZeroFeedbackScore'};
431             }
432              
433              
434              
435              
436              
437             ## Attribute and Property lists
438             sub getPropertiesList {
439             my $self = shift;
440             return \@gaProperties;
441             }
442              
443             sub getAttributesList {
444             my $self = shift;
445             return \@gaAttributes;
446             }
447              
448              
449              
450             1;