1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
######################################################################
package Net::Amazon::Attribute::ReviewSet;
######################################################################
use warnings;
use strict;
use Log::Log4perl qw(:easy);
use Net::Amazon::Attribute::Review;
use base qw(Net::Amazon);
__PACKAGE__->make_accessor($_) for qw(average_customer_rating total_reviews);
##################################################
sub new {
##################################################
my($class, %options) = @_;
my $self = {
reviews => [], # list of reviews
};
bless $self, $class;
}
###########################################
sub add_review {
###########################################
my($self, $review) = @_;
if(ref $review ne "Net::Amazon::Attribute::Review") {
warn "add_review called with type ", ref $review;
return undef;
}
push @{$self->{reviews}}, $review;
}
###########################################
sub reviews {
###########################################
my($self) = @_;
return @{$self->{reviews}};
}
##################################################
sub init_via_xmlref {
##################################################
my($self, $xmlref) = @_;
my @pairs = qw(AvgCustomerRating average_customer_rating
TotalCustomerReviews total_reviews);
while(my($field, $method) = splice @pairs, 0, 2) {
if(defined $xmlref->{$field}) {
DEBUG "Setting $field via $method to $xmlref->{$field}";
$self->$method($xmlref->{$field});
} else {
LOGWARN "No '$field'";
return undef;
}
}
if(ref $xmlref->{CustomerReview} ne "ARRAY") {
$xmlref->{CustomerReview} = [$xmlref->{CustomerReview}];
}
for my $review_xmlref (@{$xmlref->{CustomerReview}}) {
my $review = Net::Amazon::Attribute::Review->new();
$review->init_via_xmlref($review_xmlref);
DEBUG "Adding review ", $review->summary();
$self->add_review($review);
}
}
1;
__END__
=head1 NAME
Net::Amazon::Attribute::ReviewSet - A set of customer reviews
=head1 SYNOPSIS
use Net::Amazon::Attribute::ReviewSet;
my $rev = Net::Amazon::Attribute::Review->new(
average_customer_rating => $avg,
total_reviews => $total,
);
=head1 DESCRIPTION
C<Net::Amazon::Attribute::ReviewSet> holds a list of customer
reviews, each of type C<Net::Amazon::Attribute::Review>.
=head2 METHODS
=over 4
=item C<< $self->reviews() >>
Returns a list of C<Net::Amazon::Attribute::Review> objects.
=item C<< $self->average_customer_rating() >>
Accessor for the average customer rating, a numeric value.
=item C<< $self->total_reviews() >>
Accessor for the total number of reviews. Please note that this
might not be equal to the number of reviews held in the list, since
there might be less customer reviews than total reviews (reviews
can also be non-customer-reviews, but they're not available by
the web service as of Aug 2003).
=item C<< $self->add_review($rev) >>
Add a C<Net::Amazon::Attribute::Review> object to the list.
(Used internally only).
=back
=head1 SEE ALSO
=head1 AUTHOR
Mike Schilli, E<lt>m@perlmeister.comE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright 2003 by Mike Schilli E<lt>m@perlmeister.comE<gt>
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|
