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
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
######################################################################
package Net::Amazon::Property::Book;
######################################################################
use warnings;
use strict;
use base qw(Net::Amazon::Property);
__PACKAGE__->make_accessor($_) for qw(publisher binding isbn
dewey_decimal numpages edition ean publication_date);
__PACKAGE__->make_array_accessor($_) for qw(authors);
##################################################
sub new {
##################################################
my($class, %options) = @_;
my $self = $class->SUPER::new(%options);
bless $self, $class; # Bless into this class
if(exists $options{xmlref}) {
$self->init_via_xmlref($options{xmlref});
}
return $self;
}
##################################################
sub init_via_xmlref {
##################################################
my($self, $xmlref) = @_;
$self->SUPER::init_via_xmlref($xmlref);
my $ref = $xmlref->{ItemAttributes};
$self->authors($ref->{Author});
$self->binding($ref->{Binding});
$self->dewey_decimal($ref->{DeweyDecimalNumber});
$self->numpages($ref->{NumberOfPages});
$self->publisher($ref->{Publisher});
$self->isbn($ref->{ISBN});
$self->edition($ref->{Edition});
$self->ean($ref->{EAN});
my $year = 0;
if (defined $ref->{PublicationDate}) {
$year = (split(/\-/, $ref->{PublicationDate}))[0];
}
$self->year($year);
$self->publication_date($ref->{PublicationDate});
}
##################################################
sub author {
##################################################
my($self, $nameref) = @_;
# Only return the first author
return ($self->authors($nameref))[0];
}
##################################################
sub as_string {
##################################################
my($self) = @_;
my @a = (defined $self->authors) ? $self->authors : qw();
return join('/', @a) . ", " .
'"' . $self->title . '"' . ", " .
$self->year . ", " .
$self->_best_effort_price() . ", " .
$self->ASIN;
}
1;
__END__
=head1 NAME
Net::Amazon::Property::Book - Class for books on amazon.com
=head1 SYNOPSIS
use Net::Amazon;
# ...
if($resp->is_success()) {
for my $prop ($resp->properties) {
print join("/", $prop->authors()), " ",
$prop->title(), " ",
$prop->publisher(), " ",
$prop->year(), "\n";
}
=head1 DESCRIPTION
C<Net::Amazon::Property::Book> is derived from
C<Net::Amazon::Property> and on top of the all-purpose
methods the base class provides, it offers specialized accessors for
book parameters.
=head2 METHODS
=over 4
=item authors()
Returns a list of the book's authors. There's also a C<author()> method
which just returns the I<first> author.
=item publisher()
Returns the book's publishing company as a string.
=item title()
Returns the book's title as a string.
=item isbn()
Returns the book's ISBN number.
=item edition()
Returns the book's edition.
=item ean()
Returns the book's EAN number.
=item numpages()
Returns the number of pages.
=item dewey_decimal()
Returns the Dewey decimal number, this is for non-fiction only.
This method is deprecated (2011-10-28) as it does not appear to be returned by
Amazon any more.
=item publication_date()
Returns the publication date.
=item ReleaseDate()
Returns the release date.
For historical reasons, this method used to return the publication date.
However, as of version Net::Amazon 0.44 the release date is returned, and
a separate L</publication_date()> method is available.
=item new(xmlref => $xmlref)
Initializes an object by passing a hash of hashes structure containing
the XML data returned from the service. Usually, this is just used by
C<Net::Amazon> internally to initialize objects for on backcoming
data.
=back
Check out L<Net::Amazon::Property> for all-purpose accessors, like
C<year>, C<OurPrice>, C<ListPrice>, etc.
=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
|
