File Coverage

lib/eBay/API/XML/DataType/ExpressPreferencesType.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::ExpressPreferencesType;
4              
5 1     1   2395 use strict;
  1         3  
  1         36  
6 1     1   5 use warnings;
  1         2  
  1         33  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ExpressPreferencesType.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::ExpressPreferencesType
21              
22             =head1 DESCRIPTION
23              
24             Contains a seller's preferences related to listing items on Express.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::ExpressPreferencesType 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             use eBay::API::XML::DataType::Enum::ExpressSellingPreferenceCodeType;
43              
44              
45             my @gaProperties = ( [ 'DefaultPayPalAccount', 'xs:string', '', '', '' ]
46             , [ 'ExpressSellingPreference', 'ns:ExpressSellingPreferenceCodeType', ''
47             ,'eBay::API::XML::DataType::Enum::ExpressSellingPreferenceCodeType', '' ]
48             );
49             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
50              
51             my @gaAttributes = (
52             );
53             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
54              
55             =head1 Subroutines:
56              
57             =cut
58              
59             sub new {
60             my $classname = shift;
61             my %args = @_;
62             my $self = $classname->SUPER::new(%args);
63             return $self;
64             }
65              
66             sub isScalar {
67             return 0;
68             }
69              
70              
71              
72             =head2 setDefaultPayPalAccount()
73              
74             For eBay Germany users only. The PayPal account (email address) to use for
75             eBay Express payments during checkout.
76             If the first item in an order doesn't specify a PayPal account,
77             Express Germany uses this default PayPal account for the item.
78             (The account specified for the first item
79             is used for all items in the same order.)
80            
81             This default account is only used for Express payments during checkout;
82             it has no effect on item data.
83             (To specify a default PayPal account for items, use the PayPal fields in
84             the SellerPaymentPreferences node.)
85            
86             Only applicable to sellers who are qualified to list on Express Germany.
87             Call GetUser to determine the seller's Express eligibility.
88            
89            
90             When you set this value using SetUserPreferences, eBay validates that the
91             PayPal account qualifies for Express. We check that the account
92             is in good standing, it is a Business or Premier account,
93             and it does not block unconfirmed addresses.
94             This means the seller needs to configure their PayPal account correctly
95             before calling SetUserPreferences.
96            
97             Note: If the PayPal account
98             becomes ineligible later (e.g., the seller blocks unconfirmed addresses),
99             GetUserPreferences still returns the specified email address. Therefore, the existence of
100             this preference in GetUserPreferences does not guarantee that the specified address is valid for Express.
101             When a PayPal account becomes ineligible, Express reevaluates the eligibility of the
102             seller and their items, and may remove the seller's items from Express.
103             See the eBay Web Services guide links below for more information.
104            
105             This preference does not control the seller's eligibility for Express.
106             However, it can control an item's eligibility in some cases.
107             That is, for a fixed-price or Store Inventory item to be eligible for Express Germany,
108             either the item or this Express preference must
109             specify a valid PayPal email address. (For other eligibility requirements,
110             see the eBay Web Services guide.)
111            
112             In GetUserPreferences, this preference is only returned if a default PayPal account has been specified.
113              
114             SeeLink: URL: http://developer.ebay.com/DevZone/XML/docs/WebHelp/index.htm?context=eBay_XML_API&topic=eBayExpress
115             Title: eBay Express
116             , URL: http://developer.ebay.com/DevZone/XML/docs/WebHelp/index.htm?context=eBay_XML_API&topic=ExpressSellerCriteria
117             Title: Seller Criteria for eBay Express
118             , URL: io_AddItem.html#Request.Item.PayPalEmailAddress
119             Title: (AddItem) Item.PayPalEmailAddress
120              
121              
122             Calls: SetUserPreferences
123             RequiredInput: No
124             Default: omitted
125             SeeLink: URL: #Request.SellerPaymentPreferences, Title: SellerPaymentPreferences node
126              
127             # Argument: 'xs:string'
128              
129             =cut
130              
131             sub setDefaultPayPalAccount {
132             my $self = shift;
133             $self->{'DefaultPayPalAccount'} = shift
134             }
135              
136             =head2 getDefaultPayPalAccount()
137              
138             Calls: GetUserPreferences
139             Returned: Conditionally
140             SeeLink: URL: #Response.SellerPaymentPreferences, Title: SellerPaymentPreferences node
141              
142             # Returns: 'xs:string'
143              
144             =cut
145              
146             sub getDefaultPayPalAccount {
147             my $self = shift;
148             return $self->{'DefaultPayPalAccount'};
149             }
150              
151              
152             =head2 setExpressSellingPreference()
153              
154             Specifies the kinds of eligible listings the seller wants to
155             include on Express.
156             Some values are only applicable to certain sites.
157             Only applicable to sellers who are eligible to list on Express.
158            
159             For the US site, if the seller opts out of Express, their listings
160             are immediately removed from Express. (Please note that other changes that
161             affect a user or item's eligibility can take up to 7 days to take effect.)
162             If not specified, no changes are made to the user's existing settings.
163              
164             Calls: SetUserPreferences
165             RequiredInput: No
166              
167             # Argument: 'ns:ExpressSellingPreferenceCodeType'
168              
169             =cut
170              
171             sub setExpressSellingPreference {
172             my $self = shift;
173             $self->{'ExpressSellingPreference'} = shift
174             }
175              
176             =head2 getExpressSellingPreference()
177              
178             Calls: GetUserPreferences
179             Returned: Conditionally
180              
181             # Returns: 'ns:ExpressSellingPreferenceCodeType'
182              
183             =cut
184              
185             sub getExpressSellingPreference {
186             my $self = shift;
187             return $self->{'ExpressSellingPreference'};
188             }
189              
190              
191              
192              
193              
194             ## Attribute and Property lists
195             sub getPropertiesList {
196             my $self = shift;
197             return \@gaProperties;
198             }
199              
200             sub getAttributesList {
201             my $self = shift;
202             return \@gaAttributes;
203             }
204              
205              
206              
207             1;