File Coverage

lib/eBay/API/XML/Call/SetPromotionalSaleListings/SetPromotionalSaleListingsRequestType.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::Call::SetPromotionalSaleListings::SetPromotionalSaleListingsRequestType;
4              
5 1     1   1632 use strict;
  1         2  
  1         28  
6 1     1   4 use warnings;
  1         3  
  1         31  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. SetPromotionalSaleListingsRequestType.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::Call::SetPromotionalSaleListings::SetPromotionalSaleListingsRequestType
21              
22             =head1 DESCRIPTION
23              
24             Used to change which item listings are affected by a promotional sale.
25             Item listings affected by a promotional sale have a reduced price
26             and/or free shipping and are displayed as items on sale.
27             Use the Action field to specify addition of listings to, or deletion
28             of listings from, a promotional sale.
29             This call is part of the Promotional Price Display feature,
30             which enables sellers to apply discounts across many listings.
31             Promotional sales apply to single and multi-quantity Store Inventory format,
32             regular fixed-price format, auction, and auction/BIN formats.
33             Auction and auction/BIN format listings can be added free shipping sales only.
34              
35              
36              
37             =head1 SYNOPSIS
38              
39             =cut
40              
41              
42             =head1 INHERITANCE
43              
44             eBay::API::XML::Call::SetPromotionalSaleListings::SetPromotionalSaleListingsRequestType inherits from the L class
45              
46             =cut
47              
48 1     1   45 use eBay::API::XML::RequestDataType;
  0            
  0            
