File Coverage

lib/eBay/API/XML/DataType/BuyingSummaryType.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::BuyingSummaryType;
4              
5 1     1   994 use strict;
  1         3  
  1         24  
6 1     1   4 use warnings;
  1         2  
  1         25  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. BuyingSummaryType.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::BuyingSummaryType
21              
22             =head1 DESCRIPTION
23              
24              
25              
26             =head1 SYNOPSIS
27              
28             =cut
29              
30              
31             =head1 INHERITANCE
32              
33             eBay::API::XML::DataType::BuyingSummaryType inherits from the L class
34              
35             =cut
36              
37 1     1   31 use eBay::API::XML::BaseDataType;
  0            
  0            
38             our @ISA = ("eBay::API::XML::BaseDataType");
39              
40             use eBay::API::XML::DataType::AmountType;
41              
42              
43             my @gaProperties = ( [ 'BestOfferCount', 'xs:int', '', '', '' ]
44             , [ 'BiddingCount', 'xs:int', '', '', '' ]
45             , [ 'TotalWinningCost', 'ns:AmountType', ''
46             ,'eBay::API::XML::DataType::AmountType', '1' ]
47             , [ 'TotalWonCost', 'ns:AmountType', ''
48             ,'eBay::API::XML::DataType::AmountType', '1' ]
49             , [ 'WinningCount', 'xs:int', '', '', '' ]
50             , [ 'WonCount', 'xs:int', '', '', '' ]
51             , [ 'WonDurationInDays', 'xs:int', '', '', '' ]
52             );
53             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
54              
55             my @gaAttributes = (
56             );
57             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
58              
59             =head1 Subroutines:
60              
61             =cut
62              
63             sub new {
64             my $classname = shift;
65             my %args = @_;
66             my $self = $classname->SUPER::new(%args);
67             return $self;
68             }
69              
70             sub isScalar {
71             return 0;
72             }
73              
74              
75              
76             =head2 setBestOfferCount()
77              
78             The number of items the user has made best offers on.
79              
80             # Argument: 'xs:int'
81              
82             =cut
83              
84             sub setBestOfferCount {
85             my $self = shift;
86             $self->{'BestOfferCount'} = shift
87             }
88              
89             =head2 getBestOfferCount()
90              
91             Calls: GetMyeBayBuying
92             Returned: Always
93             Details: DetailLevel: none, ReturnSummary, ReturnAll
94              
95             # Returns: 'xs:int'
96              
97             =cut
98              
99             sub getBestOfferCount {
100             my $self = shift;
101             return $self->{'BestOfferCount'};
102             }
103              
104              
105             =head2 setBiddingCount()
106              
107             The number of items the user has bid on.
108              
109             # Argument: 'xs:int'
110              
111             =cut
112              
113             sub setBiddingCount {
114             my $self = shift;
115             $self->{'BiddingCount'} = shift
116             }
117              
118             =head2 getBiddingCount()
119              
120             Calls: GetMyeBayBuying
121             Returned: Always
122             Details: DetailLevel: none, ReturnSummary, ReturnAll
123              
124             # Returns: 'xs:int'
125              
126             =cut
127              
128             sub getBiddingCount {
129             my $self = shift;
130             return $self->{'BiddingCount'};
131             }
132              
133              
134             =head2 setTotalWinningCost()
135              
136             The total cost of items the user is presently winning.
137              
138             # Argument: 'ns:AmountType'
139              
140             =cut
141              
142             sub setTotalWinningCost {
143             my $self = shift;
144             $self->{'TotalWinningCost'} = shift
145             }
146              
147             =head2 getTotalWinningCost()
148              
149             Calls: GetMyeBayBuying
150             Returned: Always
151             Details: DetailLevel: none, ReturnSummary, ReturnAll
152              
153             # Returns: 'ns:AmountType'
154              
155             =cut
156              
157             sub getTotalWinningCost {
158             my $self = shift;
159             return $self->_getDataTypeInstance( 'TotalWinningCost'
160             ,'eBay::API::XML::DataType::AmountType');
161             }
162              
163              
164             =head2 setTotalWonCost()
165              
166             The total cost of items the user has bid on and won.
167              
168             # Argument: 'ns:AmountType'
169              
170             =cut
171              
172             sub setTotalWonCost {
173             my $self = shift;
174             $self->{'TotalWonCost'} = shift
175             }
176              
177             =head2 getTotalWonCost()
178              
179             Calls: GetMyeBayBuying
180             Returned: Always
181             Details: DetailLevel: none, ReturnSummary, ReturnAll
182              
183             # Returns: 'ns:AmountType'
184              
185             =cut
186              
187             sub getTotalWonCost {
188             my $self = shift;
189             return $self->_getDataTypeInstance( 'TotalWonCost'
190             ,'eBay::API::XML::DataType::AmountType');
191             }
192              
193              
194             =head2 setWinningCount()
195              
196             The number of items the user has bid on and is winning, but that have not yet ended.
197              
198             # Argument: 'xs:int'
199              
200             =cut
201              
202             sub setWinningCount {
203             my $self = shift;
204             $self->{'WinningCount'} = shift
205             }
206              
207             =head2 getWinningCount()
208              
209             Calls: GetMyeBayBuying
210             Returned: Always
211             Details: DetailLevel: none, ReturnSummary, ReturnAll
212              
213             # Returns: 'xs:int'
214              
215             =cut
216              
217             sub getWinningCount {
218             my $self = shift;
219             return $self->{'WinningCount'};
220             }
221              
222              
223             =head2 setWonCount()
224              
225             The number of items the user has bid on and won.
226              
227             # Argument: 'xs:int'
228              
229             =cut
230              
231             sub setWonCount {
232             my $self = shift;
233             $self->{'WonCount'} = shift
234             }
235              
236             =head2 getWonCount()
237              
238             Calls: GetMyeBayBuying
239             Returned: Always
240             Details: DetailLevel: none, ReturnSummary, ReturnAll
241              
242             # Returns: 'xs:int'
243              
244             =cut
245              
246             sub getWonCount {
247             my $self = shift;
248             return $self->{'WonCount'};
249             }
250              
251              
252             =head2 setWonDurationInDays()
253              
254             The time period for which won items are displayed. Default is 31 days.
255              
256             # Argument: 'xs:int'
257              
258             =cut
259              
260             sub setWonDurationInDays {
261             my $self = shift;
262             $self->{'WonDurationInDays'} = shift
263             }
264              
265             =head2 getWonDurationInDays()
266              
267             Calls: GetMyeBayBuying
268             Returned: Always
269             Details: DetailLevel: none, ReturnSummary, ReturnAll
270              
271             # Returns: 'xs:int'
272              
273             =cut
274              
275             sub getWonDurationInDays {
276             my $self = shift;
277             return $self->{'WonDurationInDays'};
278             }
279              
280              
281              
282              
283              
284             ## Attribute and Property lists
285             sub getPropertiesList {
286             my $self = shift;
287             return \@gaProperties;
288             }
289              
290             sub getAttributesList {
291             my $self = shift;
292             return \@gaAttributes;
293             }
294              
295              
296              
297             1;