File Coverage

lib/eBay/API/XML/DataType/SellerFavoriteItemPreferencesType.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::SellerFavoriteItemPreferencesType;
4              
5 1     1   1243 use strict;
  1         2  
  1         28  
6 1     1   4 use warnings;
  1         3  
  1         26  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. SellerFavoriteItemPreferencesType.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::SellerFavoriteItemPreferencesType
21              
22             =head1 DESCRIPTION
23              
24             Contains the data for the seller favorite item preferences, i.e. the manual or automatic selection criteria to display items for buyer's favourite seller opt in email marketing.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::SellerFavoriteItemPreferencesType inherits from the L class
36              
37             =cut
38              
39 1     1   34 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42             use eBay::API::XML::DataType::AmountType;
43             use eBay::API::XML::DataType::ItemIDType;
44             use eBay::API::XML::DataType::Enum::ListingTypeCodeType;
45             use eBay::API::XML::DataType::Enum::StoreItemListSortOrderCodeType;
46              
47              
48             my @gaProperties = ( [ 'FavoriteItemID', 'ns:ItemIDType', '1'
49             ,'eBay::API::XML::DataType::ItemIDType', '1' ]
50             , [ 'ListingType', 'ns:ListingTypeCodeType', ''
51             ,'eBay::API::XML::DataType::Enum::ListingTypeCodeType', '' ]
52             , [ 'MaxPrice', 'ns:AmountType', ''
53             ,'eBay::API::XML::DataType::AmountType', '1' ]
54             , [ 'MinPrice', 'ns:AmountType', ''
55             ,'eBay::API::XML::DataType::AmountType', '1' ]
56             , [ 'SearchKeywords', 'xs:string', '', '', '' ]
57             , [ 'SearchSortOrder', 'ns:StoreItemListSortOrderCodeType', ''
58             ,'eBay::API::XML::DataType::Enum::StoreItemListSortOrderCodeType', '' ]
59             , [ 'StoreCategoryID', 'xs:long', '', '', '' ]
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 setFavoriteItemID()
85              
86             Specifies the list of favorite items.
87              
88             Calls: SetUserPreferences
89             RequiredInput: No
90              
91             # Argument: reference to an array
92             of 'ns:ItemIDType'
93              
94             =cut
95              
96             sub setFavoriteItemID {
97             my $self = shift;
98             $self->{'FavoriteItemID'} =
99             $self->convertArray_To_RefToArrayIfNeeded(@_);
100             }
101              
102             =head2 getFavoriteItemID()
103              
104             Calls: GetUserPreferences
105             Returned: Conditionally
106              
107             # Returns: reference to an array
108             of 'ns:ItemIDType'
109              
110             =cut
111              
112             sub getFavoriteItemID {
113             my $self = shift;
114             return $self->_getDataTypeArray('FavoriteItemID');
115             }
116              
117              
118             =head2 setListingType()
119              
120             The listing format (fixed price, auction, etc) for the automatic item search criteria.
121              
122             Calls: SetUserPreferences
123             RequiredInput: No
124             OnlyTheseValues: Auction, StoresFixedPrice, LeadGeneration,
125             FixedPriceItem
126              
127             # Argument: 'ns:ListingTypeCodeType'
128              
129             =cut
130              
131             sub setListingType {
132             my $self = shift;
133             $self->{'ListingType'} = shift
134             }
135              
136             =head2 getListingType()
137              
138             Calls: GetUserPreferences
139             Returned: Conditionally
140             OnlyTheseValues: Auction, StoresFixedPrice, LeadGeneration,
141             FixedPriceItem
142              
143             # Returns: 'ns:ListingTypeCodeType'
144              
145             =cut
146              
147             sub getListingType {
148             my $self = shift;
149             return $self->{'ListingType'};
150             }
151              
152              
153             =head2 setMaxPrice()
154              
155             Specifies the upper limit of price range for the automatic search criteria.
156              
157             Calls: SetUserPreferences
158             RequiredInput: No
159              
160             # Argument: 'ns:AmountType'
161              
162             =cut
163              
164             sub setMaxPrice {
165             my $self = shift;
166             $self->{'MaxPrice'} = shift
167             }
168              
169             =head2 getMaxPrice()
170              
171             Calls: GetUserPreferences
172             Returned: Conditionally
173              
174             # Returns: 'ns:AmountType'
175              
176             =cut
177              
178             sub getMaxPrice {
179             my $self = shift;
180             return $self->_getDataTypeInstance( 'MaxPrice'
181             ,'eBay::API::XML::DataType::AmountType');
182             }
183              
184              
185             =head2 setMinPrice()
186              
187             Specifies the lower limit of price range for the automatic search criteria.
188              
189             Calls: SetUserPreferences
190             RequiredInput: No
191              
192             # Argument: 'ns:AmountType'
193              
194             =cut
195              
196             sub setMinPrice {
197             my $self = shift;
198             $self->{'MinPrice'} = shift
199             }
200              
201             =head2 getMinPrice()
202              
203             Calls: GetUserPreferences
204             Returned: Conditionally
205              
206             # Returns: 'ns:AmountType'
207              
208             =cut
209              
210             sub getMinPrice {
211             my $self = shift;
212             return $self->_getDataTypeInstance( 'MinPrice'
213             ,'eBay::API::XML::DataType::AmountType');
214             }
215              
216              
217             =head2 setSearchKeywords()
218              
219             The keywords in the item title for the automatic item search criteria.
220              
221             Calls: SetUserPreferences
222             RequiredInput: No
223              
224             # Argument: 'xs:string'
225              
226             =cut
227              
228             sub setSearchKeywords {
229             my $self = shift;
230             $self->{'SearchKeywords'} = shift
231             }
232              
233             =head2 getSearchKeywords()
234              
235             Calls: GetUserPreferences
236             Returned: Conditionally
237              
238             # Returns: 'xs:string'
239              
240             =cut
241              
242             sub getSearchKeywords {
243             my $self = shift;
244             return $self->{'SearchKeywords'};
245             }
246              
247              
248             =head2 setSearchSortOrder()
249              
250             The sort order chosen from the standard ebay sorts for the automatic search criteria.
251              
252             Calls: SetUserPreferences
253             RequiredInput: No
254              
255             # Argument: 'ns:StoreItemListSortOrderCodeType'
256              
257             =cut
258              
259             sub setSearchSortOrder {
260             my $self = shift;
261             $self->{'SearchSortOrder'} = shift
262             }
263              
264             =head2 getSearchSortOrder()
265              
266             Calls: GetUserPreferences
267             Returned: Conditionally
268              
269             # Returns: 'ns:StoreItemListSortOrderCodeType'
270              
271             =cut
272              
273             sub getSearchSortOrder {
274             my $self = shift;
275             return $self->{'SearchSortOrder'};
276             }
277              
278              
279             =head2 setStoreCategoryID()
280              
281             (For eBay Store owners only) The store custom category for the automatic item search criteria.
282              
283             Calls: SetUserPreferences
284             RequiredInput: No
285              
286             # Argument: 'xs:long'
287              
288             =cut
289              
290             sub setStoreCategoryID {
291             my $self = shift;
292             $self->{'StoreCategoryID'} = shift
293             }
294              
295             =head2 getStoreCategoryID()
296              
297             Calls: GetUserPreferences
298             Returned: Conditionally
299              
300             # Returns: 'xs:long'
301              
302             =cut
303              
304             sub getStoreCategoryID {
305             my $self = shift;
306             return $self->{'StoreCategoryID'};
307             }
308              
309              
310              
311              
312              
313             ## Attribute and Property lists
314             sub getPropertiesList {
315             my $self = shift;
316             return \@gaProperties;
317             }
318              
319             sub getAttributesList {
320             my $self = shift;
321             return \@gaAttributes;
322             }
323              
324              
325              
326             1;