File Coverage

lib/eBay/API/XML/DataType/FeedbackSummaryType.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::FeedbackSummaryType;
4              
5 1     1   1342 use strict;
  1         3  
  1         39  
6 1     1   6 use warnings;
  1         2  
  1         36  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. FeedbackSummaryType.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::FeedbackSummaryType
21              
22             =head1 DESCRIPTION
23              
24             Specifies all feedback summary information (except Score). Contains
25             FeedbackPeriodArrayType objects that each convey feedback counts for
26             positive, negative, neutral, and total feedback counts - for various
27             time periods each. Also conveys counts of bid retractions for the
28             predefined time periods.
29              
30              
31              
32             =head1 SYNOPSIS
33              
34             =cut
35              
36              
37             =head1 INHERITANCE
38              
39             eBay::API::XML::DataType::FeedbackSummaryType inherits from the L class
40              
41             =cut
42              
43 1     1   47 use eBay::API::XML::BaseDataType;
  0            
  0            
44             our @ISA = ("eBay::API::XML::BaseDataType");
45              
46             use eBay::API::XML::DataType::BuyerRoleMetricsType;
47             use eBay::API::XML::DataType::FeedbackPeriodArrayType;
48             use eBay::API::XML::DataType::SellerRatingSummaryArrayType;
49             use eBay::API::XML::DataType::SellerRoleMetricsType;
50              
51              
52             my @gaProperties = ( [ 'BidRetractionFeedbackPeriodArray', 'ns:FeedbackPeriodArrayType', ''
53             ,'eBay::API::XML::DataType::FeedbackPeriodArrayType', '1' ]
54             , [ 'BuyerRoleMetrics', 'ns:BuyerRoleMetricsType', ''
55             ,'eBay::API::XML::DataType::BuyerRoleMetricsType', '1' ]
56             , [ 'NegativeFeedbackPeriodArray', 'ns:FeedbackPeriodArrayType', ''
57             ,'eBay::API::XML::DataType::FeedbackPeriodArrayType', '1' ]
58             , [ 'NeutralCommentCountFromSuspendedUsers', 'xs:int', '', '', '' ]
59             , [ 'NeutralFeedbackPeriodArray', 'ns:FeedbackPeriodArrayType', ''
60             ,'eBay::API::XML::DataType::FeedbackPeriodArrayType', '1' ]
61             , [ 'PositiveFeedbackPeriodArray', 'ns:FeedbackPeriodArrayType', ''
62             ,'eBay::API::XML::DataType::FeedbackPeriodArrayType', '1' ]
63             , [ 'SellerRatingSummaryArray', 'ns:SellerRatingSummaryArrayType', ''
64             ,'eBay::API::XML::DataType::SellerRatingSummaryArrayType', '1' ]
65             , [ 'SellerRoleMetrics', 'ns:SellerRoleMetricsType', ''
66             ,'eBay::API::XML::DataType::SellerRoleMetricsType', '1' ]
67             , [ 'TotalFeedbackPeriodArray', 'ns:FeedbackPeriodArrayType', ''
68             ,'eBay::API::XML::DataType::FeedbackPeriodArrayType', '1' ]
69             , [ 'UniqueNegativeFeedbackCount', 'xs:int', '', '', '' ]
70             , [ 'UniqueNeutralFeedbackCount', 'xs:int', '', '', '' ]
71             , [ 'UniquePositiveFeedbackCount', 'xs:int', '', '', '' ]
72             );
73             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
74              
75             my @gaAttributes = (
76             );
77             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
78              
79             =head1 Subroutines:
80              
81             =cut
82              
83             sub new {
84             my $classname = shift;
85             my %args = @_;
86             my $self = $classname->SUPER::new(%args);
87             return $self;
88             }
89              
90             sub isScalar {
91             return 0;
92             }
93              
94              
95              
96             =head2 setBidRetractionFeedbackPeriodArray()
97              
98             Bid retractions count, for multiple predefined time periods preceding
99             the call. Returned if no detail level is specified.
100              
101             # Argument: 'ns:FeedbackPeriodArrayType'
102              
103             =cut
104              
105             sub setBidRetractionFeedbackPeriodArray {
106             my $self = shift;
107             $self->{'BidRetractionFeedbackPeriodArray'} = shift
108             }
109              
110             =head2 getBidRetractionFeedbackPeriodArray()
111              
112             Calls: GetFeedback
113             Returned: Conditionally
114             Details: DetailLevel: none, ReturnAll
115              
116             # Returns: 'ns:FeedbackPeriodArrayType'
117              
118             =cut
119              
120             sub getBidRetractionFeedbackPeriodArray {
121             my $self = shift;
122             return $self->_getDataTypeInstance( 'BidRetractionFeedbackPeriodArray'
123             ,'eBay::API::XML::DataType::FeedbackPeriodArrayType');
124             }
125              
126              
127             =head2 setBuyerRoleMetrics()
128              
129             Container for information about 1 year feedback metric as buyer.
130              
131             # Argument: 'ns:BuyerRoleMetricsType'
132              
133             =cut
134              
135             sub setBuyerRoleMetrics {
136             my $self = shift;
137             $self->{'BuyerRoleMetrics'} = shift
138             }
139              
140             =head2 getBuyerRoleMetrics()
141              
142             Calls: GetFeedback
143             Returned: Conditionally
144             Details: DetailLevel: none, ReturnAll
145              
146             # Returns: 'ns:BuyerRoleMetricsType'
147              
148             =cut
149              
150             sub getBuyerRoleMetrics {
151             my $self = shift;
152             return $self->_getDataTypeInstance( 'BuyerRoleMetrics'
153             ,'eBay::API::XML::DataType::BuyerRoleMetricsType');
154             }
155              
156              
157             =head2 setNegativeFeedbackPeriodArray()
158              
159             Negative feedback entries count, for multiple predefined time periods preceding
160             the call. Returned if no detail level is specified.
161              
162             # Argument: 'ns:FeedbackPeriodArrayType'
163              
164             =cut
165              
166             sub setNegativeFeedbackPeriodArray {
167             my $self = shift;
168             $self->{'NegativeFeedbackPeriodArray'} = shift
169             }
170              
171             =head2 getNegativeFeedbackPeriodArray()
172              
173             Calls: GetFeedback
174             Returned: Conditionally
175             Details: DetailLevel: none, ReturnAll
176              
177             # Returns: 'ns:FeedbackPeriodArrayType'
178              
179             =cut
180              
181             sub getNegativeFeedbackPeriodArray {
182             my $self = shift;
183             return $self->_getDataTypeInstance( 'NegativeFeedbackPeriodArray'
184             ,'eBay::API::XML::DataType::FeedbackPeriodArrayType');
185             }
186              
187              
188             =head2 setNeutralCommentCountFromSuspendedUsers()
189              
190             Number of neutral comments received from suspended users. Returned if no
191             detail level is specified.
192              
193             # Argument: 'xs:int'
194              
195             =cut
196              
197             sub setNeutralCommentCountFromSuspendedUsers {
198             my $self = shift;
199             $self->{'NeutralCommentCountFromSuspendedUsers'} = shift
200             }
201              
202             =head2 getNeutralCommentCountFromSuspendedUsers()
203              
204             Calls: GetFeedback
205             Returned: Conditionally
206             Details: DetailLevel: none, ReturnAll
207              
208             # Returns: 'xs:int'
209              
210             =cut
211              
212             sub getNeutralCommentCountFromSuspendedUsers {
213             my $self = shift;
214             return $self->{'NeutralCommentCountFromSuspendedUsers'};
215             }
216              
217              
218             =head2 setNeutralFeedbackPeriodArray()
219              
220             Neutral feedback entries count, for multiple predefined time periods preceding
221             the call. Returned if no detail level is specified.
222              
223             # Argument: 'ns:FeedbackPeriodArrayType'
224              
225             =cut
226              
227             sub setNeutralFeedbackPeriodArray {
228             my $self = shift;
229             $self->{'NeutralFeedbackPeriodArray'} = shift
230             }
231              
232             =head2 getNeutralFeedbackPeriodArray()
233              
234             Calls: GetFeedback
235             Returned: Conditionally
236             Details: DetailLevel: none, ReturnAll
237              
238             # Returns: 'ns:FeedbackPeriodArrayType'
239              
240             =cut
241              
242             sub getNeutralFeedbackPeriodArray {
243             my $self = shift;
244             return $self->_getDataTypeInstance( 'NeutralFeedbackPeriodArray'
245             ,'eBay::API::XML::DataType::FeedbackPeriodArrayType');
246             }
247              
248              
249             =head2 setPositiveFeedbackPeriodArray()
250              
251             Positive feedback entries count, for multiple predefined time periods
252             preceding the call. Returned if no detail level is specified.
253              
254             # Argument: 'ns:FeedbackPeriodArrayType'
255              
256             =cut
257              
258             sub setPositiveFeedbackPeriodArray {
259             my $self = shift;
260             $self->{'PositiveFeedbackPeriodArray'} = shift
261             }
262              
263             =head2 getPositiveFeedbackPeriodArray()
264              
265             Calls: GetFeedback
266             Returned: Conditionally
267             Details: DetailLevel: none, ReturnAll
268              
269             # Returns: 'ns:FeedbackPeriodArrayType'
270              
271             =cut
272              
273             sub getPositiveFeedbackPeriodArray {
274             my $self = shift;
275             return $self->_getDataTypeInstance( 'PositiveFeedbackPeriodArray'
276             ,'eBay::API::XML::DataType::FeedbackPeriodArrayType');
277             }
278              
279              
280             =head2 setSellerRatingSummaryArray()
281              
282             Container for information about detailed seller ratings (DSRs)
283             that buyers have left for a seller.
284             Sellers have access to the number of ratings they've received, as well as
285             to the averages of DSRs they've received in each
286             DSR area (i.e., to the average of ratings in the item-description area, etc.).
287             The DSR feature is available on the United Kingdom site
288             and on the following other sites: AU (site ID 15), BEFR (site ID 23),
289             BENL (site ID 123), FR (site ID 71), IE (site ID 205), IN (site ID 203),
290             IT (site ID 101), and PL (site ID 212). The DSR feature is available on the other
291             API-enabled country sites, including the US site (site ID 0).
292              
293             SeeLink: URL: http://developer.ebay.com/DevZone/XML/docs/WebHelp/index.htm?context=eBay_XML_API&topic=DetailedSellerRatings
294             Title: Detailed Seller Ratings
295              
296             # Argument: 'ns:SellerRatingSummaryArrayType'
297              
298             =cut
299              
300             sub setSellerRatingSummaryArray {
301             my $self = shift;
302             $self->{'SellerRatingSummaryArray'} = shift
303             }
304              
305             =head2 getSellerRatingSummaryArray()
306              
307             Calls: GetFeedback
308             Returned: Conditionally
309             Details: DetailLevel: none, ReturnAll
310              
311             # Returns: 'ns:SellerRatingSummaryArrayType'
312              
313             =cut
314              
315             sub getSellerRatingSummaryArray {
316             my $self = shift;
317             return $self->_getDataTypeInstance( 'SellerRatingSummaryArray'
318             ,'eBay::API::XML::DataType::SellerRatingSummaryArrayType');
319             }
320              
321              
322             =head2 setSellerRoleMetrics()
323              
324             Container for information about 1 year feedback metric as seller.
325              
326             # Argument: 'ns:SellerRoleMetricsType'
327              
328             =cut
329              
330             sub setSellerRoleMetrics {
331             my $self = shift;
332             $self->{'SellerRoleMetrics'} = shift
333             }
334              
335             =head2 getSellerRoleMetrics()
336              
337             Calls: GetFeedback
338             Returned: Conditionally
339             Details: DetailLevel: none, ReturnAll
340              
341             # Returns: 'ns:SellerRoleMetricsType'
342              
343             =cut
344              
345             sub getSellerRoleMetrics {
346             my $self = shift;
347             return $self->_getDataTypeInstance( 'SellerRoleMetrics'
348             ,'eBay::API::XML::DataType::SellerRoleMetricsType');
349             }
350              
351              
352             =head2 setTotalFeedbackPeriodArray()
353              
354             Total feedback score, for multiple predefined time periods preceding the
355             call. Returned if no detail level is specified.
356              
357             # Argument: 'ns:FeedbackPeriodArrayType'
358              
359             =cut
360              
361             sub setTotalFeedbackPeriodArray {
362             my $self = shift;
363             $self->{'TotalFeedbackPeriodArray'} = shift
364             }
365              
366             =head2 getTotalFeedbackPeriodArray()
367              
368             Calls: GetFeedback
369             Returned: Conditionally
370             Details: DetailLevel: none, ReturnAll
371              
372             # Returns: 'ns:FeedbackPeriodArrayType'
373              
374             =cut
375              
376             sub getTotalFeedbackPeriodArray {
377             my $self = shift;
378             return $self->_getDataTypeInstance( 'TotalFeedbackPeriodArray'
379             ,'eBay::API::XML::DataType::FeedbackPeriodArrayType');
380             }
381              
382              
383             =head2 setUniqueNegativeFeedbackCount()
384              
385             Total number of negative Feedback comments, including weekly repeats. Returned if no detail level is specified.
386              
387             # Argument: 'xs:int'
388              
389             =cut
390              
391             sub setUniqueNegativeFeedbackCount {
392             my $self = shift;
393             $self->{'UniqueNegativeFeedbackCount'} = shift
394             }
395              
396             =head2 getUniqueNegativeFeedbackCount()
397              
398             Calls: GetFeedback
399             Returned: Conditionally
400             Details: DetailLevel: none, ReturnAll
401              
402             # Returns: 'xs:int'
403              
404             =cut
405              
406             sub getUniqueNegativeFeedbackCount {
407             my $self = shift;
408             return $self->{'UniqueNegativeFeedbackCount'};
409             }
410              
411              
412             =head2 setUniqueNeutralFeedbackCount()
413              
414             Total number of neutral Feedback comments, including weekly repeats. Returned if no detail level is specified.
415              
416             # Argument: 'xs:int'
417              
418             =cut
419              
420             sub setUniqueNeutralFeedbackCount {
421             my $self = shift;
422             $self->{'UniqueNeutralFeedbackCount'} = shift
423             }
424              
425             =head2 getUniqueNeutralFeedbackCount()
426              
427             Calls: GetFeedback
428             Returned: Conditionally
429             Details: DetailLevel: none, ReturnAll
430              
431             # Returns: 'xs:int'
432              
433             =cut
434              
435             sub getUniqueNeutralFeedbackCount {
436             my $self = shift;
437             return $self->{'UniqueNeutralFeedbackCount'};
438             }
439              
440              
441             =head2 setUniquePositiveFeedbackCount()
442              
443             Total number of positive Feedback comments, including weekly repeats. Returned if no detail level is specified.
444              
445             # Argument: 'xs:int'
446              
447             =cut
448              
449             sub setUniquePositiveFeedbackCount {
450             my $self = shift;
451             $self->{'UniquePositiveFeedbackCount'} = shift
452             }
453              
454             =head2 getUniquePositiveFeedbackCount()
455              
456             Calls: GetFeedback
457             Returned: Conditionally
458             Details: DetailLevel: none, ReturnAll
459              
460             # Returns: 'xs:int'
461              
462             =cut
463              
464             sub getUniquePositiveFeedbackCount {
465             my $self = shift;
466             return $self->{'UniquePositiveFeedbackCount'};
467             }
468              
469              
470              
471              
472              
473             ## Attribute and Property lists
474             sub getPropertiesList {
475             my $self = shift;
476             return \@gaProperties;
477             }
478              
479             sub getAttributesList {
480             my $self = shift;
481             return \@gaAttributes;
482             }
483              
484              
485              
486             1;