File Coverage

lib/eBay/API/XML/Call/GetExpressWishList/GetExpressWishListRequestType.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::GetExpressWishList::GetExpressWishListRequestType;
4              
5 1     1   1420 use strict;
  1         2  
  1         38  
6 1     1   6 use warnings;
  1         2  
  1         35  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. GetExpressWishListRequestType.pm
12             # Generated by: ......... genEBayApiDataTypes.pl
13             # Last Generated: ....... 07/07/2008 17:42
14             # API Release Number: ... 571
15             #
16             ##########################################################################
17              
18             =head1 NAME
19              
20             eBay::API::XML::Call::GetExpressWishList::GetExpressWishListRequestType
21              
22             =head1 DESCRIPTION
23              
24             Enables users to retrieve and view eBay Express wish lists. Wish list is a feature
25             currently available on the eBay Express web site. This call does not enable creation,
26             modification, or removal of wish lists. Wish lists may be public or private. Private wish
27             lists are available for viewing only by their owners. User ID is not returned in the
28             response. Only one of the search input fields, (FirstName, LastName, UserID, and WishListID)
29             is recognized in a request. When all search input fields are included in a request, WishListID
30             takes precedence, followed by UserID, which is followed by FirstName and/or LastName. If none
31             of the search input fields are used, the call returns the wish list of the requesting user.
32              
33              
34              
35             =head1 SYNOPSIS
36              
37             =cut
38              
39              
40             =head1 INHERITANCE
41              
42             eBay::API::XML::Call::GetExpressWishList::GetExpressWishListRequestType inherits from the L class
43              
44             =cut
45              
46 1     1   45 use eBay::API::XML::RequestDataType;
  0            
  0            
47             our @ISA = ("eBay::API::XML::RequestDataType");
48              
49             use eBay::API::XML::DataType::PaginationType;
50             use eBay::API::XML::DataType::Enum::WishListSortCodeType;
51              
52              
53             my @gaProperties = ( [ 'FirstName', 'xs:string', '', '', '' ]
54             , [ 'LastName', 'xs:string', '', '', '' ]
55             , [ 'Pagination', 'ns:PaginationType', ''
56             ,'eBay::API::XML::DataType::PaginationType', '1' ]
57             , [ 'SortOrder', 'ns:WishListSortCodeType', ''
58             ,'eBay::API::XML::DataType::Enum::WishListSortCodeType', '' ]
59             , [ 'UserID', 'xs:string', '', '', '' ]
60             , [ 'WishListID', 'xs:string', '', '', '' ]
61             );
62             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
63              
64             my @gaAttributes = (
65             );
66             push @gaAttributes, @{eBay::API::XML::RequestDataType::getAttributesList()};
67              
68             =head1 Subroutines:
69              
70             =cut
71              
72             sub new {
73             my $classname = shift;
74             my %args = @_;
75             my $self = $classname->SUPER::new(%args);
76             return $self;
77             }
78              
79             sub isScalar {
80             return 0;
81             }
82              
83              
84              
85             =head2 setFirstName()
86              
87             User first name. Can be used in combination with LastName. Will be ignored if either UserID or
88             WishListID is included in the request.
89              
90             RequiredInput: No
91             # Argument: 'xs:string'
92              
93             =cut
94              
95             sub setFirstName {
96             my $self = shift;
97             $self->{'FirstName'} = shift
98             }
99              
100             =head2 getFirstName()
101              
102             # Returns: 'xs:string'
103              
104             =cut
105              
106             sub getFirstName {
107             my $self = shift;
108             return $self->{'FirstName'};
109             }
110              
111              
112             =head2 setLastName()
113              
114             User last name. Can be used in combination with FirstName. Will be ignored if either UserID or
115             WishListID is included in the request.
116              
117             RequiredInput: No
118             # Argument: 'xs:string'
119              
120             =cut
121              
122             sub setLastName {
123             my $self = shift;
124             $self->{'LastName'} = shift
125             }
126              
127             =head2 getLastName()
128              
129             # Returns: 'xs:string'
130              
131             =cut
132              
133             sub getLastName {
134             my $self = shift;
135             return $self->{'LastName'};
136             }
137              
138              
139             =head2 setPagination()
140              
141             Contains the data that control the pagination of items or products in any returned wish list.
142              
143             RequiredInput: No
144             # Argument: 'ns:PaginationType'
145              
146             =cut
147              
148             sub setPagination {
149             my $self = shift;
150             $self->{'Pagination'} = shift
151             }
152              
153             =head2 getPagination()
154              
155             # Returns: 'ns:PaginationType'
156              
157             =cut
158              
159             sub getPagination {
160             my $self = shift;
161             return $self->_getDataTypeInstance( 'Pagination'
162             ,'eBay::API::XML::DataType::PaginationType');
163             }
164              
165              
166             =head2 setSortOrder()
167              
168             Sort order for returned results. Default is CreationDateDescending, which returns the most
169             recently added wish list items first.
170              
171             RequiredInput: No
172             # Argument: 'ns:WishListSortCodeType'
173              
174             =cut
175              
176             sub setSortOrder {
177             my $self = shift;
178             $self->{'SortOrder'} = shift
179             }
180              
181             =head2 getSortOrder()
182              
183             # Returns: 'ns:WishListSortCodeType'
184              
185             =cut
186              
187             sub getSortOrder {
188             my $self = shift;
189             return $self->{'SortOrder'};
190             }
191              
192              
193             =head2 setUserID()
194              
195             eBay user ID. Can be used as an alternative to WishListID or to the combination FirstName and LastName.
196             If WishListID is used, UserID will be ignored. This value is not returned in the response.
197              
198             RequiredInput: No
199             # Argument: 'xs:string'
200              
201             =cut
202              
203             sub setUserID {
204             my $self = shift;
205             $self->{'UserID'} = shift
206             }
207              
208             =head2 getUserID()
209              
210             # Returns: 'xs:string'
211              
212             =cut
213              
214             sub getUserID {
215             my $self = shift;
216             return $self->{'UserID'};
217             }
218              
219              
220             =head2 setWishListID()
221              
222             Identifies an eBay Express wish list. When used in a request, UserID and FirstName and LastName are ignored.
223              
224             RequiredInput: No
225             # Argument: 'xs:string'
226              
227             =cut
228              
229             sub setWishListID {
230             my $self = shift;
231             $self->{'WishListID'} = shift
232             }
233              
234             =head2 getWishListID()
235              
236             # Returns: 'xs:string'
237              
238             =cut
239              
240             sub getWishListID {
241             my $self = shift;
242             return $self->{'WishListID'};
243             }
244              
245              
246              
247              
248              
249             ## Attribute and Property lists
250             sub getPropertiesList {
251             my $self = shift;
252             return \@gaProperties;
253             }
254              
255             sub getAttributesList {
256             my $self = shift;
257             return \@gaAttributes;
258             }
259              
260              
261              
262             1;