File Coverage

lib/eBay/API/XML/DataType/MyMessagesSummaryType.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::MyMessagesSummaryType;
4              
5 1     1   1228 use strict;
  1         2  
  1         36  
6 1     1   6 use warnings;
  1         2  
  1         29  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. MyMessagesSummaryType.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::MyMessagesSummaryType
21              
22             =head1 DESCRIPTION
23              
24             Summary data for a given user's alerts and messages.
25             This includes the numbers of new alerts and messages,
26             unresolved alerts, flagged messages, and total alerts
27             and messages.
28              
29              
30              
31             =head1 SYNOPSIS
32              
33             =cut
34              
35              
36             =head1 INHERITANCE
37              
38             eBay::API::XML::DataType::MyMessagesSummaryType inherits from the L class
39              
40             =cut
41              
42 1     1   38 use eBay::API::XML::BaseDataType;
  0            
  0            
43             our @ISA = ("eBay::API::XML::BaseDataType");
44              
45             use eBay::API::XML::DataType::MyMessagesFolderSummaryType;
46              
47              
48             my @gaProperties = ( [ 'FlaggedMessageCount', 'xs:int', '', '', '' ]
49             , [ 'FolderSummary', 'ns:MyMessagesFolderSummaryType', '1'
50             ,'eBay::API::XML::DataType::MyMessagesFolderSummaryType', '1' ]
51             , [ 'NewAlertCount', 'xs:int', '', '', '' ]
52             , [ 'NewMessageCount', 'xs:int', '', '', '' ]
53             , [ 'TotalAlertCount', 'xs:int', '', '', '' ]
54             , [ 'TotalMessageCount', 'xs:int', '', '', '' ]
55             , [ 'UnresolvedAlertCount', 'xs:int', '', '', '' ]
56             );
57             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
58              
59             my @gaAttributes = (
60             );
61             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
62              
63             =head1 Subroutines:
64              
65             =cut
66              
67             sub new {
68             my $classname = shift;
69             my %args = @_;
70             my $self = $classname->SUPER::new(%args);
71             return $self;
72             }
73              
74             sub isScalar {
75             return 0;
76             }
77              
78              
79              
80             =head2 setFlaggedMessageCount()
81              
82             The number of messages that have been flagged.
83             Always returned for detail level ReturnSummary.
84              
85             # Argument: 'xs:int'
86              
87             =cut
88              
89             sub setFlaggedMessageCount {
90             my $self = shift;
91             $self->{'FlaggedMessageCount'} = shift
92             }
93              
94             =head2 getFlaggedMessageCount()
95              
96             Calls: GetMyMessages
97             Returned: Conditionally
98             Details: DetailLevel: ReturnSummary
99              
100             # Returns: 'xs:int'
101              
102             =cut
103              
104             sub getFlaggedMessageCount {
105             my $self = shift;
106             return $self->{'FlaggedMessageCount'};
107             }
108              
109              
110             =head2 setFolderSummary()
111              
112             Folder summary for each folder. Always
113             returned for detail level ReturnSummary.
114              
115             # Argument: reference to an array
116             of 'ns:MyMessagesFolderSummaryType'
117              
118             =cut
119              
120             sub setFolderSummary {
121             my $self = shift;
122             $self->{'FolderSummary'} =
123             $self->convertArray_To_RefToArrayIfNeeded(@_);
124             }
125              
126             =head2 getFolderSummary()
127              
128             Calls: GetMyMessages
129             Returned: Conditionally
130             Details: DetailLevel: ReturnSummary
131              
132             # Returns: reference to an array
133             of 'ns:MyMessagesFolderSummaryType'
134              
135             =cut
136              
137             sub getFolderSummary {
138             my $self = shift;
139             return $self->_getDataTypeArray('FolderSummary');
140             }
141              
142              
143             =head2 setNewAlertCount()
144              
145             The number of new alerts that a given user
146             has. Always returned for detail level ReturnSummary.
147              
148             # Argument: 'xs:int'
149              
150             =cut
151              
152             sub setNewAlertCount {
153             my $self = shift;
154             $self->{'NewAlertCount'} = shift
155             }
156              
157             =head2 getNewAlertCount()
158              
159             Calls: GetMyMessages
160             Returned: Conditionally
161             Details: DetailLevel: ReturnSummary
162              
163             # Returns: 'xs:int'
164              
165             =cut
166              
167             sub getNewAlertCount {
168             my $self = shift;
169             return $self->{'NewAlertCount'};
170             }
171              
172              
173             =head2 setNewMessageCount()
174              
175             The number of new messages that a given user has. Always returned for detail level ReturnSummary.
176              
177             # Argument: 'xs:int'
178              
179             =cut
180              
181             sub setNewMessageCount {
182             my $self = shift;
183             $self->{'NewMessageCount'} = shift
184             }
185              
186             =head2 getNewMessageCount()
187              
188             Calls: GetMyMessages
189             Returned: Conditionally
190             Details: DetailLevel: ReturnSummary
191              
192             # Returns: 'xs:int'
193              
194             =cut
195              
196             sub getNewMessageCount {
197             my $self = shift;
198             return $self->{'NewMessageCount'};
199             }
200              
201              
202             =head2 setTotalAlertCount()
203              
204             The total number of alerts for a given user.
205             Always returned for detail level ReturnSummary.
206              
207             # Argument: 'xs:int'
208              
209             =cut
210              
211             sub setTotalAlertCount {
212             my $self = shift;
213             $self->{'TotalAlertCount'} = shift
214             }
215              
216             =head2 getTotalAlertCount()
217              
218             Calls: GetMyMessages
219             Returned: Conditionally
220             Details: DetailLevel: ReturnSummary
221              
222             # Returns: 'xs:int'
223              
224             =cut
225              
226             sub getTotalAlertCount {
227             my $self = shift;
228             return $self->{'TotalAlertCount'};
229             }
230              
231              
232             =head2 setTotalMessageCount()
233              
234             The total number of messages for a given user.
235             Always returned for detail level ReturnSummary.
236              
237             # Argument: 'xs:int'
238              
239             =cut
240              
241             sub setTotalMessageCount {
242             my $self = shift;
243             $self->{'TotalMessageCount'} = shift
244             }
245              
246             =head2 getTotalMessageCount()
247              
248             Calls: GetMyMessages
249             Returned: Conditionally
250             Details: DetailLevel: ReturnSummary
251              
252             # Returns: 'xs:int'
253              
254             =cut
255              
256             sub getTotalMessageCount {
257             my $self = shift;
258             return $self->{'TotalMessageCount'};
259             }
260              
261              
262             =head2 setUnresolvedAlertCount()
263              
264             The number of alerts that are not yet
265             resolved. Always returned for detail level
266             ReturnSummary.
267              
268             # Argument: 'xs:int'
269              
270             =cut
271              
272             sub setUnresolvedAlertCount {
273             my $self = shift;
274             $self->{'UnresolvedAlertCount'} = shift
275             }
276              
277             =head2 getUnresolvedAlertCount()
278              
279             Calls: GetMyMessages
280             Returned: Conditionally
281             Details: DetailLevel: ReturnSummary
282              
283             # Returns: 'xs:int'
284              
285             =cut
286              
287             sub getUnresolvedAlertCount {
288             my $self = shift;
289             return $self->{'UnresolvedAlertCount'};
290             }
291              
292              
293              
294              
295              
296             ## Attribute and Property lists
297             sub getPropertiesList {
298             my $self = shift;
299             return \@gaProperties;
300             }
301              
302             sub getAttributesList {
303             my $self = shift;
304             return \@gaAttributes;
305             }
306              
307              
308              
309             1;