1######################################################################
2package Net::Amazon::Request::Actor;
3######################################################################
4use warnings;
5use strict;
6use base qw(Net::Amazon::Request);
7
8use Net::Amazon::Validate::ItemSearch;
9
10##################################################
11sub new {
12##################################################
13    my($class, %options) = @_;
14
15    $class->_assert_options_defined(\%options,
16                                   'actor');
17
18    $class->_convert_option(\%options,
19                            'actor',
20                            'Actor');
21
22    my $self = $class->SUPER::new(%options);
23
24    $self->_convert_itemsearch();
25
26    bless $self, $class;   # reconsecrate
27}
28
291;
30
31__END__
32
33=head1 NAME
34
35Net::Amazon::Request::Actor - Class for submitting Actor requests
36
37=head1 SYNOPSIS
38
39  use Net::Amazon;
40  use Net::Amazon::Request::Actor;
41
42  my $ua = Net::Amazon->new(
43      token       => 'YOUR_AMZN_TOKEN'
44  );
45
46  my $req = Net::Amazon::Request::Actor->new(
47      actor => 'Adam Sandler'
48  );
49
50    # Response is of type Net::Amazon::Response::Actor
51  my $resp = $ua->request($req);
52
53=head1 DESCRIPTION
54
55C<Net::Amazon::Request::Actor> is a class used to submit Actor search
56requests to the Amazon web service.
57
58The actor to search for is specified in the C<actor> parameter.
59
60Upon success, the responses' C<properties()> method will return a list of
61C<Net::Amazon::Property::DVD> objects.
62
63Check L<Net::Amazon::Request> for common request parameters not listed here.
64
65=head2 METHODS
66
67=over 4
68
69=item new( actor => $actor )
70
71Constructs a new C<Net::Amazon::Request::Actor> object, used to query
72the Amazon web service for items of a given actor.
73
74=back
75
76=head1 AUTHORS
77
78Christopher Boumenot, E<lt>boumenot@gmail.comE<gt>
79
80=head1 COPYRIGHT AND LICENSE
81
82Copyright 2006 by Christopher Boumenot, E<lt>boumenot@gmail.comE<gt>
83
84This library is free software; you can redistribute it and/or modify
85it under the same terms as Perl itself.
86
87=cut
88