File Coverage

lib/eBay/API/XML/DataType/AverageRatingSummaryType.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::AverageRatingSummaryType;
4              
5 1     1   1232 use strict;
  1         1  
  1         29  
6 1     1   4 use warnings;
  1         2  
  1         28  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. AverageRatingSummaryType.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::AverageRatingSummaryType
21              
22             =head1 DESCRIPTION
23              
24             Container for average detailed seller ratings.
25             If a seller has detailed ratings, they are displayed
26             in the Feedback Profile of the seller.
27              
28              
29              
30             =head1 SYNOPSIS
31              
32             =cut
33              
34              
35             =head1 INHERITANCE
36              
37             eBay::API::XML::DataType::AverageRatingSummaryType inherits from the L class
38              
39             =cut
40              
41 1     1   34 use eBay::API::XML::BaseDataType;
  0            
  0            
42             our @ISA = ("eBay::API::XML::BaseDataType");
43              
44             use eBay::API::XML::DataType::AverageRatingDetailsType;
45             use eBay::API::XML::DataType::Enum::FeedbackSummaryPeriodCodeType;
46              
47              
48             my @gaProperties = ( [ 'AverageRatingDetails', 'ns:AverageRatingDetailsType', '1'
49             ,'eBay::API::XML::DataType::AverageRatingDetailsType', '1' ]
50             , [ 'FeedbackSummaryPeriod', 'ns:FeedbackSummaryPeriodCodeType', ''
51             ,'eBay::API::XML::DataType::Enum::FeedbackSummaryPeriodCodeType', '' ]
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 setAverageRatingDetails()
77              
78             Applicable to sites that support the Detailed Seller Ratings feature.
79             The AverageRatingDetails container has information about
80             average detailed seller ratings.
81             When buyers leave an overall Feedback rating (positive, neutral, or negative) for a seller, they also can leave ratings in four areas: item as described, communication, shipping time, and charges for shipping and handling. Users retrieve detailed ratings as averages of the ratings left by buyers.
82              
83             # Argument: reference to an array
84             of 'ns:AverageRatingDetailsType'
85              
86             =cut
87              
88             sub setAverageRatingDetails {
89             my $self = shift;
90             $self->{'AverageRatingDetails'} =
91             $self->convertArray_To_RefToArrayIfNeeded(@_);
92             }
93              
94             =head2 getAverageRatingDetails()
95              
96             Calls: GetFeedback
97             Returned: Conditionally
98             Details: DetailLevel: none, ReturnAll
99              
100             # Returns: reference to an array
101             of 'ns:AverageRatingDetailsType'
102              
103             =cut
104              
105             sub getAverageRatingDetails {
106             my $self = shift;
107             return $self->_getDataTypeArray('AverageRatingDetails');
108             }
109              
110              
111             =head2 setFeedbackSummaryPeriod()
112              
113             The summary period for which the detail ratings are calculated.
114              
115             # Argument: 'ns:FeedbackSummaryPeriodCodeType'
116              
117             =cut
118              
119             sub setFeedbackSummaryPeriod {
120             my $self = shift;
121             $self->{'FeedbackSummaryPeriod'} = shift
122             }
123              
124             =head2 getFeedbackSummaryPeriod()
125              
126             Calls: GetFeedback
127             Returned: Conditionally
128             Details: DetailLevel: none, ReturnAll
129              
130             # Returns: 'ns:FeedbackSummaryPeriodCodeType'
131              
132             =cut
133              
134             sub getFeedbackSummaryPeriod {
135             my $self = shift;
136             return $self->{'FeedbackSummaryPeriod'};
137             }
138              
139              
140              
141              
142              
143             ## Attribute and Property lists
144             sub getPropertiesList {
145             my $self = shift;
146             return \@gaProperties;
147             }
148              
149             sub getAttributesList {
150             my $self = shift;
151             return \@gaAttributes;
152             }
153              
154              
155              
156             1;