File Coverage

lib/eBay/API/XML/Call/GetMemberMessages/GetMemberMessagesRequestType.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::GetMemberMessages::GetMemberMessagesRequestType;
4              
5 1     1   1424 use strict;
  1         2  
  1         47  
6 1     1   5 use warnings;
  1         2  
  1         25  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. GetMemberMessagesRequestType.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::GetMemberMessages::GetMemberMessagesRequestType
21              
22             =head1 DESCRIPTION
23              
24             Retrieves a list of the messages buyers have posted about your
25             active item listings.
26              
27              
28              
29             =head1 SYNOPSIS
30              
31             =cut
32              
33              
34             =head1 INHERITANCE
35              
36             eBay::API::XML::Call::GetMemberMessages::GetMemberMessagesRequestType inherits from the L class
37              
38             =cut
39              
40 1     1   33 use eBay::API::XML::RequestDataType;
  0            
  0            
41             our @ISA = ("eBay::API::XML::RequestDataType");
42              
43             use eBay::API::XML::DataType::ItemIDType;
44             use eBay::API::XML::DataType::PaginationType;
45             use eBay::API::XML::DataType::UserIDType;
46             use eBay::API::XML::DataType::Enum::MessageStatusTypeCodeType;
47             use eBay::API::XML::DataType::Enum::MessageTypeCodeType;
48              
49              
50             my @gaProperties = ( [ 'DisplayToPublic', 'xs:boolean', '', '', '' ]
51             , [ 'EndCreationTime', 'xs:dateTime', '', '', '' ]
52             , [ 'ItemID', 'ns:ItemIDType', ''
53             ,'eBay::API::XML::DataType::ItemIDType', '1' ]
54             , [ 'MailMessageType', 'ns:MessageTypeCodeType', ''
55             ,'eBay::API::XML::DataType::Enum::MessageTypeCodeType', '' ]
56             , [ 'MemberMessageID', 'xs:string', '', '', '' ]
57             , [ 'MessageStatus', 'ns:MessageStatusTypeCodeType', ''
58             ,'eBay::API::XML::DataType::Enum::MessageStatusTypeCodeType', '' ]
59             , [ 'Pagination', 'ns:PaginationType', ''
60             ,'eBay::API::XML::DataType::PaginationType', '1' ]
61             , [ 'SenderID', 'ns:UserIDType', ''
62             ,'eBay::API::XML::DataType::UserIDType', '1' ]
63             , [ 'StartCreationTime', 'xs:dateTime', '', '', '' ]
64             );
65             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
66              
67             my @gaAttributes = (
68             );
69             push @gaAttributes, @{eBay::API::XML::RequestDataType::getAttributesList()};
70              
71             =head1 Subroutines:
72              
73             =cut
74              
75             sub new {
76             my $classname = shift;
77             my %args = @_;
78             my $self = $classname->SUPER::new(%args);
79             return $self;
80             }
81              
82             sub isScalar {
83             return 0;
84             }
85              
86              
87              
88             =head2 setDisplayToPublic()
89              
90             Specifies if the message should be displayed on the
91             website with the item listing.
92              
93             RequiredInput: No
94             # Argument: 'xs:boolean'
95              
96             =cut
97              
98             sub setDisplayToPublic {
99             my $self = shift;
100             $self->{'DisplayToPublic'} = shift
101             }
102              
103             =head2 isDisplayToPublic()
104              
105             # Returns: 'xs:boolean'
106              
107             =cut
108              
109             sub isDisplayToPublic {
110             my $self = shift;
111             return $self->{'DisplayToPublic'};
112             }
113              
114              
115             =head2 setEndCreationTime()
116              
117             Used as end of date range filter. If specified, filters
118             the returned messages to only those with a creation date
119             less than or equal to the specified date and time.
120            

121             For CEM messages, StartCreationTime and EndCreationTime
122             must be provided.
123            

124             For ASQ messages, either the ItemID, or a date range
125             (specified with StartCreationTime and EndCreationTime),
126             or both must be included.
127              
128             RequiredInput: Conditionally
129             # Argument: 'xs:dateTime'
130              
131             =cut
132              
133             sub setEndCreationTime {
134             my $self = shift;
135             $self->{'EndCreationTime'} = shift
136             }
137              
138             =head2 getEndCreationTime()
139              
140             # Returns: 'xs:dateTime'
141              
142             =cut
143              
144             sub getEndCreationTime {
145             my $self = shift;
146             return $self->{'EndCreationTime'};
147             }
148              
149              
150             =head2 setItemID()
151              
152             The ID of the item the message is about.
153            

