File Coverage

lib/eBay/API/XML/DataType/ItemRatingDetailArrayType.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::ItemRatingDetailArrayType;
4              
5 1     1   1833 use strict;
  1         2  
  1         34  
6 1     1   6 use warnings;
  1         2  
  1         33  
7              
8             ##########################################################################
9             #
10             # Module: ............... eBay/API/XML
11             # File: ................. ItemRatingDetailArrayType.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::ItemRatingDetailArrayType
21              
22             =head1 DESCRIPTION
23              
24             Container for a set of detailed seller ratings about a transaction.
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::ItemRatingDetailArrayType inherits from the L class
38              
39             =cut
40              
41 1     1   41 use eBay::API::XML::BaseDataType;
  0            
  0            
42             our @ISA = ("eBay::API::XML::BaseDataType");
43              
44             use eBay::API::XML::DataType::ItemRatingDetailsType;
45              
46              
47             my @gaProperties = ( [ 'ItemRatingDetails', 'ns:ItemRatingDetailsType', '1'
48             ,'eBay::API::XML::DataType::ItemRatingDetailsType', '1' ]
49             );
50             push @gaProperties, @{eBay::API::XML::BaseDataType::getPropertiesList()};
51              
52             my @gaAttributes = (
53             );
54             push @gaAttributes, @{eBay::API::XML::BaseDataType::getAttributesList()};
55              
56             =head1 Subroutines:
57              
58             =cut
59              
60             sub new {
61             my $classname = shift;
62             my %args = @_;
63             my $self = $classname->SUPER::new(%args);
64             return $self;
65             }
66              
67             sub isScalar {
68             return 0;
69             }
70              
71              
72              
73             =head2 setItemRatingDetails()
74              
75             Applicable to sites that support the Detailed Seller Ratings feature.
76             The ItemRatingDetails container is for
77             detailed seller ratings about a transaction.
78             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.
79              
80             Calls: LeaveFeedback
81             RequiredInput: No
82              
83             # Argument: reference to an array
84             of 'ns:ItemRatingDetailsType'
85              
86             =cut
87              
88             sub setItemRatingDetails {
89             my $self = shift;
90             $self->{'ItemRatingDetails'} =
91             $self->convertArray_To_RefToArrayIfNeeded(@_);
92             }
93              
94             =head2 getItemRatingDetails()
95              
96             # Returns: reference to an array
97             of 'ns:ItemRatingDetailsType'
98              
99             =cut
100              
101             sub getItemRatingDetails {
102             my $self = shift;
103             return $self->_getDataTypeArray('ItemRatingDetails');
104             }
105              
106              
107              
108              
109              
110             ## Attribute and Property lists
111             sub getPropertiesList {
112             my $self = shift;
113             return \@gaProperties;
114             }
115              
116             sub getAttributesList {
117             my $self = shift;
118             return \@gaAttributes;
119             }
120              
121              
122              
123             1;