File Coverage

lib/eBay/API/XML/DataType/ExpressSellerRequirementsType.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::ExpressSellerRequirementsType;
4              
5 1     1   1859 use strict;
  1         2  
  1         613  
6 1     1   7 use warnings;
  1         2  
  1         35  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ExpressSellerRequirementsType.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::ExpressSellerRequirementsType
21              
22             =head1 DESCRIPTION
23              
24              
25              
26             =head1 SYNOPSIS
27              
28             =cut
29              
30              
31             =head1 INHERITANCE
32              
33             eBay::API::XML::DataType::ExpressSellerRequirementsType inherits from the L class
34              
35             =cut
36              
37 1     1   45 use eBay::API::XML::BaseDataType;
  0            
  0            
38             our @ISA = ("eBay::API::XML::BaseDataType");
39              
40             use eBay::API::XML::DataType::FeedbackRequirementsType;
41              
42              
43             my @gaProperties = ( [ 'BusinessSeller', 'xs:boolean', '', '', '' ]
44             , [ 'CombinedPaymentsAccepted', 'xs:boolean', '', '', '' ]
45             , [ 'EligiblePayPalAccount', 'xs:boolean', '', '', '' ]
46             , [ 'ExpressApproved', 'xs:boolean', '', '', '' ]
47             , [ 'ExpressSellingPreference', 'xs:boolean', '', '', '' ]
48             , [ 'FeedbackAsSellerScore', 'ns:FeedbackRequirementsType', ''
49             ,'eBay::API::XML::DataType::FeedbackRequirementsType', '1' ]
50             , [ 'FeedbackPublic', 'xs:boolean', '', '', '' ]
51             , [ 'FeedbackScore', 'ns:FeedbackRequirementsType', ''
52             ,'eBay::API::XML::DataType::FeedbackRequirementsType', '1' ]
53             , [ 'GoodStanding', 'xs:boolean', '', '', '' ]
54             , [ 'PayPalAccountAcceptsUnconfirmedAddress', 'xs:boolean', '', '', '' ]
55             , [ 'PositiveFeedbackAsSellerPercent', 'ns:FeedbackRequirementsType', ''
56             ,'eBay::API::XML::DataType::FeedbackRequirementsType', '1' ]
57             , [ 'PositiveFeedbackPercent', 'ns:FeedbackRequirementsType', ''
58             ,'eBay::API::XML::DataType::FeedbackRequirementsType', '1' ]
59             );
60             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
61              
62             my @gaAttributes = (
63             );
64             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
65              
66             =head1 Subroutines:
67              
68             =cut
69              
70             sub new {
71             my $classname = shift;
72             my %args = @_;
73             my $self = $classname->SUPER::new(%args);
74             return $self;
75             }
76              
77             sub isScalar {
78             return 0;
79             }
80              
81              
82              
83             =head2 setBusinessSeller()
84              
85             If true, the seller is a registered business seller.
86             Only returned for Express Germany.
87             Starting in late April, this value will no longer work, regardless of the
88             API version you are using.
89              
90             # Argument: 'xs:boolean'
91              
92             =cut
93              
94             sub setBusinessSeller {
95             my $self = shift;
96             $self->{'BusinessSeller'} = shift
97             }
98              
99             =head2 isBusinessSeller()
100              
101             # Returns: 'xs:boolean'
102              
103             =cut
104              
105             sub isBusinessSeller {
106             my $self = shift;
107             return $self->{'BusinessSeller'};
108             }
109              
110              
111             =head2 setCombinedPaymentsAccepted()
112              
113             If true, the seller accepts combined payments. If false, the seller
114             doesn't accept combined payments (and the seller is therefore
115             ineligible for Express, if the site requires this preference).
116              
117             # Argument: 'xs:boolean'
118              
119             =cut
120              
121             sub setCombinedPaymentsAccepted {
122             my $self = shift;
123             $self->{'CombinedPaymentsAccepted'} = shift
124             }
125              
126             =head2 isCombinedPaymentsAccepted()
127              
128             Calls: GetItem
129             Returned: Conditionally
130             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
131              
132             Calls: GetUser
133             Returned: Conditionally
134             Details: DetailLevel: none, ReturnSummary, ReturnAll
135              
136             # Returns: 'xs:boolean'
137              
138             =cut
139              
140             sub isCombinedPaymentsAccepted {
141             my $self = shift;
142             return $self->{'CombinedPaymentsAccepted'};
143             }
144              
145              
146             =head2 setEligiblePayPalAccount()
147              
148             If true, the seller has an eligible PayPal account for Express.
149             Only returned if the site assesses this requirement at the seller level.
150              
151             # Argument: 'xs:boolean'
152              
153             =cut
154              
155             sub setEligiblePayPalAccount {
156             my $self = shift;
157             $self->{'EligiblePayPalAccount'} = shift
158             }
159              
160             =head2 isEligiblePayPalAccount()
161              
162             Calls: GetItem
163             Returned: Conditionally
164             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
165              
166             Calls: GetUser
167             Returned: Conditionally
168             Details: DetailLevel: none, ReturnSummary, ReturnAll
169              
170             # Returns: 'xs:boolean'
171              
172             =cut
173              
174             sub isEligiblePayPalAccount {
175             my $self = shift;
176             return $self->{'EligiblePayPalAccount'};
177             }
178              
179              
180             =head2 setExpressApproved()
181              
182             If true, indicates eBay has marked the seller as eligible for
183             eBay Express based on direct evaluation. Only returned if true,
184             and no other seller requirement settings are returned in this case.
185             For example, on the eBay Germany site, sellers need to fill out
186             an application to become eligible to list on Express Germany.
187             If they are approved, eBay sets ExpressApproved to true and no other
188             seller requirement settings are relevant.
189            

