File Coverage

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