49             our @ISA = ("eBay::API::XML::RequestDataType");
50              
51             use eBay::API::XML::DataType::ItemIDArrayType;
52             use eBay::API::XML::DataType::Enum::ModifyActionCodeType;
53              
54              
55             my @gaProperties = ( [ 'Action', 'ns:ModifyActionCodeType', ''
56             ,'eBay::API::XML::DataType::Enum::ModifyActionCodeType', '' ]
57             , [ 'AllAuctionItems', 'xs:boolean', '', '', '' ]
58             , [ 'AllFixedPriceItems', 'xs:boolean', '', '', '' ]
59             , [ 'AllStoreInventoryItems', 'xs:boolean', '', '', '' ]
60             , [ 'CategoryID', 'xs:long', '', '', '' ]
61             , [ 'PromotionalSaleID', 'xs:long', '', '', '' ]
62             , [ 'PromotionalSaleItemIDArray', 'ns:ItemIDArrayType', ''
63             ,'eBay::API::XML::DataType::ItemIDArrayType', '1' ]
64             , [ 'StoreCategoryID', 'xs:long', '', '', '' ]
65             );
66             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
67              
68             my @gaAttributes = (
69             );
70             push @gaAttributes, @{eBay::API::XML::RequestDataType::getAttributesList()};
71              
72             =head1 Subroutines:
73              
74             =cut
75              
76             sub new {
77             my $classname = shift;
78             my %args = @_;
79             my $self = $classname->SUPER::new(%args);
80             return $self;
81             }
82              
83             sub isScalar {
84             return 0;
85             }
86              
87              
88              
89             =head2 setAction()
90              
91             You must specify either Add or Delete.
92             This field determines whether you are adding listings to,
93             or deleting listings from,
94             the promotional sale you specify in the PromotionalSaleID field.
95             If you specify Delete, you must specify
96             PromotionalSaleItemIDArray. Delete is applicable only in
97             cases where you specify PromotionalSaleItemIDArray.
98             Auction or auction/BIN format listings cannot be added to or deleted
99             from a promotional sale if the item has bids.
100              
101             RequiredInput: Yes
102             OnlyTheseValues: Add, Delete
103             # Argument: 'ns:ModifyActionCodeType'
104              
105             =cut
106              
107             sub setAction {
108             my $self = shift;
109             $self->{'Action'} = shift
110             }
111              
112             =head2 getAction()
113              
114             # Returns: 'ns:ModifyActionCodeType'
115              
116             =cut
117              
118             sub getAction {
119             my $self = shift;
120             return $self->{'Action'};
121             }
122              
123              
124             =head2 setAllAuctionItems()
125              
126             Adds to the promotional sale all the seller's item listings
127             that are auction items. Auction and auction/BIN format listings
128             can be added to free shipping sales only.
129             Requires that you specify Add in the Action field.
130              
131             RequiredInput: No
132             # Argument: 'xs:boolean'
133              
134             =cut
135              
136             sub setAllAuctionItems {
137             my $self = shift;
138             $self->{'AllAuctionItems'} = shift
139             }
140              
141             =head2 isAllAuctionItems()
142              
143             # Returns: 'xs:boolean'
144              
145             =cut
146              
147             sub isAllAuctionItems {
148             my $self = shift;
149             return $self->{'AllAuctionItems'};
150             }
151              
152              
153             =head2 setAllFixedPriceItems()
154              
155             Adds to the promotional sale all the seller's item listings
156             that are fixed price items.
157             Requires that you specify Add in the Action field.
158              
159             RequiredInput: No
160             # Argument: 'xs:boolean'
161              
162             =cut
163              
164             sub setAllFixedPriceItems {
165             my $self = shift;
166             $self->{'AllFixedPriceItems'} = shift
167             }
168              
169             =head2 isAllFixedPriceItems()
170              
171             # Returns: 'xs:boolean'
172              
173             =cut
174              
175             sub isAllFixedPriceItems {
176             my $self = shift;
177             return $self->{'AllFixedPriceItems'};
178             }
179              
180              
181             =head2 setAllStoreInventoryItems()
182              
183             Adds to the promotional sale all the seller's item listings
184             that are store inventory items.
185             Requires that you specify Add in the Action field.
186              
187             RequiredInput: No
188             # Argument: 'xs:boolean'
189              
190             =cut
191              
192             sub setAllStoreInventoryItems {
193             my $self = shift;
194             $self->{'AllStoreInventoryItems'} = shift
195             }
196              
197             =head2 isAllStoreInventoryItems()
198              
199             # Returns: 'xs:boolean'
200              
201             =cut
202              
203             sub isAllStoreInventoryItems {
204             my $self = shift;
205             return $self->{'AllStoreInventoryItems'};
206             }
207              
208              
209             =head2 setCategoryID()
210              
211             Adds to the promotional sale all the seller's item listings with
212             the CategoryID specified in this field.
213             Requires that you specify Add in the Action field.
214              
215             RequiredInput: No
216             # Argument: 'xs:long'
217              
218             =cut
219              
220             sub setCategoryID {
221             my $self = shift;
222             $self->{'CategoryID'} = shift
223             }
224              
225             =head2 getCategoryID()
226              
227             # Returns: 'xs:long'
228              
229             =cut
230              
231             sub getCategoryID {
232             my $self = shift;
233             return $self->{'CategoryID'};
234             }
235              
236              
237             =head2 setPromotionalSaleID()
238              
239             The ID of the promotional sale that you want to add listings to or
240             delete listings from.
241              
242             RequiredInput: Yes
243             # Argument: 'xs:long'
244              
245             =cut
246              
247             sub setPromotionalSaleID {
248             my $self = shift;
249             $self->{'PromotionalSaleID'} = shift
250             }
251              
252             =head2 getPromotionalSaleID()
253              
254             # Returns: 'xs:long'
255              
256             =cut
257              
258             sub getPromotionalSaleID {
259             my $self = shift;
260             return $self->{'PromotionalSaleID'};
261             }
262              
263              
264             =head2 setPromotionalSaleItemIDArray()
265              
266             The IDs of the item listings to be affected
267             by the action you specify in the Action field.
268              
269             RequiredInput: Conditionally
270             # Argument: 'ns:ItemIDArrayType'
271              
272             =cut
273              
274             sub setPromotionalSaleItemIDArray {
275             my $self = shift;
276             $self->{'PromotionalSaleItemIDArray'} = shift
277             }
278              
279             =head2 getPromotionalSaleItemIDArray()
280              
281             # Returns: 'ns:ItemIDArrayType'
282              
283             =cut
284              
285             sub getPromotionalSaleItemIDArray {
286             my $self = shift;
287             return $self->_getDataTypeInstance( 'PromotionalSaleItemIDArray'
288             ,'eBay::API::XML::DataType::ItemIDArrayType');
289             }
290              
291              
292             =head2 setStoreCategoryID()
293              
294             Adds to the promotional sale all the seller's item listings with
295             the StoreCategoryID specified in this field.
296             Requires that you specify Add in the Action field.
297              
298             RequiredInput: No
299             # Argument: 'xs:long'
300              
301             =cut
302              
303             sub setStoreCategoryID {
304             my $self = shift;
305             $self->{'StoreCategoryID'} = shift
306             }
307              
308             =head2 getStoreCategoryID()
309              
310             # Returns: 'xs:long'
311              
312             =cut
313              
314             sub getStoreCategoryID {
315             my $self = shift;
316             return $self->{'StoreCategoryID'};
317             }
318              
319              
320              
321              
322              
323             ## Attribute and Property lists
324             sub getPropertiesList {
325             my $self = shift;
326             return \@gaProperties;
327             }
328              
329             sub getAttributesList {
330             my $self = shift;
331             return \@gaAttributes;
332             }
333              
334              
335              
336             1;