190             Note:
191             At the end of April 2008, UK and Germany eBay Express will be shutdown. No
192             users will be eligible to list on these sites. All users previously registered
193             on UK and Germany Express will have their registered status revoked. Any
194             Express only items listed on these sites will be ended and credited the full
195             insertion fee to their sellers. Please refer to the respective Express sites
196             for more information.
197            
198              
199             # Argument: 'xs:boolean'
200              
201             =cut
202              
203             sub setExpressApproved {
204             my $self = shift;
205             $self->{'ExpressApproved'} = shift
206             }
207              
208             =head2 isExpressApproved()
209              
210             Calls: GetUser
211             Returned: Conditionally
212             Details: DetailLevel: none, ReturnSummary, ReturnAll
213              
214             # Returns: 'xs:boolean'
215              
216             =cut
217              
218             sub isExpressApproved {
219             my $self = shift;
220             return $self->{'ExpressApproved'};
221             }
222              
223              
224             =head2 setExpressSellingPreference()
225              
226             If true, the seller's preferences in My eBay are set
227             to include listings on eBay Express.
228             If false, the seller prefers not to include listings
229             on Express, so the seller is therefore ineligible for Express
230             (and no other seller requirement settings are returned in this case).
231              
232             SeeLink: URL: io_GetUserPreferences.html#Response.ExpressPreferences.ExpressSellingPreference
233             Title: (GetUserPreferences) ExpressPreferences.ExpressSellingPreference
234              
235             # Argument: 'xs:boolean'
236              
237             =cut
238              
239             sub setExpressSellingPreference {
240             my $self = shift;
241             $self->{'ExpressSellingPreference'} = shift
242             }
243              
244             =head2 isExpressSellingPreference()
245              
246             Calls: GetItem
247             Returned: Conditionally
248             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
249              
250             Calls: GetUser
251             Returned: Conditionally
252             Details: DetailLevel: none, ReturnSummary, ReturnAll
253              
254             # Returns: 'xs:boolean'
255              
256             =cut
257              
258             sub isExpressSellingPreference {
259             my $self = shift;
260             return $self->{'ExpressSellingPreference'};
261             }
262              
263              
264             =head2 setFeedbackAsSellerScore()
265              
266             If true, indicates that the seller meets the Express site's
267             minimum feedback requirement (if any) for transactions as a seller
268             (not a buyer).
269              
270             # Argument: 'ns:FeedbackRequirementsType'
271              
272             =cut
273              
274             sub setFeedbackAsSellerScore {
275             my $self = shift;
276             $self->{'FeedbackAsSellerScore'} = shift
277             }
278              
279             =head2 getFeedbackAsSellerScore()
280              
281             Calls: GetItem
282             Returned: Conditionally
283             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
284              
285             Calls: GetUser
286             Returned: Conditionally
287             Details: DetailLevel: none, ReturnSummary, ReturnAll
288              
289             # Returns: 'ns:FeedbackRequirementsType'
290              
291             =cut
292              
293             sub getFeedbackAsSellerScore {
294             my $self = shift;
295             return $self->_getDataTypeInstance( 'FeedbackAsSellerScore'
296             ,'eBay::API::XML::DataType::FeedbackRequirementsType');
297             }
298              
299              
300             =head2 setFeedbackPublic()
301              
302             If true, the seller's feedback profile is public.
303             If false, the seller's feedback details are private; that is,
304             User.FeedbackPrivate is true (and the seller is therefore
305             ineligible).
306              
307             # Argument: 'xs:boolean'
308              
309             =cut
310              
311             sub setFeedbackPublic {
312             my $self = shift;
313             $self->{'FeedbackPublic'} = shift
314             }
315              
316             =head2 isFeedbackPublic()
317              
318             Calls: GetItem
319             Returned: Conditionally
320             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
321              
322             Calls: GetUser
323             Returned: Conditionally
324             Details: DetailLevel: none, ReturnSummary, ReturnAll
325              
326             # Returns: 'xs:boolean'
327              
328             =cut
329              
330             sub isFeedbackPublic {
331             my $self = shift;
332             return $self->{'FeedbackPublic'};
333             }
334              
335              
336             =head2 setFeedbackScore()
337              
338             If true, indicates that the seller meets the site's minimum total
339             feedback requirement for Express.
340              
341             # Argument: 'ns:FeedbackRequirementsType'
342              
343             =cut
344              
345             sub setFeedbackScore {
346             my $self = shift;
347             $self->{'FeedbackScore'} = shift
348             }
349              
350             =head2 getFeedbackScore()
351              
352             Calls: GetItem
353             Returned: Conditionally
354             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
355              
356             Calls: GetUser
357             Returned: Conditionally
358             Details: DetailLevel: none, ReturnSummary, ReturnAll
359              
360             # Returns: 'ns:FeedbackRequirementsType'
361              
362             =cut
363              
364             sub getFeedbackScore {
365             my $self = shift;
366             return $self->_getDataTypeInstance( 'FeedbackScore'
367             ,'eBay::API::XML::DataType::FeedbackRequirementsType');
368             }
369              
370              
371             =head2 setGoodStanding()
372              
373             If true, the user has a seller account in good standing.
374              
375             # Argument: 'xs:boolean'
376              
377             =cut
378              
379             sub setGoodStanding {
380             my $self = shift;
381             $self->{'GoodStanding'} = shift
382             }
383              
384             =head2 isGoodStanding()
385              
386             Calls: GetItem
387             Returned: Conditionally
388             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
389              
390             Calls: GetUser
391             Returned: Conditionally
392             Details: DetailLevel: none, ReturnSummary, ReturnAll
393              
394             # Returns: 'xs:boolean'
395              
396             =cut
397              
398             sub isGoodStanding {
399             my $self = shift;
400             return $self->{'GoodStanding'};
401             }
402              
403              
404             =head2 setPayPalAccountAcceptsUnconfirmedAddress()
405              
406             If true, the seller has a PayPal account that accepts
407             a payment from a buyer with an unconfirmed address.
408             Only returned if the site assesses this requirement at the seller level.
409              
410             # Argument: 'xs:boolean'
411              
412             =cut
413              
414             sub setPayPalAccountAcceptsUnconfirmedAddress {
415             my $self = shift;
416             $self->{'PayPalAccountAcceptsUnconfirmedAddress'} = shift
417             }
418              
419             =head2 isPayPalAccountAcceptsUnconfirmedAddress()
420              
421             Calls: GetItem
422             Returned: Conditionally
423             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
424              
425             Calls: GetUser
426             Returned: Conditionally
427             Details: DetailLevel: none, ReturnSummary, ReturnAll
428              
429             # Returns: 'xs:boolean'
430              
431             =cut
432              
433             sub isPayPalAccountAcceptsUnconfirmedAddress {
434             my $self = shift;
435             return $self->{'PayPalAccountAcceptsUnconfirmedAddress'};
436             }
437              
438              
439             =head2 setPositiveFeedbackAsSellerPercent()
440              
441             If true, indicates that the seller meets the Express site's
442             minimum positive feedback requirement (if any) for transactions
443             as a seller (not a buyer).
444              
445             # Argument: 'ns:FeedbackRequirementsType'
446              
447             =cut
448              
449             sub setPositiveFeedbackAsSellerPercent {
450             my $self = shift;
451             $self->{'PositiveFeedbackAsSellerPercent'} = shift
452             }
453              
454             =head2 getPositiveFeedbackAsSellerPercent()
455              
456             Calls: GetItem
457             Returned: Conditionally
458             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
459              
460             Calls: GetUser
461             Returned: Conditionally
462             Details: DetailLevel: none, ReturnSummary, ReturnAll
463              
464             # Returns: 'ns:FeedbackRequirementsType'
465              
466             =cut
467              
468             sub getPositiveFeedbackAsSellerPercent {
469             my $self = shift;
470             return $self->_getDataTypeInstance( 'PositiveFeedbackAsSellerPercent'
471             ,'eBay::API::XML::DataType::FeedbackRequirementsType');
472             }
473              
474              
475             =head2 setPositiveFeedbackPercent()
476              
477             If true, indicates that the seller meets the site's minimum
478             total positive feedback requirement for Express.
479              
480             # Argument: 'ns:FeedbackRequirementsType'
481              
482             =cut
483              
484             sub setPositiveFeedbackPercent {
485             my $self = shift;
486             $self->{'PositiveFeedbackPercent'} = shift
487             }
488              
489             =head2 getPositiveFeedbackPercent()
490              
491             Calls: GetItem
492             Returned: Conditionally
493             Details: DetailLevel: none, ItemReturnDescription, ItemReturnAttributes, ReturnAll
494              
495             Calls: GetUser
496             Returned: Conditionally
497             Details: DetailLevel: none, ReturnSummary, ReturnAll
498              
499             # Returns: 'ns:FeedbackRequirementsType'
500              
501             =cut
502              
503             sub getPositiveFeedbackPercent {
504             my $self = shift;
505             return $self->_getDataTypeInstance( 'PositiveFeedbackPercent'
506             ,'eBay::API::XML::DataType::FeedbackRequirementsType');
507             }
508              
509              
510              
511              
512              
513             ## Attribute and Property lists
514             sub getPropertiesList {
515             my $self = shift;
516             return \@gaProperties;
517             }
518              
519             sub getAttributesList {
520             my $self = shift;
521             return \@gaAttributes;
522             }
523              
524              
525              
526             1;