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
|
######################################################################
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
total_review_pages);
##################################################
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(AverageRating average_customer_rating
TotalReviews total_reviews
TotalReviewPages total_review_pages);
while(my($field, $method) = splice @pairs, 0, 2) {
if(exists $xmlref->{$field}) {
DEBUG "Setting $field via $method to $xmlref->{$field}";
$self->$method($xmlref->{$field});
}
}
for my $review_xmlref (@{$xmlref->{Review}}) {
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->total_review_pages >>
Accessor for the total number of review pages.
=item C<< $self->add_review($rev) >>
Add a C<Net::Amazon::Attribute::Review> object to the list.
(Used internally only).
=back
=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
|
