summaryrefslogtreecommitdiff
path: root/lib/Net/Amazon/Attribute/Review.pm
diff options
context:
space:
mode:
authorAndreas Brachold <vdr07@deltab.de>2007-11-11 06:55:13 +0000
committerAndreas Brachold <vdr07@deltab.de>2007-11-11 06:55:13 +0000
commit3282be229999dc36c197b264d63063a18d136331 (patch)
tree98a42db29d955b39e7bed1b599fdcc56c3a29de9 /lib/Net/Amazon/Attribute/Review.pm
parentcfdd733c17cfa4f1a43b827a656e9e53cc2524ac (diff)
downloadxxv-3282be229999dc36c197b264d63063a18d136331.tar.gz
xxv-3282be229999dc36c197b264d63063a18d136331.tar.bz2
* Update installation list with required modules
* Remove unused/doubled provided external perl moduls
Diffstat (limited to 'lib/Net/Amazon/Attribute/Review.pm')
-rw-r--r--lib/Net/Amazon/Attribute/Review.pm104
1 files changed, 0 insertions, 104 deletions
diff --git a/lib/Net/Amazon/Attribute/Review.pm b/lib/Net/Amazon/Attribute/Review.pm
deleted file mode 100644
index 5a5d094..0000000
--- a/lib/Net/Amazon/Attribute/Review.pm
+++ /dev/null
@@ -1,104 +0,0 @@
-######################################################################
-package Net::Amazon::Attribute::Review;
-######################################################################
-use warnings;
-use strict;
-use Log::Log4perl qw(:easy);
-use base qw(Net::Amazon);
-
-__PACKAGE__->make_accessor($_) for qw(rating summary comment);
-
-##################################################
-sub new {
-##################################################
- my($class, %options) = @_;
-
- my $self = {
- rating => "",
- summary => "",
- comment => "",
- %options,
- };
-
- bless $self, $class;
-}
-
-##################################################
-sub init_via_xmlref {
-##################################################
- my($self, $xmlref) = @_;
-
- for(qw(Rating Summary Comment)) {
- my $method = lc($_);
- if($xmlref->{$_}) {
- $self->$method($xmlref->{$_});
- } else {
- #LOGWARN "No '$_'";
- return undef;
- }
- }
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Net::Amazon::Attribute::Review - Customer Review Class
-
-=head1 SYNOPSIS
-
- use Net::Amazon::Attribute::Review;
- my $rev = Net::Amazon::Attribute::Review->new(
- 'rating' => $rating,
- 'summary' => $summary,
- 'comment' => $comment,
- );
-
-=head1 DESCRIPTION
-
-C<Net::Amazon::Attribute::Review> holds customer reviews.
-
-=head2 METHODS
-
-=over 4
-
-=item rating()
-
-Accessor for the numeric value of the rating.
-
-=item summary()
-
-Accessor for the string value of the summary.
-
-=item comment()
-
-Accessor for the string value of the customer comment.
-
-=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
-
-__END__
- <Reviews>
- <AvgCustomerRating>4.33</AvgCustomerRating>
- <TotalCustomerReviews>6</TotalCustomerReviews>
- <CustomerReview>
- <Rating>4</Rating>
- <Summary>Good introduction to Perl, and great reference</Summary>
- <Comment>From its corny title you might expect another one of those
-