File Coverage

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: ............... eBay/API/XML
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 class
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;