File Coverage

lib/eBay/API/XML/DataType/ExpressProductType.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::ExpressProductType;
4              
5 1     1   1765 use strict;
  1         2  
  1         35  
6 1     1   5 use warnings;
  1         2  
  1         33  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ExpressProductType.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::ExpressProductType
21              
22             =head1 DESCRIPTION
23              
24             Information that eBay Express collects about an eBay catalog product.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::ExpressProductType inherits from the L class
36              
37             =cut
38              
39 1     1   43 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::ExternalProductIDType;
44             use eBay::API::XML::DataType::NameValueListArrayType;
45             use eBay::API::XML::DataType::Enum::ProductStateCodeType;
46              
47              
48             my @gaProperties = ( [ 'DetailsURL', 'xs:anyURI', '', '', '' ]
49             , [ 'ExternalProductID', 'ns:ExternalProductIDType', ''
50             ,'eBay::API::XML::DataType::ExternalProductIDType', '1' ]
51             , [ 'ItemCount', 'xs:int', '', '', '' ]
52             , [ 'ItemSpecifics', 'ns:NameValueListArrayType', ''
53             ,'eBay::API::XML::DataType::NameValueListArrayType', '1' ]
54             , [ 'MaxPrice', 'ns:AmountType', ''
55             ,'eBay::API::XML::DataType::AmountType', '1' ]
56             , [ 'MinPrice', 'ns:AmountType', ''
57             ,'eBay::API::XML::DataType::AmountType', '1' ]
58             , [ 'ProductReferenceID', 'xs:long', '', '', '' ]
59             , [ 'ProductState', 'ns:ProductStateCodeType', ''
60             ,'eBay::API::XML::DataType::Enum::ProductStateCodeType', '' ]
61             , [ 'StockPhotoURL', 'xs:anyURI', '', '', '' ]
62             , [ 'Title', 'xs:string', '', '', '' ]
63             );
64             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
65              
66             my @gaAttributes = (
67             );
68             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
69              
70             =head1 Subroutines:
71              
72             =cut
73              
74             sub new {
75             my $classname = shift;
76             my %args = @_;
77             my $self = $classname->SUPER::new(%args);
78             return $self;
79             }
80              
81             sub isScalar {
82             return 0;
83             }
84              
85              
86              
87             =head2 setDetailsURL()
88              
89             Fully qualified URL for optional information about the product,
90             such as a movie's description or film credits. This information
91             is hosted through the eBay.com Web site and it cannot be edited.
92             Portions of the content are protected by copyright.
93             Applications can include this URL as a link in product search results
94             so that end users can view additional descriptive details about
95             the product. This is usually always returned when Product is returned,
96             but it may be safest to check for the existence of this field.
97              
98             # Argument: 'xs:anyURI'
99              
100             =cut
101              
102             sub setDetailsURL {
103             my $self = shift;
104             $self->{'DetailsURL'} = shift
105             }
106              
107             =head2 getDetailsURL()
108              
109             # Returns: 'xs:anyURI'
110              
111             =cut
112              
113             sub getDetailsURL {
114             my $self = shift;
115             return $self->{'DetailsURL'};
116             }
117              
118              
119             =head2 setExternalProductID()
120              
121             An ISBN or UPC value (if any) that is associated with this eBay catalog product.
122             Only returned when ProductDetails is set to Fine.
123              
124             # Argument: 'ns:ExternalProductIDType'
125              
126             =cut
127              
128             sub setExternalProductID {
129             my $self = shift;
130             $self->{'ExternalProductID'} = shift
131             }
132              
133             =head2 getExternalProductID()
134              
135             # Returns: 'ns:ExternalProductIDType'
136              
137             =cut
138              
139             sub getExternalProductID {
140             my $self = shift;
141             return $self->_getDataTypeInstance( 'ExternalProductID'
142             ,'eBay::API::XML::DataType::ExternalProductIDType');
143             }
144              
145              
146             =head2 setItemCount()
147              
148             Total number of active listings (on the specified Express site)
149             that were pre-filled based on this eBay catalog product.
150             Only returned when ProductDetails is set to Fine.
151             This does not necessarily match the number of items returned
152             in ItemArray (if any), because the call returns deduped items
153             in ItemArray.
154              
155             # Argument: 'xs:int'
156              
157             =cut
158              
159             sub setItemCount {
160             my $self = shift;
161             $self->{'ItemCount'} = shift
162             }
163              
164             =head2 getItemCount()
165              
166             # Returns: 'xs:int'
167              
168             =cut
169              
170             sub getItemCount {
171             my $self = shift;
172             return $self->{'ItemCount'};
173             }
174              
175              
176             =head2 setItemSpecifics()
177              
178             A list of attribute and value pairs that are included in the product's pre-
179             filled Item Specifics and that are applicable in Express search results. This
180             does not necessarily include all Item Specifics that are defined for the
181             product in the catalog. Typically, it returns only the top attributes (as
182             determined by Express). See ExternalProductID for the ISBN or UPC, if
183             applicable. Only returned when ProductDetails is set to Fine.
184              
185             # Argument: 'ns:NameValueListArrayType'
186              
187             =cut
188              
189             sub setItemSpecifics {
190             my $self = shift;
191             $self->{'ItemSpecifics'} = shift
192             }
193              
194             =head2 getItemSpecifics()
195              
196             # Returns: 'ns:NameValueListArrayType'
197              
198             =cut
199              
200             sub getItemSpecifics {
201             my $self = shift;
202             return $self->_getDataTypeInstance( 'ItemSpecifics'
203             ,'eBay::API::XML::DataType::NameValueListArrayType');
204             }
205              
206              
207             =head2 setMaxPrice()
208              
209             Highest current price of active and ended listings on the specified
210             eBay site that were pre-filled based on this product.
211             The value is in the Express site's currency (i.e., not converted).
212             Round numbers might only show one zero after the decimal (e.g., 15.0).
213             Always returned when Product is returned. Excludes shipping costs.
214              
215             # Argument: 'ns:AmountType'
216              
217             =cut
218              
219             sub setMaxPrice {
220             my $self = shift;
221             $self->{'MaxPrice'} = shift
222             }
223              
224             =head2 getMaxPrice()
225              
226             # Returns: 'ns:AmountType'
227              
228             =cut
229              
230             sub getMaxPrice {
231             my $self = shift;
232             return $self->_getDataTypeInstance( 'MaxPrice'
233             ,'eBay::API::XML::DataType::AmountType');
234             }
235              
236              
237             =head2 setMinPrice()
238              
239             Lowest current price of active and ended listings on the specified
240             eBay site that were pre-filled based on the eBay catalog product.
241             The value is in the Express site's currency (i.e., not converted).
242             Round numbers might only show one zero after the decimal (e.g., 15.0).
243             Always returned when Product is returned. Excludes shipping costs.
244              
245             # Argument: 'ns:AmountType'
246              
247             =cut
248              
249             sub setMinPrice {
250             my $self = shift;
251             $self->{'MinPrice'} = shift
252             }
253              
254             =head2 getMinPrice()
255              
256             # Returns: 'ns:AmountType'
257              
258             =cut
259              
260             sub getMinPrice {
261             my $self = shift;
262             return $self->_getDataTypeInstance( 'MinPrice'
263             ,'eBay::API::XML::DataType::AmountType');
264             }
265              
266              
267             =head2 setProductReferenceID()
268              
269             The global reference ID for the eBay catalog product.
270             For GetSearchResultsExpress, only returned when ProductDetails is set to Fine.
271            
272             Note:
273             This value is not the same as the ProductID used in AddItem and related calls. A
274             ProductID represents a particular version of a catalog product, which is
275             associated with a particular set of Item Specifics and other details. A
276             ProductReferenceID is a more generic or global reference to a catalog product,
277             which is useful for buy-side searching. One ProductReferenceID can be associated
278             with multiple ProductIDs.
279              
280             # Argument: 'xs:long'
281              
282             =cut
283              
284             sub setProductReferenceID {
285             my $self = shift;
286             $self->{'ProductReferenceID'} = shift
287             }
288              
289             =head2 getProductReferenceID()
290              
291             # Returns: 'xs:long'
292              
293             =cut
294              
295             sub getProductReferenceID {
296             my $self = shift;
297             return $self->{'ProductReferenceID'};
298             }
299              
300              
301             =head2 setProductState()
302              
303             Indicates that the product has changed or will soon change (usually due to a migration
304             from one catalog to another catalog). Typically, this field is
305             returned for up to 90 days for a given product. After that, the product either no
306             longer returns this field or the product is no longer returned (depending on the
307             state change).
308             As of mid-2008, this data is primarily applicable to catalogs used by the
309             US, Germany, Austria, and Switzerland sites.
310             Other sites may undergo catalog changes in the future.
311              
312             # Argument: 'ns:ProductStateCodeType'
313              
314             =cut
315              
316             sub setProductState {
317             my $self = shift;
318             $self->{'ProductState'} = shift
319             }
320              
321             =head2 getProductState()
322              
323             # Returns: 'ns:ProductStateCodeType'
324              
325             =cut
326              
327             sub getProductState {
328             my $self = shift;
329             return $self->{'ProductState'};
330             }
331              
332              
333             =head2 setStockPhotoURL()
334              
335             Fully qualified URL for a stock image (if any) that is associated with the
336             eBay catalog product. For GetSearchResultsExpress, only returned when ProductDetails is set to Fine.
337              
338             # Argument: 'xs:anyURI'
339              
340             =cut
341              
342             sub setStockPhotoURL {
343             my $self = shift;
344             $self->{'StockPhotoURL'} = shift
345             }
346              
347             =head2 getStockPhotoURL()
348              
349             # Returns: 'xs:anyURI'
350              
351             =cut
352              
353             sub getStockPhotoURL {
354             my $self = shift;
355             return $self->{'StockPhotoURL'};
356             }
357              
358              
359             =head2 setTitle()
360              
361             The title of the eBay catalog product. Always returned when Product is returned.
362              
363             # Argument: 'xs:string'
364              
365             =cut
366              
367             sub setTitle {
368             my $self = shift;
369             $self->{'Title'} = shift
370             }
371              
372             =head2 getTitle()
373              
374             # Returns: 'xs:string'
375              
376             =cut
377              
378             sub getTitle {
379             my $self = shift;
380             return $self->{'Title'};
381             }
382              
383              
384              
385              
386              
387             ## Attribute and Property lists
388             sub getPropertiesList {
389             my $self = shift;
390             return \@gaProperties;
391             }
392              
393             sub getAttributesList {
394             my $self = shift;
395             return \@gaAttributes;
396             }
397              
398              
399              
400             1;