File Coverage

lib/eBay/API/XML/Call/ReviseMyMessages/ReviseMyMessagesRequestType.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::ReviseMyMessages::ReviseMyMessagesRequestType;
4              
5 1     1   1441 use strict;
  1         2  
  1         30  
6 1     1   5 use warnings;
  1         3  
  1         29  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ReviseMyMessagesRequestType.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::ReviseMyMessages::ReviseMyMessagesRequestType
21              
22             =head1 DESCRIPTION
23              
24             Sets the read state for messages and alerts, the flagged state of messages, and moves
25             alerts and messages into and out of folders.
26              
27              
28              
29             =head1 SYNOPSIS
30              
31             =cut
32              
33              
34             =head1 INHERITANCE
35              
36             eBay::API::XML::Call::ReviseMyMessages::ReviseMyMessagesRequestType inherits from the L class
37              
38             =cut
39              
40 1     1   38 use eBay::API::XML::RequestDataType;
  0            
  0            
41             our @ISA = ("eBay::API::XML::RequestDataType");
42              
43             use eBay::API::XML::DataType::MyMessagesAlertIDArrayType;
44             use eBay::API::XML::DataType::MyMessagesMessageIDArrayType;
45              
46              
47             my @gaProperties = ( [ 'AlertIDs', 'ns:MyMessagesAlertIDArrayType', ''
48             ,'eBay::API::XML::DataType::MyMessagesAlertIDArrayType', '1' ]
49             , [ 'Flagged', 'xs:boolean', '', '', '' ]
50             , [ 'FolderID', 'xs:long', '', '', '' ]
51             , [ 'MessageIDs', 'ns:MyMessagesMessageIDArrayType', ''
52             ,'eBay::API::XML::DataType::MyMessagesMessageIDArrayType', '1' ]
53             , [ 'Read', 'xs:boolean', '', '', '' ]
54             );
55             push @gaProperties, @{eBay::API::XML::RequestDataType::getPropertiesList()};
56              
57             my @gaAttributes = (
58             );
59             push @gaAttributes, @{eBay::API::XML::RequestDataType::getAttributesList()};
60              
61             =head1 Subroutines:
62              
63             =cut
64              
65             sub new {
66             my $classname = shift;
67             my %args = @_;
68             my $self = $classname->SUPER::new(%args);
69             return $self;
70             }
71              
72             sub isScalar {
73             return 0;
74             }
75              
76              
77              
78             =head2 setAlertIDs()
79              
80             Contains a list of up to 10 AlertID values.
81            

82             Either AlertIDs, MessageIDs, or both must be included in
83             the request. Alerts cannot be flagged. Alerts cannot be
84             moved into a new folder until they have been resolved.
85            

86             Resolve alerts by marking Read (if no action is
87             required), or by using ActionURL (if action is
88             required).
89              
90             RequiredInput: Conditionally
91             # Argument: 'ns:MyMessagesAlertIDArrayType'
92              
93             =cut
94              
95             sub setAlertIDs {
96             my $self = shift;
97             $self->{'AlertIDs'} = shift
98             }
99              
100             =head2 getAlertIDs()
101              
102             # Returns: 'ns:MyMessagesAlertIDArrayType'
103              
104             =cut
105              
106             sub getAlertIDs {
107             my $self = shift;
108             return $self->_getDataTypeInstance( 'AlertIDs'
109             ,'eBay::API::XML::DataType::MyMessagesAlertIDArrayType');
110             }
111              
112              
113             =head2 setFlagged()
114              
115             Changes the flagged states of all messages specified in
116             a request by their MessageID values. At least one of
117             Read, Flagged, or FolderID must be specified in the
118             request. Messages in the Sent box cannot be moved,
119             marked as Read, or Flagged. Alerts cannot be flagged.
120              
121             RequiredInput: Conditionally
122             # Argument: 'xs:boolean'
123              
124             =cut
125              
126             sub setFlagged {
127             my $self = shift;
128             $self->{'Flagged'} = shift
129             }
130              
131             =head2 isFlagged()
132              
133             # Returns: 'xs:boolean'
134              
135             =cut
136              
137             sub isFlagged {
138             my $self = shift;
139             return $self->{'Flagged'};
140             }
141              
142              
143             =head2 setFolderID()
144              
145             An ID that uniquely identifies the My Messages folder to
146             move alerts and messages into. At least one of Read,
147             Flagged, or FolderID must be specified in the request.
148            

149             Alerts cannot be moved until they are resolved. Messages
150             in the Sent box cannot be moved, marked as Read, or
151             Flagged.
152              
153             RequiredInput: Conditionally
154             # Argument: 'xs:long'
155              
156             =cut
157              
158             sub setFolderID {
159             my $self = shift;
160             $self->{'FolderID'} = shift
161             }
162              
163             =head2 getFolderID()
164              
165             # Returns: 'xs:long'
166              
167             =cut
168              
169             sub getFolderID {
170             my $self = shift;
171             return $self->{'FolderID'};
172             }
173              
174              
175             =head2 setMessageIDs()
176              
177             Contains a list of up to 10 MessageID values.
178            

179             Either AlertIDs, MessageIDs, or both must be included in
180             the request. Messages in the Sent box cannot be moved,
181             marked as Read, or Flagged.
182              
183             RequiredInput: Conditionally
184             # Argument: 'ns:MyMessagesMessageIDArrayType'
185              
186             =cut
187              
188             sub setMessageIDs {
189             my $self = shift;
190             $self->{'MessageIDs'} = shift
191             }
192              
193             =head2 getMessageIDs()
194              
195             # Returns: 'ns:MyMessagesMessageIDArrayType'
196              
197             =cut
198              
199             sub getMessageIDs {
200             my $self = shift;
201             return $self->_getDataTypeInstance( 'MessageIDs'
202             ,'eBay::API::XML::DataType::MyMessagesMessageIDArrayType');
203             }
204              
205              
206             =head2 setRead()
207              
208             Changes the read states of all alerts and
209             messages specified in a request by their AlertID
210             or MessageID values. At least one of Read,
211             Flagged, or FolderID must be specified in the
212             request. Messages in the Sent box cannot be moved,
213             marked as Read, or Flagged.
214            

215             Note that alerts and messages retrieved
216             with the API are not automatically marked Read,
217             and must be marked Read with this call.
218              
219             RequiredInput: Conditionally
220             # Argument: 'xs:boolean'
221              
222             =cut
223              
224             sub setRead {
225             my $self = shift;
226             $self->{'Read'} = shift
227             }
228              
229             =head2 isRead()
230              
231             # Returns: 'xs:boolean'
232              
233             =cut
234              
235             sub isRead {
236             my $self = shift;
237             return $self->{'Read'};
238             }
239              
240              
241              
242              
243              
244             ## Attribute and Property lists
245             sub getPropertiesList {
246             my $self = shift;
247             return \@gaProperties;
248             }
249              
250             sub getAttributesList {
251             my $self = shift;
252             return \@gaAttributes;
253             }
254              
255              
256              
257             1;