File Coverage

lib/eBay/API/XML/DataType/AverageRatingDetailsType.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::AverageRatingDetailsType;
4              
5 1     1   1535 use strict;
  1         4  
  1         31  
6 1     1   5 use warnings;
  1         1  
  1         39  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. AverageRatingDetailsType.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::AverageRatingDetailsType
21              
22             =head1 DESCRIPTION
23              
24             Applicable to sites that support the Detailed Seller Ratings feature.
25             The AverageRatingDetailsType contains the average detailed seller ratings in an area. 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.
26              
27              
28              
29             =head1 SYNOPSIS
30              
31             =cut
32              
33              
34             =head1 INHERITANCE
35              
36             eBay::API::XML::DataType::AverageRatingDetailsType inherits from the L class
37              
38             =cut
39              
40 1     1   35 use eBay::API::XML::BaseDataType;
  0            
  0            
41             our @ISA = ("eBay::API::XML::BaseDataType");
42              
43             use eBay::API::XML::DataType::Enum::FeedbackRatingDetailCodeType;
44              
45              
46             my @gaProperties = ( [ 'Rating', 'xs:double', '', '', '' ]
47             , [ 'RatingCount', 'xs:int', '', '', '' ]
48             , [ 'RatingDetail', 'ns:FeedbackRatingDetailCodeType', ''
49             ,'eBay::API::XML::DataType::Enum::FeedbackRatingDetailCodeType', '' ]
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 setRating()
75              
76             An average detailed seller rating applying to the area in the corresponding RatingDetail field.
77              
78             # Argument: 'xs:double'
79              
80             =cut
81              
82             sub setRating {
83             my $self = shift;
84             $self->{'Rating'} = shift
85             }
86              
87             =head2 getRating()
88              
89             Calls: GetFeedback
90             Returned: Conditionally
91             Details: DetailLevel: none, ReturnAll
92              
93             # Returns: 'xs:double'
94              
95             =cut
96              
97             sub getRating {
98             my $self = shift;
99             return $self->{'Rating'};
100             }
101              
102              
103             =head2 setRatingCount()
104              
105             The number of detailed seller ratings in the area
106             in the corresponding RatingDetail field.
107              
108             # Argument: 'xs:int'
109              
110             =cut
111              
112             sub setRatingCount {
113             my $self = shift;
114             $self->{'RatingCount'} = shift
115             }
116              
117             =head2 getRatingCount()
118              
119             Calls: GetFeedback
120             Returned: Conditionally
121             Details: DetailLevel: none, ReturnAll
122              
123             # Returns: 'xs:int'
124              
125             =cut
126              
127             sub getRatingCount {
128             my $self = shift;
129             return $self->{'RatingCount'};
130             }
131              
132              
133             =head2 setRatingDetail()
134              
135             The area of a specific average detailed seller rating.
136             Users retrieve detailed ratings as averages of the ratings left by buyers.
137             When buyers leave an overall Feedback rating (positive, neutral, or negative)
138             for a seller, they also can leave ratings in four areas:
139             item as described, communication, shipping time, and charges for shipping and handling.
140              
141             # Argument: 'ns:FeedbackRatingDetailCodeType'
142              
143             =cut
144              
145             sub setRatingDetail {
146             my $self = shift;
147             $self->{'RatingDetail'} = shift
148             }
149              
150             =head2 getRatingDetail()
151              
152             Calls: GetFeedback
153             Returned: Conditionally
154             Details: DetailLevel: none, ReturnAll
155              
156             # Returns: 'ns:FeedbackRatingDetailCodeType'
157              
158             =cut
159              
160             sub getRatingDetail {
161             my $self = shift;
162             return $self->{'RatingDetail'};
163             }
164              
165              
166              
167              
168              
169             ## Attribute and Property lists
170             sub getPropertiesList {
171             my $self = shift;
172             return \@gaProperties;
173             }
174              
175             sub getAttributesList {
176             my $self = shift;
177             return \@gaAttributes;
178             }
179              
180              
181              
182             1;