File Coverage

lib/eBay/API/XML/DataType/StoreVacationPreferencesType.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::StoreVacationPreferencesType;
4              
5 1     1   1823 use strict;
  1         3  
  1         77  
6 1     1   7 use warnings;
  1         2  
  1         36  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. StoreVacationPreferencesType.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::StoreVacationPreferencesType
21              
22             =head1 DESCRIPTION
23              
24             Specifies a set of Store vacation preferences.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::DataType::StoreVacationPreferencesType inherits from the L class
36              
37             =cut
38              
39 1     1   45 use eBay::API::XML::BaseDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::BaseDataType");
41              
42              
43              
44             my @gaProperties = ( [ 'DisplayMessageStoreCustomText', 'xs:boolean', '', '', '' ]
45             , [ 'HideFixedPriceStoreItems', 'xs:boolean', '', '', '' ]
46             , [ 'MessageItem', 'xs:boolean', '', '', '' ]
47             , [ 'MessageStore', 'xs:boolean', '', '', '' ]
48             , [ 'MessageStoreCustomText', 'xs:string', '', '', '' ]
49             , [ 'OnVacation', 'xs:boolean', '', '', '' ]
50             , [ 'ReturnDate', 'xs:dateTime', '', '', '' ]
51             );
52             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
53              
54             my @gaAttributes = (
55             );
56             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
57              
58             =head1 Subroutines:
59              
60             =cut
61              
62             sub new {
63             my $classname = shift;
64             my %args = @_;
65             my $self = $classname->SUPER::new(%args);
66             return $self;
67             }
68              
69             sub isScalar {
70             return 0;
71             }
72              
73              
74              
75             =head2 setDisplayMessageStoreCustomText()
76              
77             Display custom message on the Store pages instead of the default message.
78              
79             MaxLength: 10000
80              
81             Calls: SetStorePreferences
82             RequiredInput: No
83              
84             # Argument: 'xs:boolean'
85              
86             =cut
87              
88             sub setDisplayMessageStoreCustomText {
89             my $self = shift;
90             $self->{'DisplayMessageStoreCustomText'} = shift
91             }
92              
93             =head2 isDisplayMessageStoreCustomText()
94              
95             Calls: GetStorePreferences
96             Returned: Always
97              
98             # Returns: 'xs:boolean'
99              
100             =cut
101              
102             sub isDisplayMessageStoreCustomText {
103             my $self = shift;
104             return $self->{'DisplayMessageStoreCustomText'};
105             }
106              
107              
108             =head2 setHideFixedPriceStoreItems()
109              
110             Hide Store Inventory format items when the Store owner is on vacation.

111             When OnVacation is true, the Store owner's listings do not appear on Express,
112             regardless of the listing format and regardless of how the seller has configured
113             their vacation settings for items that appear on eBay.
114              
115             Calls: SetStorePreferences
116             RequiredInput: No
117              
118             # Argument: 'xs:boolean'
119              
120             =cut
121              
122             sub setHideFixedPriceStoreItems {
123             my $self = shift;
124             $self->{'HideFixedPriceStoreItems'} = shift
125             }
126              
127             =head2 isHideFixedPriceStoreItems()
128              
129             Calls: GetStorePreferences
130             Returned: Always
131              
132             # Returns: 'xs:boolean'
133              
134             =cut
135              
136             sub isHideFixedPriceStoreItems {
137             my $self = shift;
138             return $self->{'HideFixedPriceStoreItems'};
139             }
140              
141              
142             =head2 setMessageItem()
143              
144             Add a message when the Store owner is on vacation to all their active items.
145              
146             Calls: SetStorePreferences
147             RequiredInput: No
148              
149             # Argument: 'xs:boolean'
150              
151             =cut
152              
153             sub setMessageItem {
154             my $self = shift;
155             $self->{'MessageItem'} = shift
156             }
157              
158             =head2 isMessageItem()
159              
160             Calls: GetStorePreferences
161             Returned: Always
162              
163             # Returns: 'xs:boolean'
164              
165             =cut
166              
167             sub isMessageItem {
168             my $self = shift;
169             return $self->{'MessageItem'};
170             }
171              
172              
173             =head2 setMessageStore()
174              
175             Add a message to all the Store pages when the Store owner is on vacation.
176              
177             Calls: SetStorePreferences
178             RequiredInput: No
179              
180             # Argument: 'xs:boolean'
181              
182             =cut
183              
184             sub setMessageStore {
185             my $self = shift;
186             $self->{'MessageStore'} = shift
187             }
188              
189             =head2 isMessageStore()
190              
191             Calls: GetStorePreferences
192             Returned: Always
193              
194             # Returns: 'xs:boolean'
195              
196             =cut
197              
198             sub isMessageStore {
199             my $self = shift;
200             return $self->{'MessageStore'};
201             }
202              
203              
204             =head2 setMessageStoreCustomText()
205              
206             The custom message to display for the Store when the user is on vacation.
207             May contain HTML markup.
208              
209             Calls: SetStorePreferences
210             RequiredInput: No
211              
212             # Argument: 'xs:string'
213              
214             =cut
215              
216             sub setMessageStoreCustomText {
217             my $self = shift;
218             $self->{'MessageStoreCustomText'} = shift
219             }
220              
221             =head2 getMessageStoreCustomText()
222              
223             Calls: GetStorePreferences
224             Returned: Conditionally
225              
226             # Returns: 'xs:string'
227              
228             =cut
229              
230             sub getMessageStoreCustomText {
231             my $self = shift;
232             return $self->{'MessageStoreCustomText'};
233             }
234              
235              
236             =head2 setOnVacation()
237              
238             Specifies whether the Store owner is on vacation.
239             When OnVacation is true, the Store owner's listings do not appear on Express,
240             regardless of the listing format and regardless of how the seller has configured
241             their vacation settings for items that appear on eBay.
242              
243             Calls: SetStorePreferences
244             RequiredInput: No
245              
246             # Argument: 'xs:boolean'
247              
248             =cut
249              
250             sub setOnVacation {
251             my $self = shift;
252             $self->{'OnVacation'} = shift
253             }
254              
255             =head2 isOnVacation()
256              
257             Calls: GetStorePreferences
258             Returned: Always
259              
260             # Returns: 'xs:boolean'
261              
262             =cut
263              
264             sub isOnVacation {
265             my $self = shift;
266             return $self->{'OnVacation'};
267             }
268              
269              
270             =head2 setReturnDate()
271              
272             Seller return date from vacation.
273              
274             Calls: SetStorePreferences
275             RequiredInput: No
276              
277             # Argument: 'xs:dateTime'
278              
279             =cut
280              
281             sub setReturnDate {
282             my $self = shift;
283             $self->{'ReturnDate'} = shift
284             }
285              
286             =head2 getReturnDate()
287              
288             Calls: GetStorePreferences
289             Returned: Conditionally
290              
291             # Returns: 'xs:dateTime'
292              
293             =cut
294              
295             sub getReturnDate {
296             my $self = shift;
297             return $self->{'ReturnDate'};
298             }
299              
300              
301              
302              
303              
304             ## Attribute and Property lists
305             sub getPropertiesList {
306             my $self = shift;
307             return \@gaProperties;
308             }
309              
310             sub getAttributesList {
311             my $self = shift;
312             return \@gaAttributes;
313             }
314              
315              
316              
317             1;