File Coverage

lib/eBay/API/XML/Call/GetStoreCustomPage/GetStoreCustomPageRequestType.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::GetStoreCustomPage::GetStoreCustomPageRequestType;
4              
5 1     1   1494 use strict;
  1         2  
  1         28  
6 1     1   5 use warnings;
  1         2  
  1         27  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. GetStoreCustomPageRequestType.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::GetStoreCustomPage::GetStoreCustomPageRequestType
21              
22             =head1 DESCRIPTION
23              
24             Retrieves the custom page or pages for the user's Store.
25              
26              
27              
28             =head1 SYNOPSIS
29              
30             =cut
31              
32              
33             =head1 INHERITANCE
34              
35             eBay::API::XML::Call::GetStoreCustomPage::GetStoreCustomPageRequestType inherits from the L class
36              
37             =cut
38              
39 1     1   33 use eBay::API::XML::RequestDataType;
  0            
  0            
40             our @ISA = ("eBay::API::XML::RequestDataType");
41              
42              
43              
44             my @gaProperties = ( [ 'PageID', 'xs:long', '', '', '' ]
45             );
46             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
47              
48             my @gaAttributes = (
49             );
50             push @gaAttributes, @{eBay::API::XML::RequestDataType::getAttributesList()};
51              
52             =head1 Subroutines:
53              
54             =cut
55              
56             sub new {
57             my $classname = shift;
58             my %args = @_;
59             my $self = $classname->SUPER::new(%args);
60             return $self;
61             }
62              
63             sub isScalar {
64             return 0;
65             }
66              
67              
68              
69             =head2 setPageID()
70              
71             If a PageID is specified, then that page is returned, and
72             the returned page contains the page Content.
73             If no PageID is specified, then all pages are returned, without
74             the page Content.
75              
76             RequiredInput: No
77             # Argument: 'xs:long'
78              
79             =cut
80              
81             sub setPageID {
82             my $self = shift;
83             $self->{'PageID'} = shift
84             }
85              
86             =head2 getPageID()
87              
88             # Returns: 'xs:long'
89              
90             =cut
91              
92             sub getPageID {
93             my $self = shift;
94             return $self->{'PageID'};
95             }
96              
97              
98              
99              
100              
101             ## Attribute and Property lists
102             sub getPropertiesList {
103             my $self = shift;
104             return \@gaProperties;
105             }
106              
107             sub getAttributesList {
108             my $self = shift;
109             return \@gaAttributes;
110             }
111              
112              
113              
114             1;