154             For ASQ messages, either the ItemID, or a date range
155             (specified with StartCreationTime and EndCreationTime),
156             or both must be included. ItemID is otherwise ignored.
157              
158             MaxLength: 19 (Note: The eBay database specifies 38. Currently, Item IDs are usually 9 to 12 digits)
159              
160             RequiredInput: Conditionally
161             # Argument: 'ns:ItemIDType'
162              
163             =cut
164              
165             sub setItemID {
166             my $self = shift;
167             $self->{'ItemID'} = shift
168             }
169              
170             =head2 getItemID()
171              
172             # Returns: 'ns:ItemIDType'
173              
174             =cut
175              
176             sub getItemID {
177             my $self = shift;
178             return $self->_getDataTypeInstance( 'ItemID'
179             ,'eBay::API::XML::DataType::ItemIDType');
180             }
181              
182              
183             =head2 setMailMessageType()
184              
185             The type of message.
186              
187             RequiredInput: Yes
188             # Argument: 'ns:MessageTypeCodeType'
189              
190             =cut
191              
192             sub setMailMessageType {
193             my $self = shift;
194             $self->{'MailMessageType'} = shift
195             }
196              
197             =head2 getMailMessageType()
198              
199             # Returns: 'ns:MessageTypeCodeType'
200              
201             =cut
202              
203             sub getMailMessageType {
204             my $self = shift;
205             return $self->{'MailMessageType'};
206             }
207              
208              
209             =head2 setMemberMessageID()
210              
211             An ID that uniquely identifies the message for a given user to be retrieved.
212             Used for the AskSellerQuestion notification only.
213              
214             RequiredInput: No
215             # Argument: 'xs:string'
216              
217             =cut
218              
219             sub setMemberMessageID {
220             my $self = shift;
221             $self->{'MemberMessageID'} = shift
222             }
223              
224             =head2 getMemberMessageID()
225              
226             # Returns: 'xs:string'
227              
228             =cut
229              
230             sub getMemberMessageID {
231             my $self = shift;
232             return $self->{'MemberMessageID'};
233             }
234              
235              
236             =head2 setMessageStatus()
237              
238             The status of the message.
239              
240             RequiredInput: Conditionally
241             # Argument: 'ns:MessageStatusTypeCodeType'
242              
243             =cut
244              
245             sub setMessageStatus {
246             my $self = shift;
247             $self->{'MessageStatus'} = shift
248             }
249              
250             =head2 getMessageStatus()
251              
252             # Returns: 'ns:MessageStatusTypeCodeType'
253              
254             =cut
255              
256             sub getMessageStatus {
257             my $self = shift;
258             return $self->{'MessageStatus'};
259             }
260              
261              
262             =head2 setPagination()
263              
264             Standard pagination argument used to reduce response.
265              
266             RequiredInput: Yes
267             # Argument: 'ns:PaginationType'
268              
269             =cut
270              
271             sub setPagination {
272             my $self = shift;
273             $self->{'Pagination'} = shift
274             }
275              
276             =head2 getPagination()
277              
278             # Returns: 'ns:PaginationType'
279              
280             =cut
281              
282             sub getPagination {
283             my $self = shift;
284             return $self->_getDataTypeInstance( 'Pagination'
285             ,'eBay::API::XML::DataType::PaginationType');
286             }
287              
288              
289             =head2 setSenderID()
290              
291             An eBay ID that uniquely identifies a user. For
292             GetMemberMessages, this is the sender of the message. If
293             included in the request, returns only messages from the
294             specified sender.
295              
296             RequiredInput: No
297             # Argument: 'ns:UserIDType'
298              
299             =cut
300              
301             sub setSenderID {
302             my $self = shift;
303             $self->{'SenderID'} = shift
304             }
305              
306             =head2 getSenderID()
307              
308             # Returns: 'ns:UserIDType'
309              
310             =cut
311              
312             sub getSenderID {
313             my $self = shift;
314             return $self->_getDataTypeInstance( 'SenderID'
315             ,'eBay::API::XML::DataType::UserIDType');
316             }
317              
318              
319             =head2 setStartCreationTime()
320              
321             Used as beginning of date range filter. If specified,
322             filters the returned messages to only those with a
323             creation date greater than or equal to the specified
324             date and time.
325            

326             For CEM messages, StartCreationTime and EndCreationTime
327             must be provided.
328            

329             For ASQ messages, either the ItemID, or a date range
330             (specified with StartCreationTime and EndCreationTime),
331             or both must be included.
332              
333             RequiredInput: Conditionally
334             # Argument: 'xs:dateTime'
335              
336             =cut
337              
338             sub setStartCreationTime {
339             my $self = shift;
340             $self->{'StartCreationTime'} = shift
341             }
342              
343             =head2 getStartCreationTime()
344              
345             # Returns: 'xs:dateTime'
346              
347             =cut
348              
349             sub getStartCreationTime {
350             my $self = shift;
351             return $self->{'StartCreationTime'};
352             }
353              
354              
355              
356              
357              
358             ## Attribute and Property lists
359             sub getPropertiesList {
360             my $self = shift;
361             return \@gaProperties;
362             }
363              
364             sub getAttributesList {
365             my $self = shift;
366             return \@gaAttributes;
367             }
368              
369              
370              
371             1;