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
|
######################################################################
package Net::Amazon::Property::DVD;
######################################################################
use warnings;
use strict;
use base qw(Net::Amazon::Property);
__PACKAGE__->make_accessor($_) for qw(title studio theatrical_release_date
media nummedia upc mpaa_rating);
__PACKAGE__->make_array_accessor($_) for qw(directors starring features);
##################################################
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 director {
##################################################
my($self, $nameref) = @_;
# Only return the first director
return ($self->directors($nameref))[0];
}
##################################################
sub init_via_xmlref {
##################################################
my($self, $xmlref) = @_;
$self->SUPER::init_via_xmlref($xmlref);
$self->title($xmlref->{ProductName});
$self->studio($xmlref->{Manufacturer});
$self->directors($xmlref->{Directors}->{Director});
$self->starring($xmlref->{Starring}->{Actor});
$self->media($xmlref->{Media});
$self->nummedia($xmlref->{NumMedia});
$self->upc($xmlref->{Upc});
$self->theatrical_release_date($xmlref->{TheatricalReleaseDate});
$self->mpaa_rating($xmlref->{MpaaRating});
$self->features($xmlref->{Features}->{Feature});
}
1;
__END__
=head1 NAME
Net::Amazon::Property::DVD - Class for DVDs on amazon.com
=head1 SYNOPSIS
use Net::Amazon;
# ...
if($resp->is_success()) {
for my $prop ($resp->properties) {
print $_->title(), " ",
$_->studio(), " ",
$_->year(), "\n";
}
=head1 DESCRIPTION
C<Net::Amazon::Property::DVD> is derived from
C<Net::Amazon::Property> and on top of the all-purpose
methods the base class provides, it offers specialized accessors for
DVD parameters.
=head2 METHODS
=over 4
=item title()
Returns the title of the DVD.
=item studio()
Returns the studio.
=item directors()
Returns a list of directors. Note that there's also a director() method
only returning the first director.
=item starring()
USED TO BE AVAILABLE, BUT HAS BEEN MISSING LATELY.
Used to return a list of actors starring in the movie.
=item upc()
Returns the DVD's UPC as a string.
=item media()
Returns the DVD's media type as a string.
=item nummedia()
Returns the DVD's number of media (number of discs) as a string.
Amazon doesn't always send this back, so if you get undef assume it
is 1.
=item theatrical_release_date()
Returns the DVD's theatrical release date.
=item mpaa_rating()
Returns the DVD's MPAA rating.
=item features()
Returns the DVD's features as a list of strings. Examples:
"Color", "Closed-captioned", "Widescreen".
=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 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
|
