lib/eBay/API/XML/DataType/MyMessagesMessageType.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::MyMessagesMessageType; | ||||||
4 | |||||||
5 | 1 | 1 | 1074 | use strict; | |||
1 | 2 | ||||||
1 | 28 | ||||||
6 | 1 | 1 | 4 | use warnings; | |||
1 | 2 | ||||||
1 | 26 | ||||||
7 | |||||||
8 | ########################################################################## | ||||||
9 | # | ||||||
10 | # Module: ............... |
||||||
11 | # File: ................. MyMessagesMessageType.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::MyMessagesMessageType | ||||||
21 | |||||||
22 | =head1 DESCRIPTION | ||||||
23 | |||||||
24 | Contains the message information for each message specified in | ||||||
25 | MessageIDs. The amount and type of information returned varies based on | ||||||
26 | the requested detail level. | ||||||
27 | |||||||
28 | |||||||
29 | |||||||
30 | =head1 SYNOPSIS | ||||||
31 | |||||||
32 | =cut | ||||||
33 | |||||||
34 | |||||||
35 | =head1 INHERITANCE | ||||||
36 | |||||||
37 | eBay::API::XML::DataType::MyMessagesMessageType inherits from the L |
||||||
38 | |||||||
39 | =cut | ||||||
40 | |||||||
41 | 1 | 1 | 34 | use eBay::API::XML::BaseDataType; | |||
0 | |||||||
0 | |||||||
42 | our @ISA = ("eBay::API::XML::BaseDataType"); | ||||||
43 | |||||||
44 | use eBay::API::XML::DataType::ItemIDType; | ||||||
45 | use eBay::API::XML::DataType::MyMessagesFolderType; | ||||||
46 | use eBay::API::XML::DataType::MyMessagesForwardDetailsType; | ||||||
47 | use eBay::API::XML::DataType::MyMessagesMessageIDType; | ||||||
48 | use eBay::API::XML::DataType::MyMessagesResponseDetailsType; | ||||||
49 | use eBay::API::XML::DataType::Enum::ListingStatusCodeType; | ||||||
50 | use eBay::API::XML::DataType::Enum::MessageTypeCodeType; | ||||||
51 | use eBay::API::XML::DataType::Enum::QuestionTypeCodeType; | ||||||
52 | |||||||
53 | |||||||
54 | my @gaProperties = ( [ 'Content', 'xs:string', '', '', '' ] | ||||||
55 | , [ 'ContentType', 'xs:string', '', '', '' ] | ||||||
56 | , [ 'CreationDate', 'xs:dateTime', '', '', '' ] | ||||||
57 | , [ 'ExpirationDate', 'xs:dateTime', '', '', '' ] | ||||||
58 | , [ 'ExternalMessageID', 'xs:string', '', '', '' ] | ||||||
59 | , [ 'Flagged', 'xs:boolean', '', '', '' ] | ||||||
60 | , [ 'Folder', 'ns:MyMessagesFolderType', '' | ||||||
61 | ,'eBay::API::XML::DataType::MyMessagesFolderType', '1' ] | ||||||
62 | , [ 'ForwardDetails', 'ns:MyMessagesForwardDetailsType', '' | ||||||
63 | ,'eBay::API::XML::DataType::MyMessagesForwardDetailsType', '1' ] | ||||||
64 | , [ 'ItemID', 'ns:ItemIDType', '' | ||||||
65 | ,'eBay::API::XML::DataType::ItemIDType', '1' ] | ||||||
66 | , [ 'ListingStatus', 'ns:ListingStatusCodeType', '' | ||||||
67 | ,'eBay::API::XML::DataType::Enum::ListingStatusCodeType', '' ] | ||||||
68 | , [ 'MessageID', 'ns:MyMessagesMessageIDType', '' | ||||||
69 | ,'eBay::API::XML::DataType::MyMessagesMessageIDType', '1' ] | ||||||
70 | , [ 'MessageType', 'ns:MessageTypeCodeType', '' | ||||||
71 | ,'eBay::API::XML::DataType::Enum::MessageTypeCodeType', '' ] | ||||||
72 | , [ 'QuestionType', 'ns:QuestionTypeCodeType', '' | ||||||
73 | ,'eBay::API::XML::DataType::Enum::QuestionTypeCodeType', '' ] | ||||||
74 | , [ 'Read', 'xs:boolean', '', '', '' ] | ||||||
75 | , [ 'ReceiveDate', 'xs:dateTime', '', '', '' ] | ||||||
76 | , [ 'RecipientUserID', 'xs:string', '', '', '' ] | ||||||
77 | , [ 'ResponseDetails', 'ns:MyMessagesResponseDetailsType', '' | ||||||
78 | ,'eBay::API::XML::DataType::MyMessagesResponseDetailsType', '1' ] | ||||||
79 | , [ 'SendToName', 'xs:string', '', '', '' ] | ||||||
80 | , [ 'Sender', 'xs:string', '', '', '' ] | ||||||
81 | , [ 'Subject', 'xs:string', '', '', '' ] | ||||||
82 | , [ 'Text', 'xs:string', '', '', '' ] | ||||||
83 | ); | ||||||
84 | push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()}; | ||||||
85 | |||||||
86 | my @gaAttributes = ( | ||||||
87 | ); | ||||||
88 | push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()}; | ||||||
89 | |||||||
90 | =head1 Subroutines: | ||||||
91 | |||||||
92 | =cut | ||||||
93 | |||||||
94 | sub new { | ||||||
95 | my $classname = shift; | ||||||
96 | my %args = @_; | ||||||
97 | my $self = $classname->SUPER::new(%args); | ||||||
98 | return $self; | ||||||
99 | } | ||||||
100 | |||||||
101 | sub isScalar { | ||||||
102 | return 0; | ||||||
103 | } | ||||||
104 | |||||||
105 | |||||||
106 | |||||||
107 | =head2 setContent() | ||||||
108 | |||||||
109 | The message body. Plain text. Returned only for messages created after late August 2008. | ||||||
110 | The API does not currently check the user email format preferences that can | ||||||
111 | be specified in My Messages on the eBay.com Web site. | ||||||
112 | |||||||
113 | # Argument: 'xs:string' | ||||||
114 | |||||||
115 | =cut | ||||||
116 | |||||||
117 | sub setContent { | ||||||
118 | my $self = shift; | ||||||
119 | $self->{'Content'} = shift | ||||||
120 | } | ||||||
121 | |||||||
122 | =head2 getContent() | ||||||
123 | |||||||
124 | Calls: GetMyMessages | ||||||
125 | Returned: Conditionally | ||||||
126 | Details: DetailLevel: ReturnMessages | ||||||
127 | |||||||
128 | # Returns: 'xs:string' | ||||||
129 | |||||||
130 | =cut | ||||||
131 | |||||||
132 | sub getContent { | ||||||
133 | my $self = shift; | ||||||
134 | return $self->{'Content'}; | ||||||
135 | } | ||||||
136 | |||||||
137 | |||||||
138 | =head2 setContentType() | ||||||
139 | |||||||
140 | The content type of the body text. The three acceptable values | ||||||
141 | are "TEXT", "HTML", and "XML" (case sensitive). | ||||||
142 | |||||||
143 | # Argument: 'xs:string' | ||||||
144 | |||||||
145 | =cut | ||||||
146 | |||||||
147 | sub setContentType { | ||||||
148 | my $self = shift; | ||||||
149 | $self->{'ContentType'} = shift | ||||||
150 | } | ||||||
151 | |||||||
152 | =head2 getContentType() | ||||||
153 | |||||||
154 | # Returns: 'xs:string' | ||||||
155 | |||||||
156 | =cut | ||||||
157 | |||||||
158 | sub getContentType { | ||||||
159 | my $self = shift; | ||||||
160 | return $self->{'ContentType'}; | ||||||
161 | } | ||||||
162 | |||||||
163 | |||||||
164 | =head2 setCreationDate() | ||||||
165 | |||||||
166 | The date and time that a message was created by the sender. | ||||||
167 | |||||||
168 | # Argument: 'xs:dateTime' | ||||||
169 | |||||||
170 | =cut | ||||||
171 | |||||||
172 | sub setCreationDate { | ||||||
173 | my $self = shift; | ||||||
174 | $self->{'CreationDate'} = shift | ||||||
175 | } | ||||||
176 | |||||||
177 | =head2 getCreationDate() | ||||||
178 | |||||||
179 | # Returns: 'xs:dateTime' | ||||||
180 | |||||||
181 | =cut | ||||||
182 | |||||||
183 | sub getCreationDate { | ||||||
184 | my $self = shift; | ||||||
185 | return $self->{'CreationDate'}; | ||||||
186 | } | ||||||
187 | |||||||
188 | |||||||
189 | =head2 setExpirationDate() | ||||||
190 | |||||||
191 | The date and time at which a message expires. | ||||||
192 | |||||||
193 | # Argument: 'xs:dateTime' | ||||||
194 | |||||||
195 | =cut | ||||||
196 | |||||||
197 | sub setExpirationDate { | ||||||
198 | my $self = shift; | ||||||
199 | $self->{'ExpirationDate'} = shift | ||||||
200 | } | ||||||
201 | |||||||
202 | =head2 getExpirationDate() | ||||||
203 | |||||||
204 | Calls: GetMyMessages | ||||||
205 | Returned: Conditionally | ||||||
206 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
207 | |||||||
208 | # Returns: 'xs:dateTime' | ||||||
209 | |||||||
210 | =cut | ||||||
211 | |||||||
212 | sub getExpirationDate { | ||||||
213 | my $self = shift; | ||||||
214 | return $self->{'ExpirationDate'}; | ||||||
215 | } | ||||||
216 | |||||||
217 | |||||||
218 | =head2 setExternalMessageID() | ||||||
219 | |||||||
220 | An ID used by an external application to uniquely identify a | ||||||
221 | message. Returned only when specified by the external | ||||||
222 | application on message creation. | ||||||
223 | |
||||||
224 | This value is equivalent to the value used for MessageID in | ||||||
225 | GetMemberMessages. | ||||||
226 | |||||||
227 | # Argument: 'xs:string' | ||||||
228 | |||||||
229 | =cut | ||||||
230 | |||||||
231 | sub setExternalMessageID { | ||||||
232 | my $self = shift; | ||||||
233 | $self->{'ExternalMessageID'} = shift | ||||||
234 | } | ||||||
235 | |||||||
236 | =head2 getExternalMessageID() | ||||||
237 | |||||||
238 | Calls: GetMyMessages | ||||||
239 | Returned: Conditionally | ||||||
240 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
241 | |||||||
242 | # Returns: 'xs:string' | ||||||
243 | |||||||
244 | =cut | ||||||
245 | |||||||
246 | sub getExternalMessageID { | ||||||
247 | my $self = shift; | ||||||
248 | return $self->{'ExternalMessageID'}; | ||||||
249 | } | ||||||
250 | |||||||
251 | |||||||
252 | =head2 setFlagged() | ||||||
253 | |||||||
254 | Whether or not a message has been flagged. | ||||||
255 | |||||||
256 | # Argument: 'xs:boolean' | ||||||
257 | |||||||
258 | =cut | ||||||
259 | |||||||
260 | sub setFlagged { | ||||||
261 | my $self = shift; | ||||||
262 | $self->{'Flagged'} = shift | ||||||
263 | } | ||||||
264 | |||||||
265 | =head2 isFlagged() | ||||||
266 | |||||||
267 | Calls: GetMyMessages | ||||||
268 | Returned: Conditionally | ||||||
269 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
270 | |||||||
271 | # Returns: 'xs:boolean' | ||||||
272 | |||||||
273 | =cut | ||||||
274 | |||||||
275 | sub isFlagged { | ||||||
276 | my $self = shift; | ||||||
277 | return $self->{'Flagged'}; | ||||||
278 | } | ||||||
279 | |||||||
280 | |||||||
281 | =head2 setFolder() | ||||||
282 | |||||||
283 | Details relating to a My Messages folder. | ||||||
284 | |||||||
285 | # Argument: 'ns:MyMessagesFolderType' | ||||||
286 | |||||||
287 | =cut | ||||||
288 | |||||||
289 | sub setFolder { | ||||||
290 | my $self = shift; | ||||||
291 | $self->{'Folder'} = shift | ||||||
292 | } | ||||||
293 | |||||||
294 | =head2 getFolder() | ||||||
295 | |||||||
296 | Calls: GetMyMessages | ||||||
297 | Returned: Conditionally | ||||||
298 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
299 | |||||||
300 | # Returns: 'ns:MyMessagesFolderType' | ||||||
301 | |||||||
302 | =cut | ||||||
303 | |||||||
304 | sub getFolder { | ||||||
305 | my $self = shift; | ||||||
306 | return $self->_getDataTypeInstance( 'Folder' | ||||||
307 | ,'eBay::API::XML::DataType::MyMessagesFolderType'); | ||||||
308 | } | ||||||
309 | |||||||
310 | |||||||
311 | =head2 setForwardDetails() | ||||||
312 | |||||||
313 | Details relating to the forwarding of an alert | ||||||
314 | or message. Only returned if the alert or message is | ||||||
315 | forwarded. | ||||||
316 | |||||||
317 | # Argument: 'ns:MyMessagesForwardDetailsType' | ||||||
318 | |||||||
319 | =cut | ||||||
320 | |||||||
321 | sub setForwardDetails { | ||||||
322 | my $self = shift; | ||||||
323 | $self->{'ForwardDetails'} = shift | ||||||
324 | } | ||||||
325 | |||||||
326 | =head2 getForwardDetails() | ||||||
327 | |||||||
328 | Calls: GetMyMessages | ||||||
329 | Returned: Conditionally | ||||||
330 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
331 | |||||||
332 | # Returns: 'ns:MyMessagesForwardDetailsType' | ||||||
333 | |||||||
334 | =cut | ||||||
335 | |||||||
336 | sub getForwardDetails { | ||||||
337 | my $self = shift; | ||||||
338 | return $self->_getDataTypeInstance( 'ForwardDetails' | ||||||
339 | ,'eBay::API::XML::DataType::MyMessagesForwardDetailsType'); | ||||||
340 | } | ||||||
341 | |||||||
342 | |||||||
343 | =head2 setItemID() | ||||||
344 | |||||||
345 | A unique eBay Item ID associated with a message. | ||||||
346 | |||||||
347 | # Argument: 'ns:ItemIDType' | ||||||
348 | |||||||
349 | =cut | ||||||
350 | |||||||
351 | sub setItemID { | ||||||
352 | my $self = shift; | ||||||
353 | $self->{'ItemID'} = shift | ||||||
354 | } | ||||||
355 | |||||||
356 | =head2 getItemID() | ||||||
357 | |||||||
358 | Calls: GetMyMessages | ||||||
359 | Returned: Conditionally | ||||||
360 | Details: DetailLevel: ReturnHeaders | ||||||
361 | MaxLength: 19 (Note: The eBay database specifies 38. Currently, Item IDs are usually 9 to 12 digits) | ||||||
362 | |||||||
363 | # Returns: 'ns:ItemIDType' | ||||||
364 | |||||||
365 | =cut | ||||||
366 | |||||||
367 | sub getItemID { | ||||||
368 | my $self = shift; | ||||||
369 | return $self->_getDataTypeInstance( 'ItemID' | ||||||
370 | ,'eBay::API::XML::DataType::ItemIDType'); | ||||||
371 | } | ||||||
372 | |||||||
373 | |||||||
374 | =head2 setListingStatus() | ||||||
375 | |||||||
376 | Specifies an active or ended listing's status in eBay's processing workflow. | ||||||
377 | If a listing ends with a sale (or sales), eBay needs to update the sale details | ||||||
378 | (e.g., total price and buyer/high bidder) and the final value fee. This processing | ||||||
379 | can take several minutes. If you retrieve a sold item and no details about the buyer/high bidder | ||||||
380 | are returned or no final value fee is available, use this listing status information | ||||||
381 | to determine whether eBay has finished processing the listing. | ||||||
382 | Note: |
||||||
383 | Starting in late August 2008, for the GetMyMessages call the listing status reflects the status of the listing at | ||||||
384 | the time the question was created. The listing status for this call may not match | ||||||
385 | the listing status returned by other calls such as GetItemTransactions. | ||||||
386 | This is returned only if Messages.Message.MessageType is AskSellerQuestion. | ||||||
387 | As of early July 2008, this tag is not returned for the Sandbox environment. | ||||||
388 | |||||||
389 | |||||||
390 | # Argument: 'ns:ListingStatusCodeType' | ||||||
391 | |||||||
392 | =cut | ||||||
393 | |||||||
394 | sub setListingStatus { | ||||||
395 | my $self = shift; | ||||||
396 | $self->{'ListingStatus'} = shift | ||||||
397 | } | ||||||
398 | |||||||
399 | =head2 getListingStatus() | ||||||
400 | |||||||
401 | Calls: GetMyMessages | ||||||
402 | Returned: Conditionally | ||||||
403 | TagStatus: ComingSoon | ||||||
404 | |||||||
405 | # Returns: 'ns:ListingStatusCodeType' | ||||||
406 | |||||||
407 | =cut | ||||||
408 | |||||||
409 | sub getListingStatus { | ||||||
410 | my $self = shift; | ||||||
411 | return $self->{'ListingStatus'}; | ||||||
412 | } | ||||||
413 | |||||||
414 | |||||||
415 | =head2 setMessageID() | ||||||
416 | |||||||
417 | An ID that uniquely identifies a message for a given user. | ||||||
418 | |
||||||
419 | |
||||||
420 | This value is not the same as the value used for the | ||||||
421 | GetMemberMessages MessageID. Use the GetMemberMessages value | ||||||
422 | (used as the GetMyMessages ExternalID) instead. | ||||||
423 | |||||||
424 | # Argument: 'ns:MyMessagesMessageIDType' | ||||||
425 | |||||||
426 | =cut | ||||||
427 | |||||||
428 | sub setMessageID { | ||||||
429 | my $self = shift; | ||||||
430 | $self->{'MessageID'} = shift | ||||||
431 | } | ||||||
432 | |||||||
433 | =head2 getMessageID() | ||||||
434 | |||||||
435 | Calls: GetMyMessages | ||||||
436 | Returned: Conditionally | ||||||
437 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
438 | |||||||
439 | # Returns: 'ns:MyMessagesMessageIDType' | ||||||
440 | |||||||
441 | =cut | ||||||
442 | |||||||
443 | sub getMessageID { | ||||||
444 | my $self = shift; | ||||||
445 | return $self->_getDataTypeInstance( 'MessageID' | ||||||
446 | ,'eBay::API::XML::DataType::MyMessagesMessageIDType'); | ||||||
447 | } | ||||||
448 | |||||||
449 | |||||||
450 | =head2 setMessageType() | ||||||
451 | |||||||
452 | Specifies the type of message being retrieved through GetMyMessages. | ||||||
453 | |||||||
454 | # Argument: 'ns:MessageTypeCodeType' | ||||||
455 | |||||||
456 | =cut | ||||||
457 | |||||||
458 | sub setMessageType { | ||||||
459 | my $self = shift; | ||||||
460 | $self->{'MessageType'} = shift | ||||||
461 | } | ||||||
462 | |||||||
463 | =head2 getMessageType() | ||||||
464 | |||||||
465 | Calls: GetMyMessages | ||||||
466 | Returned: Conditionally | ||||||
467 | |||||||
468 | # Returns: 'ns:MessageTypeCodeType' | ||||||
469 | |||||||
470 | =cut | ||||||
471 | |||||||
472 | sub getMessageType { | ||||||
473 | my $self = shift; | ||||||
474 | return $self->{'MessageType'}; | ||||||
475 | } | ||||||
476 | |||||||
477 | |||||||
478 | =head2 setQuestionType() | ||||||
479 | |||||||
480 | Specifies the context of the question and it corresponds to the | ||||||
481 | subject of the message. This is returned only if Messages.Message.MessageType is | ||||||
482 | AskSellerQuestion. | ||||||
483 | Note: |
||||||
484 | This tag will be returned with data starting late August 2008. As of early July 2008, | ||||||
485 | this tag is not returned for the Sandbox environment. | ||||||
486 | |||||||
487 | |||||||
488 | # Argument: 'ns:QuestionTypeCodeType' | ||||||
489 | |||||||
490 | =cut | ||||||
491 | |||||||
492 | sub setQuestionType { | ||||||
493 | my $self = shift; | ||||||
494 | $self->{'QuestionType'} = shift | ||||||
495 | } | ||||||
496 | |||||||
497 | =head2 getQuestionType() | ||||||
498 | |||||||
499 | Calls: GetMyMessages | ||||||
500 | Returned: Conditionally | ||||||
501 | TagStatus: ComingSoon | ||||||
502 | |||||||
503 | # Returns: 'ns:QuestionTypeCodeType' | ||||||
504 | |||||||
505 | =cut | ||||||
506 | |||||||
507 | sub getQuestionType { | ||||||
508 | my $self = shift; | ||||||
509 | return $self->{'QuestionType'}; | ||||||
510 | } | ||||||
511 | |||||||
512 | |||||||
513 | =head2 setRead() | ||||||
514 | |||||||
515 | Whether or not a message has been viewed by a given user. Note that retrieving a message with the | ||||||
516 | API does not mark it as read. | ||||||
517 | |||||||
518 | # Argument: 'xs:boolean' | ||||||
519 | |||||||
520 | =cut | ||||||
521 | |||||||
522 | sub setRead { | ||||||
523 | my $self = shift; | ||||||
524 | $self->{'Read'} = shift | ||||||
525 | } | ||||||
526 | |||||||
527 | =head2 isRead() | ||||||
528 | |||||||
529 | Calls: GetMyMessages | ||||||
530 | Returned: Conditionally | ||||||
531 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
532 | |||||||
533 | # Returns: 'xs:boolean' | ||||||
534 | |||||||
535 | =cut | ||||||
536 | |||||||
537 | sub isRead { | ||||||
538 | my $self = shift; | ||||||
539 | return $self->{'Read'}; | ||||||
540 | } | ||||||
541 | |||||||
542 | |||||||
543 | =head2 setReceiveDate() | ||||||
544 | |||||||
545 | The date and time that a message was received by My Messages and stored in a | ||||||
546 | database for the recipient. | ||||||
547 | |||||||
548 | # Argument: 'xs:dateTime' | ||||||
549 | |||||||
550 | =cut | ||||||
551 | |||||||
552 | sub setReceiveDate { | ||||||
553 | my $self = shift; | ||||||
554 | $self->{'ReceiveDate'} = shift | ||||||
555 | } | ||||||
556 | |||||||
557 | =head2 getReceiveDate() | ||||||
558 | |||||||
559 | Calls: GetMyMessages | ||||||
560 | Returned: Conditionally | ||||||
561 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
562 | |||||||
563 | # Returns: 'xs:dateTime' | ||||||
564 | |||||||
565 | =cut | ||||||
566 | |||||||
567 | sub getReceiveDate { | ||||||
568 | my $self = shift; | ||||||
569 | return $self->{'ReceiveDate'}; | ||||||
570 | } | ||||||
571 | |||||||
572 | |||||||
573 | =head2 setRecipientUserID() | ||||||
574 | |||||||
575 | The displayable user ID of the recipient. | ||||||
576 | |||||||
577 | # Argument: 'xs:string' | ||||||
578 | |||||||
579 | =cut | ||||||
580 | |||||||
581 | sub setRecipientUserID { | ||||||
582 | my $self = shift; | ||||||
583 | $self->{'RecipientUserID'} = shift | ||||||
584 | } | ||||||
585 | |||||||
586 | =head2 getRecipientUserID() | ||||||
587 | |||||||
588 | Calls: GetMyMessages | ||||||
589 | Returned: Conditionally | ||||||
590 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
591 | |||||||
592 | # Returns: 'xs:string' | ||||||
593 | |||||||
594 | =cut | ||||||
595 | |||||||
596 | sub getRecipientUserID { | ||||||
597 | my $self = shift; | ||||||
598 | return $self->{'RecipientUserID'}; | ||||||
599 | } | ||||||
600 | |||||||
601 | |||||||
602 | =head2 setResponseDetails() | ||||||
603 | |||||||
604 | Details relating to the response to an alert or message. | ||||||
605 | |||||||
606 | # Argument: 'ns:MyMessagesResponseDetailsType' | ||||||
607 | |||||||
608 | =cut | ||||||
609 | |||||||
610 | sub setResponseDetails { | ||||||
611 | my $self = shift; | ||||||
612 | $self->{'ResponseDetails'} = shift | ||||||
613 | } | ||||||
614 | |||||||
615 | =head2 getResponseDetails() | ||||||
616 | |||||||
617 | Calls: GetMyMessages | ||||||
618 | Returned: Conditionally | ||||||
619 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
620 | |||||||
621 | # Returns: 'ns:MyMessagesResponseDetailsType' | ||||||
622 | |||||||
623 | =cut | ||||||
624 | |||||||
625 | sub getResponseDetails { | ||||||
626 | my $self = shift; | ||||||
627 | return $self->_getDataTypeInstance( 'ResponseDetails' | ||||||
628 | ,'eBay::API::XML::DataType::MyMessagesResponseDetailsType'); | ||||||
629 | } | ||||||
630 | |||||||
631 | |||||||
632 | =head2 setSendToName() | ||||||
633 | |||||||
634 | The displayable name of the user or eBay | ||||||
635 | application to which the message is sent. Only | ||||||
636 | returned for M2M, and if a value exists. | ||||||
637 | |||||||
638 | # Argument: 'xs:string' | ||||||
639 | |||||||
640 | =cut | ||||||
641 | |||||||
642 | sub setSendToName { | ||||||
643 | my $self = shift; | ||||||
644 | $self->{'SendToName'} = shift | ||||||
645 | } | ||||||
646 | |||||||
647 | =head2 getSendToName() | ||||||
648 | |||||||
649 | Calls: GetMyMessages | ||||||
650 | Returned: Conditionally | ||||||
651 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
652 | |||||||
653 | # Returns: 'xs:string' | ||||||
654 | |||||||
655 | =cut | ||||||
656 | |||||||
657 | sub getSendToName { | ||||||
658 | my $self = shift; | ||||||
659 | return $self->{'SendToName'}; | ||||||
660 | } | ||||||
661 | |||||||
662 | |||||||
663 | =head2 setSender() | ||||||
664 | |||||||
665 | The display name of the eBay user that sent the message. | ||||||
666 | |||||||
667 | # Argument: 'xs:string' | ||||||
668 | |||||||
669 | =cut | ||||||
670 | |||||||
671 | sub setSender { | ||||||
672 | my $self = shift; | ||||||
673 | $self->{'Sender'} = shift | ||||||
674 | } | ||||||
675 | |||||||
676 | =head2 getSender() | ||||||
677 | |||||||
678 | Calls: GetMyMessages | ||||||
679 | Returned: Conditionally | ||||||
680 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
681 | |||||||
682 | # Returns: 'xs:string' | ||||||
683 | |||||||
684 | =cut | ||||||
685 | |||||||
686 | sub getSender { | ||||||
687 | my $self = shift; | ||||||
688 | return $self->{'Sender'}; | ||||||
689 | } | ||||||
690 | |||||||
691 | |||||||
692 | =head2 setSubject() | ||||||
693 | |||||||
694 | The subject of the message. | ||||||
695 | |||||||
696 | # Argument: 'xs:string' | ||||||
697 | |||||||
698 | =cut | ||||||
699 | |||||||
700 | sub setSubject { | ||||||
701 | my $self = shift; | ||||||
702 | $self->{'Subject'} = shift | ||||||
703 | } | ||||||
704 | |||||||
705 | =head2 getSubject() | ||||||
706 | |||||||
707 | Calls: GetMyMessages | ||||||
708 | Returned: Conditionally | ||||||
709 | Details: DetailLevel: ReturnHeaders, ReturnMessages | ||||||
710 | |||||||
711 | # Returns: 'xs:string' | ||||||
712 | |||||||
713 | =cut | ||||||
714 | |||||||
715 | sub getSubject { | ||||||
716 | my $self = shift; | ||||||
717 | return $self->{'Subject'}; | ||||||
718 | } | ||||||
719 | |||||||
720 | |||||||
721 | =head2 setText() | ||||||
722 | |||||||
723 | The message body. This can be either plain | ||||||
724 | text or HTML, depending on which format the message | ||||||
725 | was originally written in. Note that the API does | ||||||
726 | not currently check the user email format | ||||||
727 | preferences that can be specified in My Messages on | ||||||
728 | the eBay.com Web site. | ||||||
729 | |||||||
730 | # Argument: 'xs:string' | ||||||
731 | |||||||
732 | =cut | ||||||
733 | |||||||
734 | sub setText { | ||||||
735 | my $self = shift; | ||||||
736 | $self->{'Text'} = shift | ||||||
737 | } | ||||||
738 | |||||||
739 | =head2 getText() | ||||||
740 | |||||||
741 | Calls: GetMyMessages | ||||||
742 | Returned: Conditionally | ||||||
743 | Details: DetailLevel: ReturnMessages | ||||||
744 | |||||||
745 | # Returns: 'xs:string' | ||||||
746 | |||||||
747 | =cut | ||||||
748 | |||||||
749 | sub getText { | ||||||
750 | my $self = shift; | ||||||
751 | return $self->{'Text'}; | ||||||
752 | } | ||||||
753 | |||||||
754 | |||||||
755 | |||||||
756 | |||||||
757 | |||||||
758 | ## Attribute and Property lists | ||||||
759 | sub getPropertiesList { | ||||||
760 | my $self = shift; | ||||||
761 | return \@gaProperties; | ||||||
762 | } | ||||||
763 | |||||||
764 | sub getAttributesList { | ||||||
765 | my $self = shift; | ||||||
766 | return \@gaAttributes; | ||||||
767 | } | ||||||
768 | |||||||
769 | |||||||
770 | |||||||
771 | 1; |