File Coverage

lib/eBay/API/XML/DataType/StoreCustomPageType.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::StoreCustomPageType;
4              
5 1     1   1204 use strict;
  1         3  
  1         59  
6 1     1   6 use warnings;
  1         3  
  1         32  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. StoreCustomPageType.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::StoreCustomPageType
21              
22             =head1 DESCRIPTION
23              
24              
25              
26             =head1 SYNOPSIS
27              
28             =cut
29              
30              
31             =head1 INHERITANCE
32              
33             eBay::API::XML::DataType::StoreCustomPageType inherits from the L class
34              
35             =cut
36              
37 1     1   35 use eBay::API::XML::BaseDataType;
  0            
  0            
38             our @ISA = ("eBay::API::XML::BaseDataType");
39              
40             use eBay::API::XML::DataType::Enum::StoreCustomPageStatusCodeType;
41              
42              
43             my @gaProperties = ( [ 'Content', 'xs:string', '', '', '' ]
44             , [ 'LeftNav', 'xs:boolean', '', '', '' ]
45             , [ 'Name', 'xs:string', '', '', '' ]
46             , [ 'Order', 'xs:int', '', '', '' ]
47             , [ 'PageID', 'xs:long', '', '', '' ]
48             , [ 'PreviewEnabled', 'xs:boolean', '', '', '' ]
49             , [ 'Status', 'ns:StoreCustomPageStatusCodeType', ''
50             ,'eBay::API::XML::DataType::Enum::StoreCustomPageStatusCodeType', '' ]
51             , [ 'URL', 'xs:anyURI', '', '', '' ]
52             , [ 'URLPath', 'xs:string', '', '', '' ]
53             );
54             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
55              
56             my @gaAttributes = (
57             );
58             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
59              
60             =head1 Subroutines:
61              
62             =cut
63              
64             sub new {
65             my $classname = shift;
66             my %args = @_;
67             my $self = $classname->SUPER::new(%args);
68             return $self;
69             }
70              
71             sub isScalar {
72             return 0;
73             }
74              
75              
76              
77             =head2 setContent()
78              
79             The HTML content of the custom page. This field has a maximum size
80             of 96 kilobytes. If PreviewEnabled is true, then this value is required.
81             Otherwise, it is optional.
82              
83             Calls: SetStoreCustomPage
84             RequiredInput: Conditionally
85              
86             # Argument: 'xs:string'
87              
88             =cut
89              
90             sub setContent {
91             my $self = shift;
92             $self->{'Content'} = shift
93             }
94              
95             =head2 getContent()
96              
97             Calls: GetStoreCustomPage
98             Returned: Conditionally
99              
100             Calls: SetStoreCustomPage
101             Returned: Conditionally
102              
103             # Returns: 'xs:string'
104              
105             =cut
106              
107             sub getContent {
108             my $self = shift;
109             return $self->{'Content'};
110             }
111              
112              
113             =head2 setLeftNav()
114              
115             Specifies whether the left navigation bar is visible on the page. LeftNav
116             is included in the GetStoreCustomPage response when PageID is specified
117             in the request.
118              
119             Calls: SetStoreCustomPage
120             RequiredInput: Conditionally
121              
122             # Argument: 'xs:boolean'
123              
124             =cut
125              
126             sub setLeftNav {
127             my $self = shift;
128             $self->{'LeftNav'} = shift
129             }
130              
131             =head2 isLeftNav()
132              
133             Calls: GetStoreCustomPage
134             Returned: Conditionally
135              
136             Calls: SetStoreCustomPage
137             Returned: Conditionally
138              
139             # Returns: 'xs:boolean'
140              
141             =cut
142              
143             sub isLeftNav {
144             my $self = shift;
145             return $self->{'LeftNav'};
146             }
147              
148              
149             =head2 setName()
150              
151             Name of the Store custom page. This value is required if you are creating a
152             new page (by not specifying a PageID). Note that you must include a Name for
153             the page even if you are using the PreviewEnabled tag. However, since using
154             the preview functionality means that the page will not be persisted, you can
155             enter a dummy value for this field if you have not decided on a name for the
156             page. The Name is used in links to the page.
157              
158             Calls: SetStoreCustomPage
159             RequiredInput: Conditionally
160              
161             # Argument: 'xs:string'
162              
163             =cut
164              
165             sub setName {
166             my $self = shift;
167             $self->{'Name'} = shift
168             }
169              
170             =head2 getName()
171              
172             Calls: GetStoreCustomPage
173             Returned: Always
174              
175             Calls: SetStoreCustomPage
176             Returned: Conditionally
177              
178             # Returns: 'xs:string'
179              
180             =cut
181              
182             sub getName {
183             my $self = shift;
184             return $self->{'Name'};
185             }
186              
187              
188             =head2 setOrder()
189              
190             Order in which the page is displayed in the list of custom pages.
191              
192             Calls: SetStoreCustomPage
193             RequiredInput: Conditionally
194              
195             # Argument: 'xs:int'
196              
197             =cut
198              
199             sub setOrder {
200             my $self = shift;
201             $self->{'Order'} = shift
202             }
203              
204             =head2 getOrder()
205              
206             Calls: GetStoreCustomPage
207             Returned: Always
208              
209             Calls: SetStoreCustomPage
210             Returned: Conditionally
211              
212             # Returns: 'xs:int'
213              
214             =cut
215              
216             sub getOrder {
217             my $self = shift;
218             return $self->{'Order'};
219             }
220              
221              
222             =head2 setPageID()
223              
224             Unique identifier for the Store custom page. When you are using
225             SetStoreCustomPage, if you specify a valid PageID, the custom page
226             is updated. If you do not specify a PageID, the custom page is
227             added.
228              
229             Calls: SetStoreCustomPage
230             RequiredInput: Conditionally
231              
232             # Argument: 'xs:long'
233              
234             =cut
235              
236             sub setPageID {
237             my $self = shift;
238             $self->{'PageID'} = shift
239             }
240              
241             =head2 getPageID()
242              
243             Calls: GetStoreCustomPage
244             Returned: Always
245              
246             Calls: SetStoreCustomPage
247             Returned: Conditionally
248              
249             # Returns: 'xs:long'
250              
251             =cut
252              
253             sub getPageID {
254             my $self = shift;
255             return $self->{'PageID'};
256             }
257              
258              
259             =head2 setPreviewEnabled()
260              
261             If true, then the other inputs are ignored, and the content of the
262             page as it will be displayed within the Store is returned. If
263             false, then the page is either modified or added, and the content
264             of the page is not returned.
265              
266             Calls: SetStoreCustomPage
267             RequiredInput: No
268              
269             # Argument: 'xs:boolean'
270              
271             =cut
272              
273             sub setPreviewEnabled {
274             my $self = shift;
275             $self->{'PreviewEnabled'} = shift
276             }
277              
278             =head2 isPreviewEnabled()
279              
280             Calls: SetStoreCustomPage
281             Returned: Conditionally
282              
283             # Returns: 'xs:boolean'
284              
285             =cut
286              
287             sub isPreviewEnabled {
288             my $self = shift;
289             return $self->{'PreviewEnabled'};
290             }
291              
292              
293             =head2 setStatus()
294              
295             Status of the custom page, active or inactive. Set Status to Delete with SetStoreCustomPage to delete the page.
296              
297             Calls: SetStoreCustomPage
298             RequiredInput: Conditionally
299              
300             # Argument: 'ns:StoreCustomPageStatusCodeType'
301              
302             =cut
303              
304             sub setStatus {
305             my $self = shift;
306             $self->{'Status'} = shift
307             }
308              
309             =head2 getStatus()
310              
311             Calls: GetStoreCustomPage
312             Returned: Always
313             OnlyTheseValues: Active, Inactive
314              
315             Calls: SetStoreCustomPage
316             Returned: Conditionally
317              
318             # Returns: 'ns:StoreCustomPageStatusCodeType'
319              
320             =cut
321              
322             sub getStatus {
323             my $self = shift;
324             return $self->{'Status'};
325             }
326              
327              
328             =head2 setURL()
329              
330             Full URL of the Store custom page. URLPath is included in the
331             GetStoreCustomPage response when PageID is specified in the request.
332              
333             # Argument: 'xs:anyURI'
334              
335             =cut
336              
337             sub setURL {
338             my $self = shift;
339             $self->{'URL'} = shift
340             }
341              
342             =head2 getURL()
343              
344             Calls: GetStoreCustomPage
345             Returned: Conditionally
346              
347             # Returns: 'xs:anyURI'
348              
349             =cut
350              
351             sub getURL {
352             my $self = shift;
353             return $self->{'URL'};
354             }
355              
356              
357             =head2 setURLPath()
358              
359             The URL path of the custom page. Only if you are using Chinese characters in
360             the Name property for the custom page do you need to use this field, such as
361             if you are opening a Store on the Taiwan site. The reason for this is that
362             the URL path is normally derived from the Store custom page name, but it
363             cannot be derived from the name of the custom page if it contains Chinese
364             characters because URLs cannot contain Chinese characters.
365             URLPath is included in the GetStoreCustomPage response when PageID is
366             specified.
367              
368             Calls: SetStoreCustomPage
369             RequiredInput: Conditionally
370              
371             # Argument: 'xs:string'
372              
373             =cut
374              
375             sub setURLPath {
376             my $self = shift;
377             $self->{'URLPath'} = shift
378             }
379              
380             =head2 getURLPath()
381              
382             Calls: GetStoreCustomPage
383             Returned: Conditionally
384              
385             Calls: SetStoreCustomPage
386             Returned: Conditionally
387              
388             # Returns: 'xs:string'
389              
390             =cut
391              
392             sub getURLPath {
393             my $self = shift;
394             return $self->{'URLPath'};
395             }
396              
397              
398              
399              
400              
401             ## Attribute and Property lists
402             sub getPropertiesList {
403             my $self = shift;
404             return \@gaProperties;
405             }
406              
407             sub getAttributesList {
408             my $self = shift;
409             return \@gaAttributes;
410             }
411              
412              
413              
414             1;