File Coverage

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