Net-Amazon-0.62/0000755666302512716660000000000012101066651013246 5ustar boumenotpg1319368Net-Amazon-0.62/lib/0000755666302512716660000000000012101066650014013 5ustar boumenotpg1319368Net-Amazon-0.62/lib/Net/0000755666302512716660000000000012101066651014542 5ustar boumenotpg1319368Net-Amazon-0.62/lib/Net/Amazon/0000755666302512716660000000000012101066651015767 5ustar boumenotpg1319368Net-Amazon-0.62/lib/Net/Amazon/Validate/0000755666302512716660000000000012101066651017520 5ustar boumenotpg1319368Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/0000755666302512716660000000000012101066651021544 5ustar boumenotpg1319368Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/0000755666302512716660000000000012101066651022163 5ustar boumenotpg1319368Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Electronics.pm0000644666302512716660000000317711276327536025021 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Electronics; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Electronics!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Electronics - valid search indicies for the uk locale and the Electronics SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Keywords.pm0000644666302512716660000000460711276327536024355 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Keywords; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Blended'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MP3Downloads'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'Shoes'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Keywords!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Keywords - valid search indicies for the uk locale and the Keywords SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Beauty Blended Books Classical DVD Electronics HealthPersonalCare HomeGarden Jewelry Kitchen MP3Downloads Music MusicTracks OfficeProducts OutdoorLiving Shoes Software SoftwareVideoGames Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Condition.pm0000644666302512716660000000360411253707750024463 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Condition; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Condition!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Condition - valid search indices for the uk locale and the Condition operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Electronics HealthPersonalCare HealthPersonalCare HomeGarden Kitchen MusicTracks OutdoorLiving Software SoftwareVideoGames Toys VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Baby.pm0000644666302512716660000000404711276327536023421 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Baby; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ISPUPostalCode'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Baby!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Baby - valid search indicies for the uk locale and the Baby SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability Brand BrowseNode Condition Count DeliveryMethod Format ISPUPostalCode ItemPage Keywords Magazines Manufacturer MerchantId Performer PostalCode Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Power.pm0000644666302512716660000000204011253707751023623 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Power; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Power!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Power - valid search indices for the uk locale and the Power operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Performer.pm0000644666302512716660000000253611253707751024502 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Performer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Performer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Performer - valid search indices for the uk locale and the Performer operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Baby Classical DVD Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/HomeGarden.pm0000644666302512716660000000317311276327536024554 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::HomeGarden; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::HomeGarden!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::HomeGarden - valid search indicies for the uk locale and the HomeGarden SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Conductor.pm0000644666302512716660000000210011253707750024463 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Conductor; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Classical', %options, }; push @{$self->{_options}}, 'Classical'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Conductor!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Conductor - valid search indices for the uk locale and the Conductor operation. =head1 DESCRIPTION The default value is Classical, unless mode is specified. The list of available values are: Classical =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/TextStream.pm0000644666302512716660000000207411253707751024636 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::TextStream; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Watches', %options, }; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::TextStream!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::TextStream - valid search indices for the uk locale and the TextStream operation. =head1 DESCRIPTION The default value is Watches, unless mode is specified. The list of available values are: Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Jewelry.pm0000644666302512716660000000261711276327536024166 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Jewelry; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Jewelry!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Jewelry - valid search indicies for the uk locale and the Jewelry SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability BrowseNode DeliveryMethod Keywords MerchantId Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/ItemPage.pm0000644666302512716660000000417211253707750024231 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::ItemPage; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::ItemPage!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::ItemPage - valid search indices for the uk locale and the ItemPage operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Classical DVD Electronics HealthPersonalCare HealthPersonalCare HomeGarden Kitchen Music MusicTracks OutdoorLiving Software SoftwareVideoGames Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/MusicTracks.pm0000644666302512716660000000264511276327536024776 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::MusicTracks; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Keywords', %options, }; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::MusicTracks!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::MusicTracks - valid search indicies for the uk locale and the MusicTracks SearchIndex. =head1 DESCRIPTION The default value is Keywords, unless mode is specified. The list of available values are: Condition ItemPage Keywords MaximumPrice MerchantId MinimumPrice Sort =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Orchestra.pm0000644666302512716660000000210011253707751024456 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Orchestra; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Classical', %options, }; push @{$self->{_options}}, 'Classical'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Orchestra!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Orchestra - valid search indices for the uk locale and the Orchestra operation. =head1 DESCRIPTION The default value is Classical, unless mode is specified. The list of available values are: Classical =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Video.pm0000644666302512716660000000474511276327536023617 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Video; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Video!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Video - valid search indicies for the uk locale and the Video SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Availability Brand BrowseNode BrowseNode Condition Count Director Format ItemPage ItemPage Keywords Keywords Magazines Manufacturer MaximumPrice MerchantId MinimumPrice Performer PostalCode Publisher Sort Sort State Title Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Kitchen.pm0000644666302512716660000000315711276327536024132 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Kitchen; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Kitchen!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Kitchen - valid search indicies for the uk locale and the Kitchen SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/OutdoorLiving.pm0000644666302512716660000000320711276327536025345 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::OutdoorLiving; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::OutdoorLiving!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::OutdoorLiving - valid search indicies for the uk locale and the OutdoorLiving SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Sort.pm0000644666302512716660000000403611253707751023465 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Sort; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Sort!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Sort - valid search indices for the uk locale and the Sort operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Classical DVD Electronics HealthPersonalCare HomeGarden Kitchen Music MusicTracks OutdoorLiving Software SoftwareVideoGames Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Beauty.pm0000644666302512716660000000323511276327536023773 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Beauty; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Beauty!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Beauty - valid search indicies for the uk locale and the Beauty SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition Count ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/MusicLabel.pm0000644666302512716660000000215611253707751024557 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::MusicLabel; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Music'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::MusicLabel!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::MusicLabel - valid search indices for the uk locale and the MusicLabel operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical Music =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Manufacturer.pm0000644666302512716660000000324411253707751025172 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Manufacturer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Software', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Manufacturer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Manufacturer - valid search indices for the uk locale and the Manufacturer operation. =head1 DESCRIPTION The default value is Software, unless mode is specified. The list of available values are: Apparel Baby Electronics HealthPersonalCare HomeGarden Kitchen OutdoorLiving Software SoftwareVideoGames Toys VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Brand.pm0000644666302512716660000000332411253707750023562 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Brand; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Software', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Brand!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Brand - valid search indices for the uk locale and the Brand operation. =head1 DESCRIPTION The default value is Software, unless mode is specified. The list of available values are: Apparel Baby Electronics HealthPersonalCare HealthPersonalCare HomeGarden Kitchen OutdoorLiving Software SoftwareVideoGames Toys VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Books.pm0000644666302512716660000000322511276327536023616 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Books; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Books!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Books - valid search indicies for the uk locale and the Books SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author BrowseNode Condition ItemPage Keywords MaximumPrice MerchantId MinimumPrice Power Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Count.pm0000644666302512716660000000251611253707750023626 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Count; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Count!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Count - valid search indices for the uk locale and the Count operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Baby Classical DVD Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Shoes.pm0000644666302512716660000000331311276327536023620 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Shoes; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Shoes!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Shoes - valid search indicies for the uk locale and the Shoes SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition Count ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Power Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Classical.pm0000644666302512716660000000366111276327536024443 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Classical; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Composer'; push @{$self->{_options}}, 'Conductor'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Orchestra'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Classical!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Classical - valid search indicies for the uk locale and the Classical SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor Availability BrowseNode Composer Conductor Count Format ItemPage Keywords Magazines MusicLabel Orchestra Performer PostalCode Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/VideoGames.pm0000644666302512716660000000317311276327536024566 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::VideoGames; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::VideoGames!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::VideoGames - valid search indicies for the uk locale and the VideoGames SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Music.pm0000644666302512716660000000421511276327536023621 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Music; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Music!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Music - valid search indicies for the uk locale and the Music SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Artist Availability BrowseNode Condition Count Format ItemPage ItemPage Keywords Keywords Magazines MaximumPrice MerchantId MinimumPrice MusicLabel Performer PostalCode Sort Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Artist.pm0000644666302512716660000000204411253707750024000 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Artist; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Music'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Artist!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Artist - valid search indices for the uk locale and the Artist operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Music =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/MinimumPrice.pm0000644666302512716660000000333611253707751025136 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::MinimumPrice; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::MinimumPrice!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::MinimumPrice - valid search indices for the uk locale and the MinimumPrice operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Electronics HealthPersonalCare HomeGarden Kitchen MusicTracks OutdoorLiving Software SoftwareVideoGames Toys VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/DVD.pm0000644666302512716660000000354711276327536023165 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::DVD; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::DVD!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::DVD - valid search indicies for the uk locale and the DVD SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Availability BrowseNode Count Director Format ItemPage Keywords Magazines Performer PostalCode Publisher Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/AudienceRating.pm0000644666302512716660000000223411253707750025415 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::AudienceRating; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::AudienceRating!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::AudienceRating - valid search indices for the uk locale and the AudienceRating operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: DVD VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Director.pm0000644666302512716660000000220411253707750024303 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Director; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Director!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Director - valid search indices for the uk locale and the Director operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: DVD VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/MP3Downloads.pm0000644666302512716660000000404711276327536025016 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::MP3Downloads; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'ResponseGroup'; push @{$self->{_options}}, 'ReviewSort'; push @{$self->{_options}}, 'SearchIndex'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'TagPage'; push @{$self->{_options}}, 'TagSort'; push @{$self->{_options}}, 'TagsPerPage'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::MP3Downloads!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::MP3Downloads - valid search indicies for the uk locale and the MP3Downloads SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability BrowseNode Count DeliveryMethod ItemPage Keywords MaximumPrice MerchantId MinimumPrice ResponseGroup ReviewSort SearchIndex Sort TagPage TagSort TagsPerPage Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/DeliveryMethod.pm0000644666302512716660000000217411253707750025462 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::DeliveryMethod; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Apparel', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::DeliveryMethod!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::DeliveryMethod - valid search indices for the uk locale and the DeliveryMethod operation. =head1 DESCRIPTION The default value is Apparel, unless mode is specified. The list of available values are: Apparel Baby =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Blended.pm0000644666302512716660000000206711276327536024101 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Blended; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Keywords', %options, }; push @{$self->{_options}}, 'Keywords'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Blended!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Blended - valid search indicies for the uk locale and the Blended SearchIndex. =head1 DESCRIPTION The default value is Keywords, unless mode is specified. The list of available values are: Keywords =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/MerchantId.pm0000644666302512716660000000347411253707751024561 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::MerchantId; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::MerchantId!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::MerchantId - valid search indices for the uk locale and the MerchantId operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Electronics HealthPersonalCare HomeGarden Kitchen MusicTracks OutdoorLiving Software SoftwareVideoGames Toys VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Publisher.pm0000644666302512716660000000227611253707751024477 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Publisher; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Publisher!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Publisher - valid search indices for the uk locale and the Publisher operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books DVD VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Title.pm0000644666302512716660000000374411253707751023624 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Title; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Title!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Title - valid search indices for the uk locale and the Title operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Classical DVD Electronics HealthPersonalCare HomeGarden Kitchen Music OutdoorLiving Software SoftwareVideoGames Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Magazines.pm0000644666302512716660000000253611253707750024456 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Magazines; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Magazines!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Magazines - valid search indices for the uk locale and the Magazines operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Baby Classical DVD Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Software.pm0000644666302512716660000000435111276327536024334 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Software; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Software!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Software - valid search indicies for the uk locale and the Software SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand Brand BrowseNode BrowseNode Condition Condition ItemPage ItemPage Keywords Keywords Manufacturer Manufacturer MaximumPrice MaximumPrice MerchantId MerchantId MinimumPrice MinimumPrice Sort Sort Title Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/BrowseNode.pm0000644666302512716660000000410411253707750024600 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::BrowseNode; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::BrowseNode!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::BrowseNode - valid search indices for the uk locale and the BrowseNode operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Classical DVD Electronics HealthPersonalCare HealthPersonalCare HomeGarden Kitchen Music OutdoorLiving Software SoftwareVideoGames Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Format.pm0000644666302512716660000000252211253707750023763 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Format; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Format!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Format - valid search indices for the uk locale and the Format operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Baby Classical DVD Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Author.pm0000644666302512716660000000221211253707750023771 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Author; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Author!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Author - valid search indices for the uk locale and the Author operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Availability.pm0000644666302512716660000000255211253707750025150 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Availability; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Availability!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Availability - valid search indices for the uk locale and the Availability operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Baby Classical DVD Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Composer.pm0000644666302512716660000000207411253707750024324 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Composer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Classical', %options, }; push @{$self->{_options}}, 'Classical'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Composer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Composer - valid search indices for the uk locale and the Composer operation. =head1 DESCRIPTION The default value is Classical, unless mode is specified. The list of available values are: Classical =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/PostalCode.pm0000644666302512716660000000254211253707751024573 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::PostalCode; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::PostalCode!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::PostalCode - valid search indices for the uk locale and the PostalCode operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Baby Classical DVD Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Toys.pm0000644666302512716660000000314311276327536023476 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Toys; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Toys!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Toys - valid search indicies for the uk locale and the Toys SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/EAN.pm0000644666302512716660000001100511276327536023137 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::EAN; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Blended'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Composer'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Conductor'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'ISPUPostalCode'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MP3Downloads'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'Orchestra'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'ResponseGroup'; push @{$self->{_options}}, 'ReviewSort'; push @{$self->{_options}}, 'SearchIndex'; push @{$self->{_options}}, 'Shoes'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TagPage'; push @{$self->{_options}}, 'TagSort'; push @{$self->{_options}}, 'TagsPerPage'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::EAN!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::EAN - valid search indicies for the uk locale and the EAN SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Actor Apparel Artist AudienceRating Author Availability Baby Beauty Blended Books Brand BrowseNode Classical Composer Condition Conductor Count DVD DeliveryMethod Director Electronics Format HealthPersonalCare HomeGarden ISPUPostalCode ItemPage Jewelry Keywords Kitchen MP3Downloads Magazines Manufacturer MaximumPrice MerchantId MinimumPrice Music MusicLabel MusicTracks OfficeProducts Orchestra OutdoorLiving Performer PostalCode Power Publisher ResponseGroup ReviewSort SearchIndex Shoes Software SoftwareVideoGames Sort State TagPage TagSort TagsPerPage TextStream Title Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/HealthPersonalCare.pm0000644666302512716660000000357311276327536026253 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::HealthPersonalCare; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::HealthPersonalCare!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::HealthPersonalCare - valid search indicies for the uk locale and the HealthPersonalCare SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand Brand BrowseNode BrowseNode Condition Condition ItemPage ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/MaximumPrice.pm0000644666302512716660000000325011253707751025133 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::MaximumPrice; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::MaximumPrice!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::MaximumPrice - valid search indices for the uk locale and the MaximumPrice operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Electronics HealthPersonalCare HomeGarden Kitchen MusicTracks OutdoorLiving Software SoftwareVideoGames Toys VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Watches.pm0000644666302512716660000000305311276327536024136 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Watches; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Watches!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Watches - valid search indicies for the uk locale and the Watches SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords MerchantId MinimumPrice Sort State TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/SoftwareVideoGames.pm0000644666302512716660000000323311276327536026276 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::SoftwareVideoGames; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::SoftwareVideoGames!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::SoftwareVideoGames - valid search indicies for the uk locale and the SoftwareVideoGames SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Apparel.pm0000644666302512716660000000406311276327536024126 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Apparel; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ISPUPostalCode'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Apparel!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Apparel - valid search indicies for the uk locale and the Apparel SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability Brand BrowseNode Condition Count DeliveryMethod Format ISPUPostalCode ItemPage Keywords Magazines Manufacturer MerchantId Performer PostalCode Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/ISPUPostalCode.pm0000644666302512716660000000217411253707750025274 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::ISPUPostalCode; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Apparel', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::ISPUPostalCode!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::ISPUPostalCode - valid search indices for the uk locale and the ISPUPostalCode operation. =head1 DESCRIPTION The default value is Apparel, unless mode is specified. The list of available values are: Apparel Baby =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/OfficeProducts.pm0000644666302512716660000000313511276327536025460 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::OfficeProducts; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::OfficeProducts!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::OfficeProducts - valid search indicies for the uk locale and the OfficeProducts SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability Brand BrowseNode DeliveryMethod Keywords MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/State.pm0000644666302512716660000000260411253707751023615 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::State; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::State!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::State - valid search indices for the uk locale and the State operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Baby Classical DVD Music VHS Video Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/VHS.pm0000644666302512716660000000354711276327536023210 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::VHS; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::VHS!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::VHS - valid search indicies for the uk locale and the VHS SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Availability BrowseNode Count Director Format ItemPage Keywords Magazines Performer PostalCode Publisher Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/uk/Actor.pm0000644666302512716660000000226211253707750023604 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::uk::Actor; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for uk::Actor!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::uk::Actor - valid search indices for the uk locale and the Actor operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: Classical DVD VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/0000755666302512716660000000000012101066651022134 5ustar boumenotpg1319368Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Format.pm0000644666302512716660000000253011253707750023733 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Format; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Format!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Format - valid search indices for the de locale and the Format operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Classical DVD Kitchen Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/ISPUPostalCode.pm0000644666302512716660000000220211253707750025235 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::ISPUPostalCode; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Apparel', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Kitchen'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::ISPUPostalCode!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::ISPUPostalCode - valid search indices for the de locale and the ISPUPostalCode operation. =head1 DESCRIPTION The default value is Apparel, unless mode is specified. The list of available values are: Apparel Kitchen =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Magazines.pm0000644666302512716660000000307711276327535024434 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Magazines; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Magazines!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Magazines - valid search indicies for the de locale and the Magazines SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords MaximumPrice MerchantId MinimumPrice Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Baby.pm0000644666302512716660000000322511276327535023366 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Baby; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Baby!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Baby - valid search indicies for the de locale and the Baby SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Artist.pm0000644666302512716660000000213611253707750023753 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Artist; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Music'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Artist!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Artist - valid search indices for the de locale and the Artist operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical Music =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/MusicTracks.pm0000644666302512716660000000264511276327535024746 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::MusicTracks; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Keywords', %options, }; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::MusicTracks!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::MusicTracks - valid search indicies for the de locale and the MusicTracks SearchIndex. =head1 DESCRIPTION The default value is Keywords, unless mode is specified. The list of available values are: Condition ItemPage Keywords MaximumPrice MerchantId MinimumPrice Sort =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Toys.pm0000644666302512716660000000264311276327535023452 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Toys; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Toys!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Toys - valid search indicies for the de locale and the Toys SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition Count ItemPage Keywords MerchantId Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/PCHardware.pm0000644666302512716660000000311111276327535024463 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::PCHardware; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::PCHardware!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::PCHardware - valid search indicies for the de locale and the PCHardware SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/OutdoorLiving.pm0000644666302512716660000000312511276327535025314 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::OutdoorLiving; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::OutdoorLiving!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::OutdoorLiving - valid search indicies for the de locale and the OutdoorLiving SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Condition.pm0000644666302512716660000000422411253707750024433 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Condition; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Condition!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Condition - valid search indices for the de locale and the Condition operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Electronics ForeignBooks HealthPersonalCare HomeGarden Kitchen Magazines MusicTracks OutdoorLiving PCHardware Photo Software SoftwareVideoGames SportingGoods Tools Toys VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Conductor.pm0000644666302512716660000000214211253707750024442 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Conductor; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Conductor!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Conductor - valid search indices for the de locale and the Conductor operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: Classical DVD =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Beauty.pm0000644666302512716660000000323511276327535023743 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Beauty; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Beauty!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Beauty - valid search indicies for the de locale and the Beauty SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition Count ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/VHS.pm0000644666302512716660000000354711276327535023160 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::VHS; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::VHS!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::VHS - valid search indicies for the de locale and the VHS SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Availability BrowseNode Count Director Format ItemPage Keywords Magazines Performer PostalCode Publisher Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/TextStream.pm0000644666302512716660000000207411253707750024606 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::TextStream; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Watches', %options, }; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::TextStream!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::TextStream - valid search indices for the de locale and the TextStream operation. =head1 DESCRIPTION The default value is Watches, unless mode is specified. The list of available values are: Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/ItemPage.pm0000644666302512716660000000461211253707750024201 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::ItemPage; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::ItemPage!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::ItemPage - valid search indices for the de locale and the ItemPage operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Classical DVD Electronics ForeignBooks HealthPersonalCare HomeGarden Kitchen Magazines Music MusicTracks OutdoorLiving PCHardware Photo Software SoftwareVideoGames SportingGoods Tools Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Apparel.pm0000644666302512716660000000415711276327535024102 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Apparel; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ISPUPostalCode'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'ReviewRank'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Apparel!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Apparel - valid search indicies for the de locale and the Apparel SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability Brand BrowseNode Condition Count DeliveryMethod Format ISPUPostalCode ItemPage Keywords Magazines Manufacturer MerchantId Performer PostalCode ReviewRank Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/AudienceRating.pm0000644666302512716660000000215611253707750025371 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::AudienceRating; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'VHS', %options, }; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::AudienceRating!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::AudienceRating - valid search indices for the de locale and the AudienceRating operation. =head1 DESCRIPTION The default value is VHS, unless mode is specified. The list of available values are: VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Blended.pm0000644666302512716660000000206711276327535024051 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Blended; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Keywords', %options, }; push @{$self->{_options}}, 'Keywords'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Blended!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Blended - valid search indicies for the de locale and the Blended SearchIndex. =head1 DESCRIPTION The default value is Keywords, unless mode is specified. The list of available values are: Keywords =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/MPAARating.pm0000644666302512716660000000211011253707750024360 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::MPAARating; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'VideoGames', %options, }; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::MPAARating!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::MPAARating - valid search indices for the de locale and the MPAARating operation. =head1 DESCRIPTION The default value is VideoGames, unless mode is specified. The list of available values are: VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/State.pm0000644666302512716660000000267211253707750023572 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::State; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::State!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::State - valid search indices for the de locale and the State operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Baby Classical DVD Kitchen Music VHS Video Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/PostalCode.pm0000644666302512716660000000255011253707750024542 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::PostalCode; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::PostalCode!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::PostalCode - valid search indices for the de locale and the PostalCode operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Classical DVD Kitchen Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Video.pm0000644666302512716660000000475711276327535023572 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Video; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MPAARating'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Video!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Video - valid search indicies for the de locale and the Video SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Availability BrowseNode BrowseNode Condition Count Director Format ItemPage ItemPage Keywords Keywords MPAARating Magazines Manufacturer MaximumPrice MerchantId MinimumPrice Performer PostalCode Publisher Sort Sort State Title Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Performer.pm0000644666302512716660000000254411253707750024451 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Performer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Performer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Performer - valid search indices for the de locale and the Performer operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Classical DVD Kitchen Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Director.pm0000644666302512716660000000212611253707750024257 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Director; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'VHS', %options, }; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Director!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Director - valid search indices for the de locale and the Director operation. =head1 DESCRIPTION The default value is VHS, unless mode is specified. The list of available values are: VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/EAN.pm0000644666302512716660000001110311276327535023106 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::EAN; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Blended'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Composer'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Conductor'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'ISPUPostalCode'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MP3Downloads'; push @{$self->{_options}}, 'MPAARating'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'Orchestra'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'ReviewRank'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::EAN!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::EAN - valid search indicies for the de locale and the EAN SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Actor Apparel Artist AudienceRating Author Automotive Availability Baby Beauty Blended Books Brand BrowseNode Classical Composer Condition Conductor Count DVD DeliveryMethod Director Electronics ForeignBooks Format HealthPersonalCare HomeGarden ISPUPostalCode ItemPage Jewelry Keywords Kitchen MP3Downloads MPAARating Magazines Manufacturer MaximumPrice MerchantId MinimumPrice Music MusicLabel MusicTracks OfficeProducts Orchestra OutdoorLiving PCHardware Performer Photo PostalCode Power Publisher ReviewRank Software SoftwareVideoGames Sort SportingGoods State TextStream Title Tools Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Photo.pm0000644666302512716660000000306511276327535023604 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Photo; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Photo!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Photo - valid search indicies for the de locale and the Photo SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Title.pm0000644666302512716660000000450011253707750023563 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Title; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Title!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Title - valid search indices for the de locale and the Title operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Classical DVD Electronics ForeignBooks HealthPersonalCare HomeGarden Kitchen Magazines Music OutdoorLiving PCHardware Photo Software SoftwareVideoGames SportingGoods Tools Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/ForeignBooks.pm0000644666302512716660000000317711276327535025106 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::ForeignBooks; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::ForeignBooks!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::ForeignBooks - valid search indicies for the de locale and the ForeignBooks SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author BrowseNode Condition ItemPage Keywords MaximumPrice MerchantId MinimumPrice Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Orchestra.pm0000644666302512716660000000214211253707750024434 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Orchestra; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Orchestra!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Orchestra - valid search indices for the de locale and the Orchestra operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: Classical DVD =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Composer.pm0000644666302512716660000000213611253707750024274 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Composer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Composer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Composer - valid search indices for the de locale and the Composer operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: Classical DVD =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Actor.pm0000644666302512716660000000217011253707750023553 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Actor; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Actor!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Actor - valid search indices for the de locale and the Actor operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: DVD VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Electronics.pm0000644666302512716660000000311511276327535024761 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Electronics; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Electronics!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Electronics - valid search indicies for the de locale and the Electronics SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Keywords.pm0000644666302512716660000000535511276327535024326 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Keywords; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Blended'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MP3Downloads'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Keywords!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Keywords - valid search indicies for the de locale and the Keywords SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Automotive Baby Beauty Blended Books Classical DVD Electronics ForeignBooks HealthPersonalCare HomeGarden Jewelry Kitchen MP3Downloads Magazines Music MusicTracks OfficeProducts OutdoorLiving PCHardware Photo Software SoftwareVideoGames SportingGoods Tools Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Watches.pm0000644666302512716660000000305311276327535024106 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Watches; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Watches!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Watches - valid search indicies for the de locale and the Watches SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords MerchantId MinimumPrice Sort State TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/SportingGoods.pm0000644666302512716660000000312511276327535025311 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::SportingGoods; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::SportingGoods!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::SportingGoods - valid search indicies for the de locale and the SportingGoods SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/BrowseNode.pm0000644666302512716660000000444211253707750024556 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::BrowseNode; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::BrowseNode!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::BrowseNode - valid search indices for the de locale and the BrowseNode operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Classical DVD Electronics ForeignBooks HealthPersonalCare HomeGarden Kitchen Magazines Music OutdoorLiving PCHardware Photo Software SoftwareVideoGames SportingGoods Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/HealthPersonalCare.pm0000644666302512716660000000315111276327535026213 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::HealthPersonalCare; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::HealthPersonalCare!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::HealthPersonalCare - valid search indicies for the de locale and the HealthPersonalCare SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Author.pm0000644666302512716660000000232011253707750023742 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Author; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Kitchen'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Author!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Author - valid search indices for the de locale and the Author operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Books ForeignBooks Kitchen =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Publisher.pm0000644666302512716660000000241211253707750024437 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Publisher; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Publisher!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Publisher - valid search indices for the de locale and the Publisher operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books ForeignBooks Magazines VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Music.pm0000644666302512716660000000421511276327535023571 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Music; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Music!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Music - valid search indicies for the de locale and the Music SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Artist Availability BrowseNode Condition Count Format ItemPage ItemPage Keywords Keywords Magazines MaximumPrice MerchantId MinimumPrice MusicLabel Performer PostalCode Sort Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Tools.pm0000644666302512716660000000267111276327535023615 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Tools; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Tools!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Tools - valid search indicies for the de locale and the Tools SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Condition ItemPage Keywords MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Manufacturer.pm0000644666302512716660000000344411253707750025144 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Manufacturer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Software', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Manufacturer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Manufacturer - valid search indices for the de locale and the Manufacturer operation. =head1 DESCRIPTION The default value is Software, unless mode is specified. The list of available values are: Apparel Baby Electronics HealthPersonalCare HomeGarden Kitchen OutdoorLiving PCHardware Photo Software SoftwareVideoGames SportingGoods VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Automotive.pm0000644666302512716660000000335111276327535024645 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Automotive; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Automotive!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Automotive - valid search indicies for the de locale and the Automotive SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/VideoGames.pm0000644666302512716660000000320511276327535024532 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::VideoGames; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MPAARating'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::VideoGames!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::VideoGames - valid search indicies for the de locale and the VideoGames SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords MPAARating Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/MinimumPrice.pm0000644666302512716660000000400411253707750025077 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::MinimumPrice; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::MinimumPrice!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::MinimumPrice - valid search indices for the de locale and the MinimumPrice operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Baby Books Electronics ForeignBooks HealthPersonalCare HomeGarden Magazines MusicTracks OutdoorLiving PCHardware Photo Software SoftwareVideoGames SportingGoods Tools VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Sort.pm0000644666302512716660000000457211253707750023442 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Sort; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Sort!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Sort - valid search indices for the de locale and the Sort operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Classical DVD Electronics ForeignBooks HealthPersonalCare HomeGarden Kitchen Magazines Music MusicTracks OutdoorLiving PCHardware Photo Software SoftwareVideoGames SportingGoods Tools Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/DVD.pm0000644666302512716660000000363111276327535023127 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::DVD; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Composer'; push @{$self->{_options}}, 'Conductor'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Orchestra'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::DVD!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::DVD - valid search indicies for the de locale and the DVD SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor Availability BrowseNode Composer Conductor Count Format ItemPage Keywords Magazines MusicLabel Orchestra Performer PostalCode Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/OfficeProducts.pm0000644666302512716660000000313511276327535025430 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::OfficeProducts; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::OfficeProducts!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::OfficeProducts - valid search indicies for the de locale and the OfficeProducts SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability Brand BrowseNode DeliveryMethod Keywords MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Kitchen.pm0000644666302512716660000000406311276327535024077 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Kitchen; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ISPUPostalCode'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Kitchen!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Kitchen - valid search indicies for the de locale and the Kitchen SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability Brand BrowseNode Condition Count DeliveryMethod Format ISPUPostalCode ItemPage Keywords Magazines Manufacturer MerchantId Performer PostalCode Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/DeliveryMethod.pm0000644666302512716660000000220211253707750025423 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::DeliveryMethod; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Apparel', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Kitchen'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::DeliveryMethod!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::DeliveryMethod - valid search indices for the de locale and the DeliveryMethod operation. =head1 DESCRIPTION The default value is Apparel, unless mode is specified. The list of available values are: Apparel Kitchen =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Availability.pm0000644666302512716660000000256011253707750025120 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Availability; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Availability!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Availability - valid search indices for the de locale and the Availability operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Classical DVD Kitchen Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/MusicLabel.pm0000644666302512716660000000223411253707750024524 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::MusicLabel; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::MusicLabel!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::MusicLabel - valid search indices for the de locale and the MusicLabel operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical DVD Music =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/MP3Downloads.pm0000644666302512716660000000264311276327535024766 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::MP3Downloads; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::MP3Downloads!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::MP3Downloads - valid search indicies for the de locale and the MP3Downloads SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability BrowseNode DeliveryMethod Keywords MerchantId Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/MaximumPrice.pm0000644666302512716660000000371611253707750025112 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::MaximumPrice; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::MaximumPrice!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::MaximumPrice - valid search indices for the de locale and the MaximumPrice operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Baby Books Electronics ForeignBooks HealthPersonalCare HomeGarden Magazines MusicTracks OutdoorLiving PCHardware Photo Software SoftwareVideoGames SportingGoods Tools VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Count.pm0000644666302512716660000000260411253707750023575 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Count; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Count!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Count - valid search indices for the de locale and the Count operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Classical DVD Kitchen Music Toys VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/HomeGarden.pm0000644666302512716660000000311111276327535024514 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::HomeGarden; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::HomeGarden!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::HomeGarden - valid search indicies for the de locale and the HomeGarden SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Classical.pm0000644666302512716660000000366311276327535024415 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Classical; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Composer'; push @{$self->{_options}}, 'Conductor'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Orchestra'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Classical!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Classical - valid search indicies for the de locale and the Classical SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Artist Availability BrowseNode Composer Conductor Count Format ItemPage Keywords Magazines MusicLabel Orchestra Performer PostalCode Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Power.pm0000644666302512716660000000204011253707750023573 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Power; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Power!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Power - valid search indices for the de locale and the Power operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Brand.pm0000644666302512716660000000221611253707750023532 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Brand; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Apparel', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Kitchen'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Brand!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Brand - valid search indices for the de locale and the Brand operation. =head1 DESCRIPTION The default value is Apparel, unless mode is specified. The list of available values are: Apparel Baby Kitchen =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Software.pm0000644666302512716660000000420511276327535024302 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Software; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Software!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Software - valid search indicies for the de locale and the Software SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode BrowseNode Condition Condition ItemPage ItemPage Keywords Keywords Manufacturer Manufacturer MaximumPrice MaximumPrice MerchantId MerchantId MinimumPrice MinimumPrice Sort Sort Title Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Jewelry.pm0000644666302512716660000000261711276327535024136 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Jewelry; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Jewelry!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Jewelry - valid search indicies for the de locale and the Jewelry SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability BrowseNode DeliveryMethod Keywords MerchantId Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/MerchantId.pm0000644666302512716660000000423011253707750024520 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::MerchantId; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::MerchantId!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::MerchantId - valid search indices for the de locale and the MerchantId operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Electronics ForeignBooks HealthPersonalCare HomeGarden Kitchen Magazines MusicTracks OutdoorLiving PCHardware Photo Software SoftwareVideoGames SportingGoods Tools Toys VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/Books.pm0000644666302512716660000000322511276327535023566 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::Books; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::Books!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::Books - valid search indicies for the de locale and the Books SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author BrowseNode Condition ItemPage Keywords MaximumPrice MerchantId MinimumPrice Power Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/de/SoftwareVideoGames.pm0000644666302512716660000000315111276327535026245 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::de::SoftwareVideoGames; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for de::SoftwareVideoGames!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::de::SoftwareVideoGames - valid search indicies for the de locale and the SoftwareVideoGames SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/0000755666302512716660000000000012101066651022127 5ustar boumenotpg1319368Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Actor.pm0000644666302512716660000000217011253707747023554 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Actor; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Actor!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Actor - valid search indices for the ca locale and the Actor operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: DVD VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Condition.pm0000644666302512716660000000305211253707747024432 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Condition; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Condition!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Condition - valid search indices for the ca locale and the Condition operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Classical DVD ForeignBooks Music Software SoftwareVideoGames VHS Video VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Keywords.pm0000644666302512716660000000323511276327535024314 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Keywords; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Blended'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Keywords!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Keywords - valid search indicies for the ca locale and the Keywords SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Blended Books Classical DVD Electronics ForeignBooks Music Software SoftwareVideoGames VHS Video VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/EAN.pm0000644666302512716660000000563711276327535023120 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::EAN; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Blended'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Composer'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Conductor'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'ReleaseDate'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::EAN!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::EAN - valid search indicies for the ca locale and the EAN SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Actor Artist AudienceRating Author Blended Books Brand BrowseNode Classical Composer Condition Conductor Count DVD Director Electronics ForeignBooks ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Music MusicLabel Power Publisher ReleaseDate Software SoftwareVideoGames Sort Title VHS Video VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Electronics.pm0000644666302512716660000000327511276327535024763 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Electronics; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'ReleaseDate'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Electronics!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Electronics - valid search indicies for the ca locale and the Electronics SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition Count ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice ReleaseDate Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Sort.pm0000644666302512716660000000302611253707750023426 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Sort; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Sort!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Sort - valid search indices for the ca locale and the Sort operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Classical DVD ForeignBooks Music Software SoftwareVideoGames VHS Video VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Director.pm0000644666302512716660000000220411253707747024255 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Director; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Director!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Director - valid search indices for the ca locale and the Director operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: DVD VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/DVD.pm0000644666302512716660000000340711276327535023123 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::DVD; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::DVD!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::DVD - valid search indicies for the ca locale and the DVD SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating BrowseNode Condition Count Director ItemPage Keywords MaximumPrice MerchantId MinimumPrice Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Blended.pm0000644666302512716660000000206711276327535024044 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Blended; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Keywords', %options, }; push @{$self->{_options}}, 'Keywords'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Blended!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Blended - valid search indicies for the ca locale and the Blended SearchIndex. =head1 DESCRIPTION The default value is Keywords, unless mode is specified. The list of available values are: Keywords =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/MerchantId.pm0000644666302512716660000000305611253707747024526 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::MerchantId; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::MerchantId!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::MerchantId - valid search indices for the ca locale and the MerchantId operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Classical DVD ForeignBooks Music Software SoftwareVideoGames VHS Video VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Author.pm0000644666302512716660000000234611253707747023753 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Author; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Author!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Author - valid search indices for the ca locale and the Author operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Classical SoftwareVideoGames VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Software.pm0000644666302512716660000000443511276327535024302 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Software; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Software!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Software - valid search indicies for the ca locale and the Software SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author BrowseNode BrowseNode Condition Condition Count Count ItemPage ItemPage Keywords Keywords Manufacturer Manufacturer MaximumPrice MaximumPrice MerchantId MerchantId MinimumPrice MinimumPrice Sort Sort Title Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Video.pm0000644666302512716660000000475311276327535023561 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Video; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Video!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Video - valid search indicies for the ca locale and the Video SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Author Brand BrowseNode BrowseNode Condition Condition Count Count Director ItemPage ItemPage Keywords Keywords Manufacturer MaximumPrice MaximumPrice MerchantId MerchantId MinimumPrice MinimumPrice Publisher Sort Sort Title Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Classical.pm0000644666302512716660000000343111276327535024401 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Classical; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Composer'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Conductor'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Classical!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Classical - valid search indicies for the ca locale and the Classical SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author BrowseNode Composer Condition Conductor Count ItemPage Keywords MaximumPrice MerchantId MinimumPrice MusicLabel Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Conductor.pm0000644666302512716660000000210011253707747024435 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Conductor; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Classical', %options, }; push @{$self->{_options}}, 'Classical'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Conductor!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Conductor - valid search indices for the ca locale and the Conductor operation. =head1 DESCRIPTION The default value is Classical, unless mode is specified. The list of available values are: Classical =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Music.pm0000644666302512716660000000331111276327535023560 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Music; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Music!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Music - valid search indicies for the ca locale and the Music SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Artist BrowseNode Condition Count ItemPage Keywords MaximumPrice MerchantId MinimumPrice MusicLabel Power Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/ItemPage.pm0000644666302512716660000000304611253707747024202 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::ItemPage; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::ItemPage!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::ItemPage - valid search indices for the ca locale and the ItemPage operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Classical DVD ForeignBooks Music Software SoftwareVideoGames VHS Video VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/BrowseNode.pm0000644666302512716660000000305611253707747024557 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::BrowseNode; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::BrowseNode!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::BrowseNode - valid search indices for the ca locale and the BrowseNode operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Classical DVD ForeignBooks Music Software SoftwareVideoGames VHS Video VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Power.pm0000644666302512716660000000222211253707747023576 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Power; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Music'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Power!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Power - valid search indices for the ca locale and the Power operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books ForeignBooks Music =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/AudienceRating.pm0000644666302512716660000000215611253707747025372 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::AudienceRating; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::AudienceRating!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::AudienceRating - valid search indices for the ca locale and the AudienceRating operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: DVD Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/MinimumPrice.pm0000644666302512716660000000306611253707747025107 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::MinimumPrice; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::MinimumPrice!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::MinimumPrice - valid search indices for the ca locale and the MinimumPrice operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Classical DVD ForeignBooks Music Software SoftwareVideoGames VHS Video VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/VideoGames.pm0000644666302512716660000000334111276327535024526 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::VideoGames; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::VideoGames!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::VideoGames - valid search indicies for the ca locale and the VideoGames SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Brand BrowseNode Condition Count ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/MusicLabel.pm0000644666302512716660000000215611253707747024530 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::MusicLabel; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Music'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::MusicLabel!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::MusicLabel - valid search indices for the ca locale and the MusicLabel operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical Music =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/SoftwareVideoGames.pm0000644666302512716660000000331711276327535026244 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::SoftwareVideoGames; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::SoftwareVideoGames!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::SoftwareVideoGames - valid search indicies for the ca locale and the SoftwareVideoGames SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author BrowseNode Condition Count ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/VHS.pm0000644666302512716660000000330311276327535023141 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::VHS; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::VHS!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::VHS - valid search indicies for the ca locale and the VHS SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor BrowseNode Condition Count Director ItemPage Keywords MaximumPrice MerchantId MinimumPrice Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Title.pm0000644666302512716660000000303211253707750023555 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Title; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Title!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Title - valid search indices for the ca locale and the Title operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Classical DVD ForeignBooks Music Software SoftwareVideoGames VHS Video VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Books.pm0000644666302512716660000000330711276327535023562 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Books; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Books!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Books - valid search indicies for the ca locale and the Books SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author BrowseNode Condition Count ItemPage Keywords MaximumPrice MerchantId MinimumPrice Power Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/ForeignBooks.pm0000644666302512716660000000325711276327535025100 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::ForeignBooks; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::ForeignBooks!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::ForeignBooks - valid search indicies for the ca locale and the ForeignBooks SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition Count ItemPage Keywords MaximumPrice MerchantId MinimumPrice Power Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Manufacturer.pm0000644666302512716660000000232011253707747025135 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Manufacturer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Software', %options, }; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Manufacturer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Manufacturer - valid search indices for the ca locale and the Manufacturer operation. =head1 DESCRIPTION The default value is Software, unless mode is specified. The list of available values are: Software SoftwareVideoGames VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Publisher.pm0000644666302512716660000000237611253707747024451 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Publisher; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Publisher!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Publisher - valid search indices for the ca locale and the Publisher operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books DVD ForeignBooks VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/MaximumPrice.pm0000644666302512716660000000306611253707747025111 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::MaximumPrice; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::MaximumPrice!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::MaximumPrice - valid search indices for the ca locale and the MaximumPrice operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Classical DVD ForeignBooks Music Software SoftwareVideoGames VHS Video VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Composer.pm0000644666302512716660000000207411253707747024276 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Composer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Classical', %options, }; push @{$self->{_options}}, 'Classical'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Composer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Composer - valid search indices for the ca locale and the Composer operation. =head1 DESCRIPTION The default value is Classical, unless mode is specified. The list of available values are: Classical =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Artist.pm0000644666302512716660000000204411253707747023752 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Artist; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Music'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Artist!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Artist - valid search indices for the ca locale and the Artist operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Music =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Count.pm0000644666302512716660000000303211253707747023572 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Count; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Count!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Count - valid search indices for the ca locale and the Count operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Classical DVD ForeignBooks Music Software SoftwareVideoGames VHS Video VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/ca/Brand.pm0000644666302512716660000000206411253707747023534 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::ca::Brand; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'VideoGames', %options, }; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for ca::Brand!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::ca::Brand - valid search indices for the ca locale and the Brand operation. =head1 DESCRIPTION The default value is VideoGames, unless mode is specified. The list of available values are: VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/0000755666302512716660000000000012101066651022155 5ustar boumenotpg1319368Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Kitchen.pm0000644666302512716660000000306312101065076024102 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Kitchen; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Kitchen!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Kitchen - valid search indicies for the jp locale and the Kitchen SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Blended.pm0000644666302512716660000000206711276327535024072 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Blended; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Keywords', %options, }; push @{$self->{_options}}, 'Keywords'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Blended!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Blended - valid search indicies for the jp locale and the Blended SearchIndex. =head1 DESCRIPTION The default value is Keywords, unless mode is specified. The list of available values are: Keywords =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/MusicLabel.pm0000644666302512716660000000215611253707750024550 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::MusicLabel; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Music'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::MusicLabel!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::MusicLabel - valid search indices for the jp locale and the MusicLabel operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical Music =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Power.pm0000644666302512716660000000204011253707750023614 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Power; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Power!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Power - valid search indices for the jp locale and the Power operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Baby.pm0000644666302512716660000000304712101065076023374 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Baby; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Baby!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Baby - valid search indicies for the jp locale and the Baby SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Watches.pm0000644666302512716660000000260112101065076024110 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Watches; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Watches!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Watches - valid search indicies for the jp locale and the Watches SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Artist.pm0000644666302512716660000000204411253707750023772 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Artist; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Music'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Artist!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Artist - valid search indices for the jp locale and the Artist operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Music =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/HealthPersonalCare.pm0000644666302512716660000000305512101065076026222 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::HealthPersonalCare; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::HealthPersonalCare!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::HealthPersonalCare - valid search indicies for the jp locale and the HealthPersonalCare SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Grocery.pm0000644666302512716660000000314512101065076024130 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Grocery; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Grocery!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Grocery - valid search indicies for the jp locale and the Grocery SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition Count ItemPage Keywords Manufacturer MaximumPrice MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Conductor.pm0000644666302512716660000000210011253707750024455 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Conductor; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Classical', %options, }; push @{$self->{_options}}, 'Classical'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Conductor!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Conductor - valid search indices for the jp locale and the Conductor operation. =head1 DESCRIPTION The default value is Classical, unless mode is specified. The list of available values are: Classical =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Title.pm0000644666302512716660000000372211253707750023611 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Title; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'Hobbies'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Title!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Title - valid search indices for the jp locale and the Title operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Classical DVD Electronics ForeignBooks HealthPersonalCare Hobbies Kitchen Music Software SportingGoods Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/PostalCode.pm0000644666302512716660000000246211253707750024565 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::PostalCode; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::PostalCode!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::PostalCode - valid search indices for the jp locale and the PostalCode operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Classical DVD Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/MinimumPrice.pm0000644666302512716660000000337411253707750025131 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::MinimumPrice; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'Hobbies'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::MinimumPrice!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::MinimumPrice - valid search indices for the jp locale and the MinimumPrice operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Baby Books Electronics ForeignBooks HealthPersonalCare Hobbies Kitchen MusicTracks Software SportingGoods Toys VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Sort.pm0000644666302512716660000000401411253707750023452 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Sort; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'Hobbies'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Sort!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Sort - valid search indices for the jp locale and the Sort operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Classical DVD Electronics ForeignBooks HealthPersonalCare Hobbies Kitchen Music MusicTracks Software SportingGoods Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Composer.pm0000644666302512716660000000207411253707750024316 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Composer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Classical', %options, }; push @{$self->{_options}}, 'Classical'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Composer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Composer - valid search indices for the jp locale and the Composer operation. =head1 DESCRIPTION The default value is Classical, unless mode is specified. The list of available values are: Classical =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/DVD.pm0000644666302512716660000000337112101065076023134 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::DVD; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::DVD!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::DVD - valid search indicies for the jp locale and the DVD SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Availability BrowseNode Count Director Format ItemPage Keywords Magazines Performer Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/DeliveryMethod.pm0000644666302512716660000000211411253707750025446 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::DeliveryMethod; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Apparel', %options, }; push @{$self->{_options}}, 'Apparel'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::DeliveryMethod!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::DeliveryMethod - valid search indices for the jp locale and the DeliveryMethod operation. =head1 DESCRIPTION The default value is Apparel, unless mode is specified. The list of available values are: Apparel =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Toys.pm0000644666302512716660000000276512101065076023463 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Toys; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Toys!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Toys - valid search indicies for the jp locale and the Toys SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Brand.pm0000644666302512716660000000250211253707750023551 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Brand; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Software', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Brand!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Brand - valid search indices for the jp locale and the Brand operation. =head1 DESCRIPTION The default value is Software, unless mode is specified. The list of available values are: Apparel Baby Electronics Kitchen Software VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Publisher.pm0000644666302512716660000000237611253707750024471 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Publisher; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Publisher!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Publisher - valid search indices for the jp locale and the Publisher operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books DVD ForeignBooks VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/TextStream.pm0000644666302512716660000000207411253707750024627 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::TextStream; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Watches', %options, }; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::TextStream!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::TextStream - valid search indices for the jp locale and the TextStream operation. =head1 DESCRIPTION The default value is Watches, unless mode is specified. The list of available values are: Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/ItemPage.pm0000644666302512716660000000403411253707750024220 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::ItemPage; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'Hobbies'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::ItemPage!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::ItemPage - valid search indices for the jp locale and the ItemPage operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Classical DVD Electronics ForeignBooks HealthPersonalCare Hobbies Kitchen Music MusicTracks Software SportingGoods Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Music.pm0000644666302512716660000000465312101065076023603 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Music; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Music!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Music - valid search indicies for the jp locale and the Music SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Artist Availability Availability Brand BrowseNode BrowseNode Condition Count Format ItemPage ItemPage Keywords Keywords Keywords Magazines MaximumPrice MaximumPrice MinimumPrice MinimumPrice MusicLabel Performer Sort Sort Sort Title Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Author.pm0000644666302512716660000000223211253707750023765 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Author; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'ForeignBooks'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Author!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Author - valid search indices for the jp locale and the Author operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Books ForeignBooks =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/MusicTracks.pm0000644666302512716660000000255112101065076024746 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::MusicTracks; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Keywords', %options, }; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::MusicTracks!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::MusicTracks - valid search indicies for the jp locale and the MusicTracks SearchIndex. =head1 DESCRIPTION The default value is Keywords, unless mode is specified. The list of available values are: Condition ItemPage Keywords MaximumPrice MinimumPrice Sort =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Magazines.pm0000644666302512716660000000245611253707750024451 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Magazines; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Magazines!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Magazines - valid search indices for the jp locale and the Magazines operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Classical DVD Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/SportingGoods.pm0000644666302512716660000000303112101065076025311 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::SportingGoods; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::SportingGoods!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::SportingGoods - valid search indicies for the jp locale and the SportingGoods SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/BrowseNode.pm0000644666302512716660000000374611253707750024605 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::BrowseNode; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'Hobbies'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::BrowseNode!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::BrowseNode - valid search indices for the jp locale and the BrowseNode operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Classical DVD Electronics ForeignBooks HealthPersonalCare Hobbies Kitchen Music Software SportingGoods Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Beauty.pm0000644666302512716660000000305712101065076023751 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Beauty; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Beauty!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Beauty - valid search indicies for the jp locale and the Beauty SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Electronics.pm0000644666302512716660000000272112101065076024767 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Electronics; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Electronics!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Electronics - valid search indicies for the jp locale and the Electronics SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords MaximumPrice MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/State.pm0000644666302512716660000000260411253707750023606 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::State; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::State!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::State - valid search indices for the jp locale and the State operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Baby Classical DVD Music VHS Video Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Condition.pm0000644666302512716660000000344611253707750024461 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Condition; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'Hobbies'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Condition!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Condition - valid search indices for the jp locale and the Condition operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Electronics ForeignBooks HealthPersonalCare Hobbies Kitchen MusicTracks Software SportingGoods Toys VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Availability.pm0000644666302512716660000000247211253707750025143 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Availability; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Availability!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Availability - valid search indices for the jp locale and the Availability operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Classical DVD Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/VHS.pm0000644666302512716660000000337112101065076023157 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::VHS; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::VHS!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::VHS - valid search indicies for the jp locale and the VHS SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Availability BrowseNode Count Director Format ItemPage Keywords Magazines Performer Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Actor.pm0000644666302512716660000000226211253707750023576 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Actor; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Actor!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Actor - valid search indices for the jp locale and the Actor operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: Classical DVD VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Software.pm0000644666302512716660000000276712101065076024321 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Software; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Software!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Software - valid search indicies for the jp locale and the Software SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords MaximumPrice MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Orchestra.pm0000644666302512716660000000210011253707750024447 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Orchestra; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Classical', %options, }; push @{$self->{_options}}, 'Classical'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Orchestra!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Orchestra - valid search indices for the jp locale and the Orchestra operation. =head1 DESCRIPTION The default value is Classical, unless mode is specified. The list of available values are: Classical =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/EAN.pm0000644666302512716660000001043112101065076023115 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::EAN; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Appliances'; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Blended'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Composer'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Conductor'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'DeliveryMode'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'Grocery'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'Hobbies'; push @{$self->{_options}}, 'HomeImprovement'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MP3Downloads'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'Marketplace'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'MusicalInstruments'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'Orchestra'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Shoes'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::EAN!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::EAN - valid search indicies for the jp locale and the EAN SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Actor Apparel Appliances Artist AudienceRating Author Automotive Availability Baby Beauty Blended Books Brand BrowseNode Classical Composer Condition Conductor Count DVD DeliveryMode Director Electronics ForeignBooks Format Grocery HealthPersonalCare Hobbies HomeImprovement ItemPage Jewelry Keywords Kitchen MP3Downloads Magazines Manufacturer Marketplace MaximumPrice MerchantId MinimumPrice Music MusicLabel MusicTracks MusicalInstruments OfficeProducts Orchestra Performer Power Publisher Shoes Software Sort SportingGoods Title Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/VideoGames.pm0000644666302512716660000000307712101065076024545 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::VideoGames; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::VideoGames!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::VideoGames - valid search indicies for the jp locale and the VideoGames SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Manufacturer.pm0000644666302512716660000000273211253707750025164 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Manufacturer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Apparel', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'Hobbies'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Manufacturer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Manufacturer - valid search indices for the jp locale and the Manufacturer operation. =head1 DESCRIPTION The default value is Apparel, unless mode is specified. The list of available values are: Apparel Baby HealthPersonalCare Hobbies Kitchen SportingGoods Toys VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Performer.pm0000644666302512716660000000245611253707750024474 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Performer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Performer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Performer - valid search indices for the jp locale and the Performer operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Classical DVD Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Jewelry.pm0000644666302512716660000000241712101065076024140 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Jewelry; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Jewelry!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Jewelry - valid search indicies for the jp locale and the Jewelry SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability BrowseNode Keywords Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Keywords.pm0000644666302512716660000000536312101065076024331 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Keywords; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Appliances'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Blended'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Grocery'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'Hobbies'; push @{$self->{_options}}, 'HomeImprovement'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MP3Downloads'; push @{$self->{_options}}, 'Marketplace'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'MusicalInstruments'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'Shoes'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Keywords!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Keywords - valid search indicies for the jp locale and the Keywords SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Appliances Automotive Baby Beauty Blended Books Classical DVD Electronics ForeignBooks Grocery HealthPersonalCare Hobbies HomeImprovement Jewelry Kitchen MP3Downloads Marketplace Music MusicTracks MusicalInstruments OfficeProducts Shoes Software SportingGoods Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Director.pm0000644666302512716660000000220411253707750024275 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Director; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Director!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Director - valid search indices for the jp locale and the Director operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: DVD VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Format.pm0000644666302512716660000000244211253707750023756 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Format; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Format!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Format - valid search indices for the jp locale and the Format operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Classical DVD Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Books.pm0000644666302512716660000000313112101065076023566 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Books; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Books!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Books - valid search indicies for the jp locale and the Books SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author BrowseNode Condition ItemPage Keywords MaximumPrice MinimumPrice Power Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Hobbies.pm0000644666302512716660000000300112101065076024060 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Hobbies; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Hobbies!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Hobbies - valid search indicies for the jp locale and the Hobbies SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Classical.pm0000644666302512716660000000350312101065076024412 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Classical; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Composer'; push @{$self->{_options}}, 'Conductor'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Orchestra'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Classical!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Classical - valid search indicies for the jp locale and the Classical SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor Availability BrowseNode Composer Conductor Count Format ItemPage Keywords Magazines MusicLabel Orchestra Performer Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Count.pm0000644666302512716660000000243611253707750023621 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Count; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Count!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Count - valid search indices for the jp locale and the Count operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Apparel Classical DVD Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/AudienceRating.pm0000644666302512716660000000223411253707750025407 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::AudienceRating; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::AudienceRating!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::AudienceRating - valid search indices for the jp locale and the AudienceRating operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: DVD VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/ForeignBooks.pm0000644666302512716660000000310312101065076025077 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::ForeignBooks; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::ForeignBooks!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::ForeignBooks - valid search indicies for the jp locale and the ForeignBooks SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author BrowseNode Condition ItemPage Keywords MaximumPrice MinimumPrice Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Video.pm0000644666302512716660000000447312101065076023571 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Video; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Video!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Video - valid search indicies for the jp locale and the Video SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Availability Brand BrowseNode BrowseNode Condition Count Director Format ItemPage ItemPage Keywords Keywords Magazines Manufacturer MaximumPrice MinimumPrice Performer Publisher Sort Sort Title Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/MerchantId.pm0000644666302512716660000000345211253707750024546 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::MerchantId; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'Hobbies'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::MerchantId!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::MerchantId - valid search indices for the jp locale and the MerchantId operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Baby Books Electronics ForeignBooks HealthPersonalCare Hobbies Kitchen MusicTracks Software SportingGoods Toys VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/ISPUPostalCode.pm0000644666302512716660000000211411253707750025260 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::ISPUPostalCode; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Apparel', %options, }; push @{$self->{_options}}, 'Apparel'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::ISPUPostalCode!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::ISPUPostalCode - valid search indices for the jp locale and the ISPUPostalCode operation. =head1 DESCRIPTION The default value is Apparel, unless mode is specified. The list of available values are: Apparel =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/Apparel.pm0000644666302512716660000000340112101065076024075 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::Apparel; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::Apparel!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::Apparel - valid search indicies for the jp locale and the Apparel SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability Brand BrowseNode Condition Count Format ItemPage Keywords Magazines Manufacturer Performer Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/jp/MaximumPrice.pm0000644666302512716660000000330611253707750025126 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::jp::MaximumPrice; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'Hobbies'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for jp::MaximumPrice!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::jp::MaximumPrice - valid search indices for the jp locale and the MaximumPrice operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Baby Books Electronics ForeignBooks HealthPersonalCare Hobbies Kitchen MusicTracks Software SportingGoods Toys VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/0000755666302512716660000000000012101066651022173 5ustar boumenotpg1319368Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/UPC.pm0000644666302512716660000001241511276327536023201 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::UPC; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Blended'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Browsenode'; push @{$self->{_options}}, 'City'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Composer'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Conductor'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'DigitalMusic'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'GourmetFood'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Industrial'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Keyword'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'KindleStore'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MP3Downloads'; push @{$self->{_options}}, 'MPAARating'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Miscellaneous'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'MusicalInstruments'; push @{$self->{_options}}, 'Neighborhood'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'Orchestra'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PetSupplies'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Shoes'; push @{$self->{_options}}, 'SilverMerchants'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'UnboxVideo'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; push @{$self->{_options}}, 'Wireless'; push @{$self->{_options}}, 'WirelessAccessories'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::UPC!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::UPC - valid search indicies for the us locale and the UPC SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Actor Apparel Artist AudienceRating Author Automotive Availability Baby Beauty Blended Books Brand BrowseNode Browsenode City Classical Composer Condition Conductor Count DVD DigitalMusic Director Electronics Format GourmetFood HealthPersonalCare HomeGarden Industrial ItemPage Jewelry Keyword Keywords KindleStore Kitchen MP3Downloads MPAARating Magazines Manufacturer MaximumPrice MerchantId Merchants MinimumPrice Miscellaneous Music MusicLabel MusicTracks MusicalInstruments Neighborhood OfficeProducts Orchestra OutdoorLiving PCHardware Performer PetSupplies Photo PostalCode Power Publisher Shoes SilverMerchants Software Sort SportingGoods State TextStream Title Tools Toys UnboxVideo VHS Video VideoGames Watches Wireless WirelessAccessories =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Electronics.pm0000644666302512716660000000327311276327536025026 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Electronics; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Electronics!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Electronics - valid search indicies for the us locale and the Electronics SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Photo.pm0000644666302512716660000000332511276327536023643 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Photo; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Photo!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Photo - valid search indicies for the us locale and the Photo SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/HealthPersonalCare.pm0000644666302512716660000000331511276327536026255 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::HealthPersonalCare; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::HealthPersonalCare!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::HealthPersonalCare - valid search indicies for the us locale and the HealthPersonalCare SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Classical.pm0000644666302512716660000000374711276327536024460 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Classical; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Composer'; push @{$self->{_options}}, 'Conductor'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Orchestra'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Classical!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Classical - valid search indicies for the us locale and the Classical SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Artist Author Availability BrowseNode Composer Conductor Count Format ItemPage Keywords Magazines MusicLabel Orchestra Performer PostalCode Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/KindleStore.pm0000644666302512716660000000335111276327536024774 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::KindleStore; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::KindleStore!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::KindleStore - valid search indicies for the us locale and the KindleStore SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author BrowseNode Condition ItemPage Keywords MaximumPrice MerchantId MinimumPrice Power Publisher Sort TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Baby.pm0000644666302512716660000000322511276327536023426 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Baby; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Baby!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Baby - valid search indicies for the us locale and the Baby SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Merchants.pm0000644666302512716660000000377511276327536024507 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Merchants; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'City'; push @{$self->{_options}}, 'Composer'; push @{$self->{_options}}, 'Conductor'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Neighborhood'; push @{$self->{_options}}, 'Orchestra'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Merchants!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Merchants - valid search indicies for the us locale and the Merchants SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor Artist AudienceRating Author Brand BrowseNode City Composer Conductor Director Keywords Manufacturer MusicLabel Neighborhood Orchestra Publisher TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Publisher.pm0000644666302512716660000000276411253707751024511 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Publisher; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'DigitalMusic'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'SilverMerchants'; push @{$self->{_options}}, 'UnboxVideo'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Publisher!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Publisher - valid search indices for the us locale and the Publisher operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books DVD DigitalMusic Magazines Merchants SilverMerchants UnboxVideo VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Manufacturer.pm0000644666302512716660000000440411253707751025201 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Manufacturer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Software', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Industrial'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'MusicalInstruments'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'PetSupplies'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'SilverMerchants'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Manufacturer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Manufacturer - valid search indices for the us locale and the Manufacturer operation. =head1 DESCRIPTION The default value is Software, unless mode is specified. The list of available values are: Apparel Automotive Baby Beauty Electronics HealthPersonalCare HomeGarden Industrial Kitchen Merchants MusicalInstruments OfficeProducts OutdoorLiving PCHardware PetSupplies Photo SilverMerchants Software SportingGoods Tools VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Shoes.pm0000644666302512716660000000332511276327536023633 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Shoes; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Shoes!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Shoes - valid search indicies for the us locale and the Shoes SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Author.pm0000644666302512716660000000243411253707751024010 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Author; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'PetSupplies'; push @{$self->{_options}}, 'SilverMerchants'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Author!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Author - valid search indices for the us locale and the Author operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Classical Merchants PetSupplies SilverMerchants =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Title.pm0000644666302512716660000000616011253707751023627 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Title; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'DigitalMusic'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'GourmetFood'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Industrial'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MP3Downloads'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'Miscellaneous'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicalInstruments'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'PetSupplies'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'SilverMerchants'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'UnboxVideo'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Wireless'; push @{$self->{_options}}, 'WirelessAccessories'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Title!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Title - valid search indices for the us locale and the Title operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Automotive Baby Beauty Books Classical DVD DigitalMusic Electronics GourmetFood HealthPersonalCare HomeGarden Industrial Jewelry Kitchen MP3Downloads Magazines Merchants Miscellaneous Music MusicalInstruments OfficeProducts OutdoorLiving PCHardware PetSupplies Photo SilverMerchants Software SportingGoods Tools Toys UnboxVideo VHS Video VideoGames Wireless WirelessAccessories =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Video.pm0000644666302512716660000000512311276327536023616 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Video; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Video!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Video - valid search indicies for the us locale and the Video SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Availability Brand BrowseNode BrowseNode Condition Count Director Format ItemPage ItemPage Keywords Keywords Magazines Manufacturer MaximumPrice MerchantId MinimumPrice Performer PostalCode Publisher Sort Sort State State TextStream Title Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Actor.pm0000644666302512716660000000256411253707751023622 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Actor; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'DigitalMusic'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'SilverMerchants'; push @{$self->{_options}}, 'UnboxVideo'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Actor!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Actor - valid search indices for the us locale and the Actor operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: DVD DigitalMusic Merchants SilverMerchants UnboxVideo VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/OfficeProducts.pm0000644666302512716660000000327511276327536025475 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::OfficeProducts; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::OfficeProducts!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::OfficeProducts - valid search indicies for the us locale and the OfficeProducts SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/VideoGames.pm0000644666302512716660000000335111276327536024574 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::VideoGames; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::VideoGames!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::VideoGames - valid search indicies for the us locale and the VideoGames SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/MusicTracks.pm0000644666302512716660000000272711276327536025007 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::MusicTracks; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Keywords', %options, }; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::MusicTracks!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::MusicTracks - valid search indicies for the us locale and the MusicTracks SearchIndex. =head1 DESCRIPTION The default value is Keywords, unless mode is specified. The list of available values are: Condition ItemPage Keywords MaximumPrice MerchantId MinimumPrice Sort State =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Tools.pm0000644666302512716660000000323111276327536023646 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Tools; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Tools!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Tools - valid search indicies for the us locale and the Tools SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/MinimumPrice.pm0000644666302512716660000000532411253707751025145 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::MinimumPrice; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'DigitalMusic'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'GourmetFood'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Miscellaneous'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'MusicalInstruments'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'PetSupplies'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'UnboxVideo'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Wireless'; push @{$self->{_options}}, 'WirelessAccessories'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::MinimumPrice!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::MinimumPrice - valid search indices for the us locale and the MinimumPrice operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Automotive Baby Beauty Books DigitalMusic Electronics GourmetFood HealthPersonalCare HomeGarden Jewelry Kitchen Magazines Miscellaneous MusicTracks MusicalInstruments OfficeProducts OutdoorLiving PCHardware PetSupplies Photo Software SportingGoods Tools Toys UnboxVideo VideoGames Wireless WirelessAccessories =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Format.pm0000644666302512716660000000235411253707751023777 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Format; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Format!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Format - valid search indices for the us locale and the Format operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical DVD Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/TextStream.pm0000644666302512716660000000326211253707751024646 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::TextStream; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'GourmetFood'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'SilverMerchants'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'UnboxVideo'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::TextStream!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::TextStream - valid search indices for the us locale and the TextStream operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Automotive Books Electronics GourmetFood Jewelry Merchants Photo SilverMerchants Toys UnboxVideo VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/MerchantId.pm0000644666302512716660000000531411253707751024564 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::MerchantId; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'DigitalMusic'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'GourmetFood'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Miscellaneous'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'MusicalInstruments'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'PetSupplies'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'UnboxVideo'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Wireless'; push @{$self->{_options}}, 'WirelessAccessories'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::MerchantId!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::MerchantId - valid search indices for the us locale and the MerchantId operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Automotive Baby Beauty Books DigitalMusic Electronics GourmetFood HealthPersonalCare HomeGarden Jewelry Kitchen Magazines Miscellaneous MusicTracks MusicalInstruments OfficeProducts OutdoorLiving PCHardware PetSupplies Photo Software SportingGoods Tools Toys UnboxVideo VideoGames Wireless WirelessAccessories =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Magazines.pm0000644666302512716660000000316111276327536024466 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Magazines; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Magazines!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Magazines - valid search indicies for the us locale and the Magazines SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords MaximumPrice MerchantId MinimumPrice Publisher Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/MusicLabel.pm0000644666302512716660000000235611253707751024571 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::MusicLabel; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'SilverMerchants'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::MusicLabel!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::MusicLabel - valid search indices for the us locale and the MusicLabel operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical Merchants Music SilverMerchants =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/AudienceRating.pm0000644666302512716660000000243411253707751025430 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::AudienceRating; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'SilverMerchants'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::AudienceRating!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::AudienceRating - valid search indices for the us locale and the AudienceRating operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: DVD Merchants SilverMerchants VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Keywords.pm0000644666302512716660000000653111276327536024363 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Keywords; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Blended'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'DigitalMusic'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'GourmetFood'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Industrial'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'KindleStore'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'Miscellaneous'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'MusicalInstruments'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'PetSupplies'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Shoes'; push @{$self->{_options}}, 'SilverMerchants'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'UnboxVideo'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; push @{$self->{_options}}, 'Wireless'; push @{$self->{_options}}, 'WirelessAccessories'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Keywords!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Keywords - valid search indicies for the us locale and the Keywords SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Automotive Baby Beauty Blended Books Classical DVD DigitalMusic Electronics GourmetFood HealthPersonalCare HomeGarden Industrial Jewelry KindleStore Kitchen Magazines Merchants Miscellaneous Music MusicTracks MusicalInstruments OfficeProducts OutdoorLiving PCHardware PetSupplies Photo Shoes SilverMerchants Software SportingGoods Tools Toys UnboxVideo VHS Video VideoGames Watches Wireless WirelessAccessories =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/EAN.pm0000644666302512716660000001100511710774256023145 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::EAN; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Blended'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Composer'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Conductor'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'ISPUPostalCode'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MP3Downloads'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'Orchestra'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'ResponseGroup'; push @{$self->{_options}}, 'ReviewSort'; push @{$self->{_options}}, 'SearchIndex'; push @{$self->{_options}}, 'Shoes'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TagPage'; push @{$self->{_options}}, 'TagSort'; push @{$self->{_options}}, 'TagsPerPage'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::EAN!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::EAN - valid search indicies for the us locale and the EAN SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Actor Apparel Artist AudienceRating Author Availability Baby Beauty Blended Books Brand BrowseNode Classical Composer Condition Conductor Count DVD DeliveryMethod Director Electronics Format HealthPersonalCare HomeGarden ISPUPostalCode ItemPage Jewelry Keywords Kitchen MP3Downloads Magazines Manufacturer MaximumPrice MerchantId MinimumPrice Music MusicLabel MusicTracks OfficeProducts Orchestra OutdoorLiving Performer PostalCode Power Publisher ResponseGroup ReviewSort SearchIndex Shoes Software SoftwareVideoGames Sort State TagPage TagSort TagsPerPage TextStream Title Toys VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/WirelessAccessories.pm0000644666302512716660000000305511276327536026533 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::WirelessAccessories; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::WirelessAccessories!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::WirelessAccessories - valid search indicies for the us locale and the WirelessAccessories SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/OutdoorLiving.pm0000644666302512716660000000327111276327536025356 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::OutdoorLiving; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::OutdoorLiving!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::OutdoorLiving - valid search indicies for the us locale and the OutdoorLiving SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Orchestra.pm0000644666302512716660000000230011253707751024470 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Orchestra; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Classical', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'SilverMerchants'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Orchestra!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Orchestra - valid search indices for the us locale and the Orchestra operation. =head1 DESCRIPTION The default value is Classical, unless mode is specified. The list of available values are: Classical Merchants SilverMerchants =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Automotive.pm0000644666302512716660000000335111276327536024705 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Automotive; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Automotive!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Automotive - valid search indicies for the us locale and the Automotive SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/MaximumPrice.pm0000644666302512716660000000532411253707751025147 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::MaximumPrice; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'DigitalMusic'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'GourmetFood'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Miscellaneous'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'MusicalInstruments'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'PetSupplies'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'UnboxVideo'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Wireless'; push @{$self->{_options}}, 'WirelessAccessories'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::MaximumPrice!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::MaximumPrice - valid search indices for the us locale and the MaximumPrice operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Automotive Baby Beauty Books DigitalMusic Electronics GourmetFood HealthPersonalCare HomeGarden Jewelry Kitchen Magazines Miscellaneous MusicTracks MusicalInstruments OfficeProducts OutdoorLiving PCHardware PetSupplies Photo Software SportingGoods Tools Toys UnboxVideo VideoGames Wireless WirelessAccessories =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/MusicalInstruments.pm0000644666302512716660000000323311276327536026421 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::MusicalInstruments; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::MusicalInstruments!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::MusicalInstruments - valid search indicies for the us locale and the MusicalInstruments SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/PCHardware.pm0000644666302512716660000000325511276327536024534 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::PCHardware; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::PCHardware!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::PCHardware - valid search indicies for the us locale and the PCHardware SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Books.pm0000644666302512716660000000340311276327536023624 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Books; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Books!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Books - valid search indicies for the us locale and the Books SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author BrowseNode Condition ItemPage Keywords MaximumPrice MerchantId MinimumPrice Power Publisher Sort State TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Music.pm0000644666302512716660000000546511276327536023641 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Music; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Music!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Music - valid search indicies for the us locale and the Music SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Artist Availability Brand BrowseNode BrowseNode Condition Condition Count Format ItemPage ItemPage ItemPage Keywords Keywords Keywords Magazines Manufacturer MaximumPrice MaximumPrice MerchantId MerchantId MinimumPrice MinimumPrice MusicLabel Performer PostalCode Sort Sort Sort State State Title Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/GourmetFood.pm0000644666302512716660000000310111276327536024774 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::GourmetFood; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::GourmetFood!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::GourmetFood - valid search indicies for the us locale and the GourmetFood SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode ItemPage Keywords MaximumPrice MerchantId MinimumPrice Sort State TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Kitchen.pm0000644666302512716660000000324111276327536024134 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Kitchen; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Kitchen!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Kitchen - valid search indicies for the us locale and the Kitchen SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Condition.pm0000644666302512716660000000521211253707751024471 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Condition; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'DigitalMusic'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Miscellaneous'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'MusicalInstruments'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'PetSupplies'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'UnboxVideo'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Wireless'; push @{$self->{_options}}, 'WirelessAccessories'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Condition!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Condition - valid search indices for the us locale and the Condition operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Automotive Baby Beauty Books DigitalMusic Electronics HealthPersonalCare HomeGarden Jewelry Kitchen Magazines Miscellaneous MusicTracks MusicalInstruments OfficeProducts OutdoorLiving PCHardware PetSupplies Photo Software SportingGoods Tools Toys UnboxVideo VideoGames Wireless WirelessAccessories =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/BrowseNode.pm0000644666302512716660000000610411253707751024613 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::BrowseNode; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'DigitalMusic'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'GourmetFood'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Industrial'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'Miscellaneous'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicalInstruments'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'PetSupplies'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'SilverMerchants'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'UnboxVideo'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Wireless'; push @{$self->{_options}}, 'WirelessAccessories'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::BrowseNode!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::BrowseNode - valid search indices for the us locale and the BrowseNode operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Automotive Baby Beauty Books Classical DVD DigitalMusic Electronics GourmetFood HealthPersonalCare HomeGarden Industrial Jewelry Kitchen Magazines Merchants Miscellaneous Music MusicalInstruments OfficeProducts OutdoorLiving PCHardware PetSupplies Photo SilverMerchants Software SportingGoods Tools Toys UnboxVideo VHS Video VideoGames Wireless WirelessAccessories =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/MP3Downloads.pm0000644666302512716660000000226111276327536025022 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::MP3Downloads; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Browsenode'; push @{$self->{_options}}, 'Keyword'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::MP3Downloads!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::MP3Downloads - valid search indicies for the us locale and the MP3Downloads SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Browsenode Keyword Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Count.pm0000644666302512716660000000244611253707751023641 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Count; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'PetSupplies'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Count!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Count - valid search indices for the us locale and the Count operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical DVD Music PetSupplies VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/ItemPage.pm0000644666302512716660000000567611253707751024254 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::ItemPage; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'DigitalMusic'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'GourmetFood'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Miscellaneous'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'MusicalInstruments'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'PetSupplies'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'UnboxVideo'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Wireless'; push @{$self->{_options}}, 'WirelessAccessories'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::ItemPage!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::ItemPage - valid search indices for the us locale and the ItemPage operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Automotive Baby Beauty Books Classical DVD DigitalMusic Electronics GourmetFood HealthPersonalCare HomeGarden Jewelry Kitchen Magazines Miscellaneous Music MusicTracks MusicalInstruments OfficeProducts OutdoorLiving PCHardware PetSupplies Photo Software SportingGoods Tools Toys UnboxVideo VHS Video VideoGames Wireless WirelessAccessories =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Blended.pm0000644666302512716660000000206711276327536024111 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Blended; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Keywords', %options, }; push @{$self->{_options}}, 'Keywords'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Blended!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Blended - valid search indicies for the us locale and the Blended SearchIndex. =head1 DESCRIPTION The default value is Keywords, unless mode is specified. The list of available values are: Keywords =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/State.pm0000644666302512716660000000525011253707751023625 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::State; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'DigitalMusic'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'GourmetFood'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Miscellaneous'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'PetSupplies'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'UnboxVideo'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Wireless'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::State!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::State - valid search indices for the us locale and the State operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Automotive Baby Books Classical DVD DigitalMusic Electronics GourmetFood HealthPersonalCare Jewelry Kitchen Magazines Miscellaneous Music MusicTracks OfficeProducts OutdoorLiving PCHardware PetSupplies Photo Software SportingGoods Tools Toys UnboxVideo VHS Video VideoGames Wireless =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/PostalCode.pm0000644666302512716660000000237411253707751024606 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::PostalCode; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::PostalCode!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::PostalCode - valid search indices for the us locale and the PostalCode operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical DVD Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/City.pm0000644666302512716660000000216211253707751023454 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::City; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Merchants', %options, }; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'SilverMerchants'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::City!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::City - valid search indices for the us locale and the City operation. =head1 DESCRIPTION The default value is Merchants, unless mode is specified. The list of available values are: Merchants SilverMerchants =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Brand.pm0000644666302512716660000000435611253707751023601 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Brand; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Software', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'Miscellaneous'; push @{$self->{_options}}, 'MusicalInstruments'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'PetSupplies'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'SilverMerchants'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Brand!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Brand - valid search indices for the us locale and the Brand operation. =head1 DESCRIPTION The default value is Software, unless mode is specified. The list of available values are: Apparel Automotive Baby Beauty Electronics HealthPersonalCare HomeGarden Kitchen Merchants Miscellaneous MusicalInstruments OfficeProducts OutdoorLiving PCHardware PetSupplies Photo SilverMerchants Software SportingGoods Tools VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Watches.pm0000644666302512716660000000305311276327536024146 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Watches; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Watches!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Watches - valid search indicies for the us locale and the Watches SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords MerchantId MinimumPrice Sort State TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/SilverMerchants.pm0000644666302512716660000000402511276327536025661 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::SilverMerchants; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'City'; push @{$self->{_options}}, 'Composer'; push @{$self->{_options}}, 'Conductor'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Neighborhood'; push @{$self->{_options}}, 'Orchestra'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::SilverMerchants!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::SilverMerchants - valid search indicies for the us locale and the SilverMerchants SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor Artist AudienceRating Author Brand BrowseNode City Composer Conductor Director Keywords Manufacturer MusicLabel Neighborhood Orchestra Publisher TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Industrial.pm0000644666302512716660000000235311276327536024670 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Industrial; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Industrial!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Industrial - valid search indicies for the us locale and the Industrial SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Keywords Manufacturer Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/MPAARating.pm0000644666302512716660000000211011253707751024420 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::MPAARating; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'UnboxVideo', %options, }; push @{$self->{_options}}, 'UnboxVideo'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::MPAARating!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::MPAARating - valid search indices for the us locale and the MPAARating operation. =head1 DESCRIPTION The default value is UnboxVideo, unless mode is specified. The list of available values are: UnboxVideo =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Toys.pm0000644666302512716660000000313711276327536023511 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Toys; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Toys!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Toys - valid search indicies for the us locale and the Toys SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords MaximumPrice MerchantId MinimumPrice Sort State TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Artist.pm0000644666302512716660000000233611253707751024015 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Artist; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'SilverMerchants'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Artist!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Artist - valid search indices for the us locale and the Artist operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical Merchants Music SilverMerchants =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Apparel.pm0000644666302512716660000000333511276327536024137 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Apparel; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Apparel!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Apparel - valid search indicies for the us locale and the Apparel SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Sort.pm0000644666302512716660000000565611253707751023506 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Sort; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Apparel'; push @{$self->{_options}}, 'Automotive'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'DigitalMusic'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'GourmetFood'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'HomeGarden'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Miscellaneous'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'MusicalInstruments'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'OutdoorLiving'; push @{$self->{_options}}, 'PCHardware'; push @{$self->{_options}}, 'PetSupplies'; push @{$self->{_options}}, 'Photo'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SportingGoods'; push @{$self->{_options}}, 'Tools'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'UnboxVideo'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Wireless'; push @{$self->{_options}}, 'WirelessAccessories'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Sort!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Sort - valid search indices for the us locale and the Sort operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Apparel Automotive Baby Beauty Books Classical DVD DigitalMusic Electronics GourmetFood HealthPersonalCare HomeGarden Jewelry Kitchen Magazines Miscellaneous Music MusicTracks MusicalInstruments OfficeProducts OutdoorLiving PCHardware PetSupplies Photo Software SportingGoods Tools Toys UnboxVideo VHS Video VideoGames Wireless WirelessAccessories =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/VHS.pm0000644666302512716660000000354711276327536023220 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::VHS; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::VHS!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::VHS - valid search indicies for the us locale and the VHS SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Availability BrowseNode Count Director Format ItemPage Keywords Magazines Performer PostalCode Publisher Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Availability.pm0000644666302512716660000000240411253707751025155 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Availability; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Availability!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Availability - valid search indices for the us locale and the Availability operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical DVD Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Beauty.pm0000644666302512716660000000315311276327536024002 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Beauty; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Beauty!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Beauty - valid search indicies for the us locale and the Beauty SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Director.pm0000644666302512716660000000260011253707751024314 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Director; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'DigitalMusic'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'SilverMerchants'; push @{$self->{_options}}, 'UnboxVideo'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Director!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Director - valid search indices for the us locale and the Director operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: DVD DigitalMusic Merchants SilverMerchants UnboxVideo VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/HomeGarden.pm0000644666302512716660000000317311276327536024564 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::HomeGarden; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::HomeGarden!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::HomeGarden - valid search indicies for the us locale and the HomeGarden SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Jewelry.pm0000644666302512716660000000315311276327536024172 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Jewelry; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Jewelry!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Jewelry - valid search indicies for the us locale and the Jewelry SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords MaximumPrice MerchantId MinimumPrice Sort State TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Power.pm0000644666302512716660000000204011253707751023633 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Power; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Power!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Power - valid search indices for the us locale and the Power operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/SportingGoods.pm0000644666302512716660000000327111276327536025353 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::SportingGoods; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::SportingGoods!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::SportingGoods - valid search indicies for the us locale and the SportingGoods SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Performer.pm0000644666302512716660000000237011253707751024506 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Performer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Performer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Performer - valid search indices for the us locale and the Performer operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical DVD Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/PetSupplies.pm0000644666302512716660000000342711276327536025032 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::PetSupplies; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::PetSupplies!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::PetSupplies - valid search indicies for the us locale and the PetSupplies SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Brand BrowseNode Condition Count ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Miscellaneous.pm0000644666302512716660000000317111276327536025354 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Miscellaneous; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Miscellaneous!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Miscellaneous - valid search indicies for the us locale and the Miscellaneous SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords MaximumPrice MerchantId MinimumPrice Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/DVD.pm0000644666302512716660000000354711276327536023175 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::DVD; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::DVD!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::DVD - valid search indicies for the us locale and the DVD SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Availability BrowseNode Count Director Format ItemPage Keywords Magazines Performer PostalCode Publisher Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Neighborhood.pm0000644666302512716660000000222211253707751025150 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Neighborhood; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Merchants', %options, }; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'SilverMerchants'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Neighborhood!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Neighborhood - valid search indices for the us locale and the Neighborhood operation. =head1 DESCRIPTION The default value is Merchants, unless mode is specified. The list of available values are: Merchants SilverMerchants =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Conductor.pm0000644666302512716660000000230011253707751024476 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Conductor; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Classical', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'SilverMerchants'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Conductor!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Conductor - valid search indices for the us locale and the Conductor operation. =head1 DESCRIPTION The default value is Classical, unless mode is specified. The list of available values are: Classical Merchants SilverMerchants =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Wireless.pm0000644666302512716660000000406711276327536024353 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Wireless; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Wireless!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Wireless - valid search indicies for the us locale and the Wireless SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode BrowseNode Condition Condition ItemPage ItemPage Keywords Keywords MaximumPrice MaximumPrice MerchantId MerchantId MinimumPrice MinimumPrice Sort Sort State Title Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/UnboxVideo.pm0000644666302512716660000000352711276327536024640 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::UnboxVideo; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MPAARating'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::UnboxVideo!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::UnboxVideo - valid search indicies for the us locale and the UnboxVideo SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor BrowseNode Condition Director ItemPage Keywords MPAARating MaximumPrice MerchantId MinimumPrice Publisher Sort State TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Composer.pm0000644666302512716660000000227411253707751024337 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Composer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Classical', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Merchants'; push @{$self->{_options}}, 'SilverMerchants'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Composer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Composer - valid search indices for the us locale and the Composer operation. =head1 DESCRIPTION The default value is Classical, unless mode is specified. The list of available values are: Classical Merchants SilverMerchants =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/us/Software.pm0000644666302512716660000000324511276327536024345 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::us::Software; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for us::Software!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::us::Software - valid search indicies for the us locale and the Software SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Brand BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/0000755666302512716660000000000012101066651022153 5ustar boumenotpg1319368Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Books.pm0000644666302512716660000000330711276327535023606 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Books; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Books!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Books - valid search indicies for the fr locale and the Books SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author BrowseNode Condition Count ItemPage Keywords MaximumPrice MerchantId MinimumPrice Power Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/MusicLabel.pm0000644666302512716660000000215611253707750024546 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::MusicLabel; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Music'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::MusicLabel!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::MusicLabel - valid search indices for the fr locale and the MusicLabel operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical Music =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/ISPUPostalCode.pm0000644666302512716660000000211411253707750025256 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::ISPUPostalCode; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Kitchen', %options, }; push @{$self->{_options}}, 'Kitchen'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::ISPUPostalCode!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::ISPUPostalCode - valid search indices for the fr locale and the ISPUPostalCode operation. =head1 DESCRIPTION The default value is Kitchen, unless mode is specified. The list of available values are: Kitchen =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Format.pm0000644666302512716660000000236011253707750023753 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Format; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Format!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Format - valid search indices for the fr locale and the Format operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical DVD Kitchen Music VHS =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/AudienceRating.pm0000644666302512716660000000223411253707750025405 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::AudienceRating; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::AudienceRating!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::AudienceRating - valid search indices for the fr locale and the AudienceRating operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: DVD VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Director.pm0000644666302512716660000000220411253707750024273 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Director; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Director!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Director - valid search indices for the fr locale and the Director operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: DVD VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/ItemPage.pm0000644666302512716660000000333011253707750024214 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::ItemPage; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::ItemPage!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::ItemPage - valid search indices for the fr locale and the ItemPage operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Classical DVD Electronics ForeignBooks Kitchen Music MusicTracks Software SoftwareVideoGames VHS Video VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Keywords.pm0000644666302512716660000000414511276327535024341 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Keywords; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Blended'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MP3Downloads'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Keywords!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Keywords - valid search indicies for the fr locale and the Keywords SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Baby Beauty Blended Books Classical DVD Electronics ForeignBooks Jewelry Kitchen MP3Downloads Music MusicTracks OfficeProducts Software SoftwareVideoGames VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Video.pm0000644666302512716660000000456111276327535023602 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Video; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Video!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Video - valid search indicies for the fr locale and the Video SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Author Availability Brand BrowseNode BrowseNode Condition Count Director ItemPage ItemPage Keywords Keywords Manufacturer MaximumPrice MerchantId MinimumPrice PostalCode Publisher Sort Sort State Title Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/MinimumPrice.pm0000644666302512716660000000267011253707750025125 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::MinimumPrice; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::MinimumPrice!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::MinimumPrice - valid search indices for the fr locale and the MinimumPrice operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Electronics ForeignBooks MusicTracks Software SoftwareVideoGames VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/EAN.pm0000644666302512716660000001000111276327535023121 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::EAN; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Beauty'; push @{$self->{_options}}, 'Blended'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'Composer'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Conductor'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'HealthPersonalCare'; push @{$self->{_options}}, 'ISPUPostalCode'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Jewelry'; push @{$self->{_options}}, 'KeyWords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MP3Downloads'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'OfficeProducts'; push @{$self->{_options}}, 'Orchestra'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::EAN!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::EAN - valid search indicies for the fr locale and the EAN SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Actor Artist AudienceRating Author Availability Baby Beauty Blended Books Brand BrowseNode Classical Composer Condition Conductor Count DVD DeliveryMethod Director Electronics ForeignBooks Format HealthPersonalCare ISPUPostalCode ItemPage Jewelry KeyWords Keywords Kitchen MP3Downloads Magazines Manufacturer MaximumPrice MerchantId MinimumPrice Music MusicLabel MusicTracks OfficeProducts Orchestra Performer PostalCode Power Publisher Software SoftwareVideoGames Sort State TextStream Title VHS Video VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Blended.pm0000644666302512716660000000206711276327535024070 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Blended; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Keywords', %options, }; push @{$self->{_options}}, 'Keywords'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Blended!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Blended - valid search indicies for the fr locale and the Blended SearchIndex. =head1 DESCRIPTION The default value is Keywords, unless mode is specified. The list of available values are: Keywords =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Music.pm0000644666302512716660000000427311276327535023614 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Music; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Music!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Music - valid search indicies for the fr locale and the Music SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Artist Availability BrowseNode BrowseNode Condition Count Count Format ItemPage ItemPage Keywords Keywords Magazines MerchantId MinimumPrice MusicLabel Performer PostalCode Sort Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Watches.pm0000644666302512716660000000305311276327535024125 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Watches; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'TextStream'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Watches!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Watches - valid search indicies for the fr locale and the Watches SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords MerchantId MinimumPrice Sort State TextStream Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Kitchen.pm0000644666302512716660000000406311276327535024116 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Kitchen; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ISPUPostalCode'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Kitchen!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Kitchen - valid search indicies for the fr locale and the Kitchen SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability Brand BrowseNode Condition Count DeliveryMethod Format ISPUPostalCode ItemPage Keywords Magazines Manufacturer MerchantId Performer PostalCode Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Jewelry.pm0000644666302512716660000000261711276327535024155 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Jewelry; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Jewelry!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Jewelry - valid search indicies for the fr locale and the Jewelry SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability BrowseNode DeliveryMethod Keywords MerchantId Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Artist.pm0000644666302512716660000000204411253707750023770 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Artist; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Music'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Artist!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Artist - valid search indices for the fr locale and the Artist operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Music =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/OfficeProducts.pm0000644666302512716660000000313511276327535025447 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::OfficeProducts; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::OfficeProducts!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::OfficeProducts - valid search indicies for the fr locale and the OfficeProducts SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability Brand BrowseNode DeliveryMethod Keywords MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/MP3Downloads.pm0000644666302512716660000000264311276327535025005 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::MP3Downloads; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::MP3Downloads!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::MP3Downloads - valid search indicies for the fr locale and the MP3Downloads SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability BrowseNode DeliveryMethod Keywords MerchantId Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Conductor.pm0000644666302512716660000000210011253707750024453 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Conductor; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Classical', %options, }; push @{$self->{_options}}, 'Classical'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Conductor!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Conductor - valid search indices for the fr locale and the Conductor operation. =head1 DESCRIPTION The default value is Classical, unless mode is specified. The list of available values are: Classical =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Composer.pm0000644666302512716660000000207411253707750024314 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Composer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Classical', %options, }; push @{$self->{_options}}, 'Classical'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Composer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Composer - valid search indices for the fr locale and the Composer operation. =head1 DESCRIPTION The default value is Classical, unless mode is specified. The list of available values are: Classical =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Brand.pm0000644666302512716660000000214411253707750023551 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Brand; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Kitchen', %options, }; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Brand!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Brand - valid search indices for the fr locale and the Brand operation. =head1 DESCRIPTION The default value is Kitchen, unless mode is specified. The list of available values are: Kitchen VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Magazines.pm0000644666302512716660000000237411253707750024446 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Magazines; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Magazines!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Magazines - valid search indices for the fr locale and the Magazines operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical DVD Kitchen Music VHS =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/PostalCode.pm0000644666302512716660000000246211253707750024563 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::PostalCode; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::PostalCode!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::PostalCode - valid search indices for the fr locale and the PostalCode operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical DVD Kitchen Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Author.pm0000644666302512716660000000244211253707750023766 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Author; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Author!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Author - valid search indices for the fr locale and the Author operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books ForeignBooks Kitchen SoftwareVideoGames VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Sort.pm0000644666302512716660000000331011253707750023446 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Sort; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Sort!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Sort - valid search indices for the fr locale and the Sort operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Classical DVD Electronics ForeignBooks Kitchen Music MusicTracks Software SoftwareVideoGames VHS Video VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Actor.pm0000644666302512716660000000226211253707750023574 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Actor; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'DVD', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Actor!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Actor - valid search indices for the fr locale and the Actor operation. =head1 DESCRIPTION The default value is DVD, unless mode is specified. The list of available values are: Classical DVD VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/MusicTracks.pm0000644666302512716660000000272311276327535024762 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::MusicTracks; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Keywords', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::MusicTracks!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::MusicTracks - valid search indicies for the fr locale and the MusicTracks SearchIndex. =head1 DESCRIPTION The default value is Keywords, unless mode is specified. The list of available values are: BrowseNode Condition Count ItemPage Keywords MerchantId MinimumPrice Sort =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/DeliveryMethod.pm0000644666302512716660000000211411253707750025444 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::DeliveryMethod; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Kitchen', %options, }; push @{$self->{_options}}, 'Kitchen'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::DeliveryMethod!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::DeliveryMethod - valid search indices for the fr locale and the DeliveryMethod operation. =head1 DESCRIPTION The default value is Kitchen, unless mode is specified. The list of available values are: Kitchen =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Power.pm0000644666302512716660000000214011253707750023613 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Power; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'ForeignBooks'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Power!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Power - valid search indices for the fr locale and the Power operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books ForeignBooks =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Performer.pm0000644666302512716660000000237411253707750024471 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Performer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Performer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Performer - valid search indices for the fr locale and the Performer operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical DVD Kitchen Music VHS =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Manufacturer.pm0000644666302512716660000000250411253707750025157 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Manufacturer; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Software', %options, }; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Manufacturer!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Manufacturer - valid search indices for the fr locale and the Manufacturer operation. =head1 DESCRIPTION The default value is Software, unless mode is specified. The list of available values are: Electronics Kitchen Software SoftwareVideoGames VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/VHS.pm0000644666302512716660000000354711276327535023177 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::VHS; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::VHS!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::VHS - valid search indicies for the fr locale and the VHS SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Availability BrowseNode Count Director Format ItemPage Keywords Magazines Performer PostalCode Publisher Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Count.pm0000644666302512716660000000313411253707750023613 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Count; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Count!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Count - valid search indices for the fr locale and the Count operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Classical DVD ForeignBooks Kitchen Music MusicTracks Software SoftwareVideoGames VHS VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Baby.pm0000644666302512716660000000325111276327535023404 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Baby; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Baby!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Baby - valid search indicies for the fr locale and the Baby SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability Brand BrowseNode DeliveryMethod Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Availability.pm0000644666302512716660000000247211253707750025141 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Availability; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Availability!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Availability - valid search indices for the fr locale and the Availability operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical DVD Kitchen Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Electronics.pm0000644666302512716660000000311511276327535025000 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Electronics; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Electronics!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Electronics - valid search indicies for the fr locale and the Electronics SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: BrowseNode Condition ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/MaximumPrice.pm0000644666302512716660000000257211253707750025130 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::MaximumPrice; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::MaximumPrice!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::MaximumPrice - valid search indices for the fr locale and the MaximumPrice operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Electronics ForeignBooks Software SoftwareVideoGames VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/ForeignBooks.pm0000644666302512716660000000334311276327535025120 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::ForeignBooks; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::ForeignBooks!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::ForeignBooks - valid search indicies for the fr locale and the ForeignBooks SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author BrowseNode Condition Count ItemPage Keywords MaximumPrice MerchantId MinimumPrice Power Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Classical.pm0000644666302512716660000000366111276327535024432 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Classical; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Composer'; push @{$self->{_options}}, 'Conductor'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Orchestra'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Classical!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Classical - valid search indicies for the fr locale and the Classical SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor Availability BrowseNode Composer Conductor Count Format ItemPage Keywords Magazines MusicLabel Orchestra Performer PostalCode Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/DVD.pm0000644666302512716660000000354711276327535023154 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::DVD; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Format'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Magazines'; push @{$self->{_options}}, 'Performer'; push @{$self->{_options}}, 'PostalCode'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'State'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::DVD!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::DVD - valid search indicies for the fr locale and the DVD SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Availability BrowseNode Count Director Format ItemPage Keywords Magazines Performer PostalCode Publisher Sort State Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/MerchantId.pm0000644666302512716660000000274611253707750024551 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::MerchantId; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::MerchantId!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::MerchantId - valid search indices for the fr locale and the MerchantId operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Electronics ForeignBooks Kitchen MusicTracks Software SoftwareVideoGames VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Orchestra.pm0000644666302512716660000000210011253707750024445 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Orchestra; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Classical', %options, }; push @{$self->{_options}}, 'Classical'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Orchestra!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Orchestra - valid search indices for the fr locale and the Orchestra operation. =head1 DESCRIPTION The default value is Classical, unless mode is specified. The list of available values are: Classical =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/VideoGames.pm0000644666302512716660000000334111276327535024552 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::VideoGames; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::VideoGames!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::VideoGames - valid search indicies for the fr locale and the VideoGames SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Brand BrowseNode Condition Count ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Publisher.pm0000644666302512716660000000237611253707750024467 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Publisher; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Publisher!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Publisher - valid search indices for the fr locale and the Publisher operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books DVD ForeignBooks VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Title.pm0000644666302512716660000000321611253707750023605 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Title; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Title!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Title - valid search indices for the fr locale and the Title operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Classical DVD Electronics ForeignBooks Kitchen Music Software SoftwareVideoGames VHS Video VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/HealthPersonalCare.pm0000644666302512716660000000325511276327535026237 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::HealthPersonalCare; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'KeyWords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::HealthPersonalCare!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::HealthPersonalCare - valid search indicies for the fr locale and the HealthPersonalCare SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability Brand BrowseNode DeliveryMethod KeyWords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Beauty.pm0000644666302512716660000000307511276327535023764 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Beauty; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Beauty!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Beauty - valid search indicies for the fr locale and the Beauty SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability Brand BrowseNode DeliveryMethod Keywords MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/BrowseNode.pm0000644666302512716660000000334011253707750024571 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::BrowseNode; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::BrowseNode!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::BrowseNode - valid search indices for the fr locale and the BrowseNode operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Classical DVD Electronics ForeignBooks Kitchen Music MusicTracks Software SoftwareVideoGames VHS Video VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Software.pm0000644666302512716660000000443511276327535024326 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Software; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Software!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Software - valid search indicies for the fr locale and the Software SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author BrowseNode BrowseNode Condition Condition Count Count ItemPage ItemPage Keywords Keywords Manufacturer Manufacturer MaximumPrice MaximumPrice MerchantId MerchantId MinimumPrice MinimumPrice Sort Sort Title Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/SoftwareVideoGames.pm0000644666302512716660000000331711276327535026270 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::SoftwareVideoGames; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Condition'; push @{$self->{_options}}, 'Count'; push @{$self->{_options}}, 'ItemPage'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::SoftwareVideoGames!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::SoftwareVideoGames - valid search indicies for the fr locale and the SoftwareVideoGames SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author BrowseNode Condition Count ItemPage Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/State.pm0000644666302512716660000000243611253707750023607 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::State; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Music', %options, }; push @{$self->{_options}}, 'Classical'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'VHS'; push @{$self->{_options}}, 'Video'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::State!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::State - valid search indices for the fr locale and the State operation. =head1 DESCRIPTION The default value is Music, unless mode is specified. The list of available values are: Classical DVD Kitchen Music VHS Video =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/fr/Condition.pm0000644666302512716660000000274211253707750024455 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::fr::Condition; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'MusicTracks'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'SoftwareVideoGames'; push @{$self->{_options}}, 'VideoGames'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for fr::Condition!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::fr::Condition - valid search indices for the fr locale and the Condition operation. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books Electronics ForeignBooks Kitchen MusicTracks Software SoftwareVideoGames VideoGames =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/0000755666302512716660000000000012101066651022160 5ustar boumenotpg1319368Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/Books.pm0000644666302512716660000000270512101065076023577 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::it::Books; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for it::Books!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::it::Books - valid search indicies for the it locale and the Books SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability BrowseNode Keywords MaximumPrice MinimumPrice Publisher Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/ForeignBooks.pm0000644666302512716660000000310312101065076025102 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::it::ForeignBooks; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for it::ForeignBooks!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::it::ForeignBooks - valid search indicies for the it locale and the ForeignBooks SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability BrowseNode Keywords MaximumPrice MinimumPrice Power Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/Kitchen.pm0000644666302512716660000000306512101065076024107 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::it::Kitchen; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for it::Kitchen!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::it::Kitchen - valid search indicies for the it locale and the Kitchen SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability Brand BrowseNode Keywords Manufacturer MaximumPrice MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/Watches.pm0000644666302512716660000000234312101065076024116 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::it::Watches; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Keywords', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Sort'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for it::Watches!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::it::Watches - valid search indicies for the it locale and the Watches SearchIndex. =head1 DESCRIPTION The default value is Keywords, unless mode is specified. The list of available values are: Availability BrowseNode Keywords Sort =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/Shoes.pm0000644666302512716660000000277112101065076023606 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::it::Shoes; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for it::Shoes!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::it::Shoes - valid search indicies for the it locale and the Shoes SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability Brand BrowseNode Keywords Manufacturer MaximumPrice MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/Toys.pm0000644666302512716660000000240312101065076023453 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::it::Toys; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for it::Toys!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::it::Toys - valid search indicies for the it locale and the Toys SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability BrowseNode Keywords Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/Music.pm0000644666302512716660000000276712101065076023612 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::it::Music; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for it::Music!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::it::Music - valid search indicies for the it locale and the Music SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Artist Availability BrowseNode Keywords MaximumPrice MinimumPrice MusicLabel Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/DVD.pm0000644666302512716660000000314712101065076023140 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::it::DVD; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for it::DVD!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::it::DVD - valid search indicies for the it locale and the DVD SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Availability BrowseNode Director Keywords MaximumPrice MinimumPrice Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/Electronics.pm0000644666302512716660000000273712101065076025001 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::it::Electronics; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for it::Electronics!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::it::Electronics - valid search indicies for the it locale and the Electronics SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability BrowseNode Keywords Manufacturer MaximumPrice MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/EAN.pm0000644666302512716660000000551712101065076023131 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::it::EAN; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, ''; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'KindleStore'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Lighting'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Shoes'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for it::EAN!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::it::EAN - valid search indicies for the it locale and the EAN SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Actor Artist AudienceRating Author Availability Baby Books Brand BrowseNode DVD DeliveryMethod Director Electronics ForeignBooks Keywords KindleStore Kitchen Lighting Manufacturer MaximumPrice MerchantId MinimumPrice Music MusicLabel Power Publisher Shoes Software Sort Title Toys VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/VideoGames.pm0000644666302512716660000000310112101065076024534 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::it::VideoGames; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for it::VideoGames!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::it::VideoGames - valid search indicies for the it locale and the VideoGames SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability Brand BrowseNode Keywords Manufacturer MaximumPrice MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/Keywords.pm0000644666302512716660000000343512101065076024332 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::it::Keywords; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, ''; push @{$self->{_options}}, 'Baby'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'KindleStore'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Lighting'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'Shoes'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for it::Keywords!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::it::Keywords - valid search indicies for the it locale and the Keywords SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Baby Books DVD Electronics ForeignBooks KindleStore Kitchen Lighting Music Shoes Software Toys VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/KindleStore.pm0000644666302512716660000000311112101065076024735 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::it::KindleStore; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for it::KindleStore!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::it::KindleStore - valid search indicies for the it locale and the KindleStore SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability BrowseNode Keywords MaximumPrice MerchantId MinimumPrice Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/Baby.pm0000644666302512716660000000325112101065076023374 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::it::Baby; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for it::Baby!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::it::Baby - valid search indicies for the it locale and the Baby SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability Brand BrowseNode DeliveryMethod Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/Lighting.pm0000644666302512716660000000310512101065076024262 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::it::Lighting; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'DeliveryMethod'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for it::Lighting!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::it::Lighting - valid search indicies for the it locale and the Lighting SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability Brand BrowseNode DeliveryMethod Keywords MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/it/Software.pm0000644666302512716660000000307112101065076024311 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::it::Software; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for it::Software!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::it::Software - valid search indicies for the it locale and the Software SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability Brand BrowseNode Keywords Manufacturer MaximumPrice MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/es/0000755666302512716660000000000012101066651022153 5ustar boumenotpg1319368Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/es/ForeignBooks.pm0000644666302512716660000000317712101065076025110 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::es::ForeignBooks; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for es::ForeignBooks!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::es::ForeignBooks - valid search indicies for the es locale and the ForeignBooks SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability BrowseNode Keywords MaximumPrice MerchantId MinimumPrice Power Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/es/Software.pm0000644666302512716660000000316512101065076024310 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::es::Software; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for es::Software!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::es::Software - valid search indicies for the es locale and the Software SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability Brand BrowseNode Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/es/Music.pm0000644666302512716660000000306312101065076023573 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::es::Music; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for es::Music!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::es::Music - valid search indicies for the es locale and the Music SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Artist Availability BrowseNode Keywords MaximumPrice MerchantId MinimumPrice MusicLabel Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/es/VideoGames.pm0000644666302512716660000000317512101065076024542 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::es::VideoGames; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for es::VideoGames!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::es::VideoGames - valid search indicies for the es locale and the VideoGames SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability Brand BrowseNode Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/es/Books.pm0000644666302512716660000000314312101065076023567 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::es::Books; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for es::Books!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::es::Books - valid search indicies for the es locale and the Books SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability BrowseNode Keywords MaximumPrice MerchantId MinimumPrice Power Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/es/Watches.pm0000644666302512716660000000251312101065076024110 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::es::Watches; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for es::Watches!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::es::Watches - valid search indicies for the es locale and the Watches SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability BrowseNode Keywords MerchantId Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/es/Keywords.pm0000644666302512716660000000313312101065076024320 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::es::Keywords; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'KindleStore'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for es::Keywords!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::es::Keywords - valid search indicies for the es locale and the Keywords SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Books DVD Electronics ForeignBooks KindleStore Kitchen Music Software Toys VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/es/KindleStore.pm0000644666302512716660000000311112101065076024730 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::es::KindleStore; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for es::KindleStore!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::es::KindleStore - valid search indicies for the es locale and the KindleStore SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability BrowseNode Keywords MaximumPrice MerchantId MinimumPrice Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/es/Electronics.pm0000644666302512716660000000303312101065076024762 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::es::Electronics; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for es::Electronics!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::es::Electronics - valid search indicies for the es locale and the Electronics SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability BrowseNode Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/es/DVD.pm0000644666302512716660000000324312101065076023130 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::es::DVD; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for es::DVD!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::es::DVD - valid search indicies for the es locale and the DVD SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Actor AudienceRating Availability BrowseNode Director Keywords MaximumPrice MerchantId MinimumPrice Publisher Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/es/Toys.pm0000644666302512716660000000247712101065076023461 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::es::Toys; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for es::Toys!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::es::Toys - valid search indicies for the es locale and the Toys SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Availability BrowseNode Keywords MerchantId Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/es/EAN.pm0000644666302512716660000000511112101065076023112 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::es::EAN; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Books', %options, }; push @{$self->{_options}}, 'Actor'; push @{$self->{_options}}, 'Artist'; push @{$self->{_options}}, 'AudienceRating'; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Books'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'DVD'; push @{$self->{_options}}, 'Director'; push @{$self->{_options}}, 'Electronics'; push @{$self->{_options}}, 'ForeignBooks'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'KindleStore'; push @{$self->{_options}}, 'Kitchen'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Music'; push @{$self->{_options}}, 'MusicLabel'; push @{$self->{_options}}, 'Power'; push @{$self->{_options}}, 'Publisher'; push @{$self->{_options}}, 'Software'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; push @{$self->{_options}}, 'Toys'; push @{$self->{_options}}, 'VideoGames'; push @{$self->{_options}}, 'Watches'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for es::EAN!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::es::EAN - valid search indicies for the es locale and the EAN SearchIndex. =head1 DESCRIPTION The default value is Books, unless mode is specified. The list of available values are: Actor Artist AudienceRating Author Availability Books Brand BrowseNode DVD Director Electronics ForeignBooks Keywords KindleStore Kitchen Manufacturer MaximumPrice MerchantId MinimumPrice Music MusicLabel Power Publisher Software Sort Title Toys VideoGames Watches =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch/es/Kitchen.pm0000644666302512716660000000316112101065076024077 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::ItemSearch::es::Kitchen; use 5.006; use strict; use warnings; sub new { my ($class , %options) = @_; my $self = { '_default' => 'Title', %options, }; push @{$self->{_options}}, 'Author'; push @{$self->{_options}}, 'Availability'; push @{$self->{_options}}, 'Brand'; push @{$self->{_options}}, 'BrowseNode'; push @{$self->{_options}}, 'Keywords'; push @{$self->{_options}}, 'Manufacturer'; push @{$self->{_options}}, 'MaximumPrice'; push @{$self->{_options}}, 'MerchantId'; push @{$self->{_options}}, 'MinimumPrice'; push @{$self->{_options}}, 'Sort'; push @{$self->{_options}}, 'Title'; bless $self, $class; } sub user_or_default { my ($self, $user) = @_; if (defined $user && length($user) > 0) { return $self->find_match($user); } return $self->default(); } sub default { my ($self) = @_; return $self->{_default}; } sub find_match { my ($self, $value) = @_; for (@{$self->{_options}}) { return $_ if lc($_) eq lc($value); } die "$value is not a valid value for es::Kitchen!\n"; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch::es::Kitchen - valid search indicies for the es locale and the Kitchen SearchIndex. =head1 DESCRIPTION The default value is Title, unless mode is specified. The list of available values are: Author Availability Brand BrowseNode Keywords Manufacturer MaximumPrice MerchantId MinimumPrice Sort Title =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/0000755666302512716660000000000012101066651020441 5ustar boumenotpg1319368Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/ItemLookup.pm0000644666302512716660000000326511253707751023107 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::ItemLookup; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'Accessories' => 1, 'AlternateVersions' => 1, 'BrowseNodes' => 1, 'Collections' => 1, 'EditorialReview' => 1, 'Images' => 1, 'ItemAttributes' => 1, 'ItemIds' => 1, 'Large' => 1, 'ListmaniaLists' => 1, 'Medium' => 1, 'MerchantItemAttributes' => 1, 'OfferFull' => 1, 'OfferListings' => 1, 'OfferSummary' => 1, 'Offers' => 1, 'PromotionDetails' => 1, 'PromotionSummary' => 1, 'RelatedItems' => 1, 'Reviews' => 1, 'SalesRank' => 1, 'Similarities' => 1, 'Small' => 1, 'Subjects' => 1, 'TaggedGuides' => 1, 'TaggedItems' => 1, 'TaggedListmaniaLists' => 1, 'Tags' => 1, 'TagsSummary' => 1, 'Tracks' => 1, 'VariationImages' => 1, 'VariationMatrix' => 1, 'VariationMinimum' => 1, 'VariationOffers' => 1, 'VariationSummary' => 1, 'Variations' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/ItemSearch.pm0000644666302512716660000000326011253707751023036 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::ItemSearch; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'Accessories' => 1, 'AlternateVersions' => 1, 'BrowseNodes' => 1, 'Collections' => 1, 'EditorialReview' => 1, 'Images' => 1, 'ItemAttributes' => 1, 'ItemIds' => 1, 'Large' => 1, 'ListmaniaLists' => 1, 'Medium' => 1, 'MerchantItemAttributes' => 1, 'OfferFull' => 1, 'OfferListings' => 1, 'OfferSummary' => 1, 'Offers' => 1, 'PromotionDetails' => 1, 'PromotionSummary' => 1, 'RelatedItems' => 1, 'Reviews' => 1, 'SalesRank' => 1, 'SearchBins' => 1, 'Similarities' => 1, 'Small' => 1, 'Subjects' => 1, 'TaggedGuides' => 1, 'TaggedItems' => 1, 'TaggedListmaniaLists' => 1, 'Tags' => 1, 'TagsSummary' => 1, 'Tracks' => 1, 'VariationMatrix' => 1, 'VariationMinimum' => 1, 'VariationOffers' => 1, 'VariationSummary' => 1, 'Variations' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/ListSearch.pm0000644666302512716660000000155711253707751023062 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::ListSearch; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'ListInfo' => 1, 'ListMinimum' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/BrowseNodeLookup.pm0000644666302512716660000000170511253707751024255 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::BrowseNodeLookup; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'BrowseNodeInfo' => 1, 'MostGifted ' => 1, 'MostWishedFor ' => 1, 'NewReleases' => 1, 'TopSellers' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/VehiclePartLookup.pm0000644666302512716660000000166311253707751024417 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::VehiclePartLookup; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'Fitments' => 1, 'HasPartCompatibility' => 1, 'VehiclePartFit' => 1, 'VehicleParts' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/VehiclePartSearch.pm0000644666302512716660000000167711253707751024360 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::VehiclePartSearch; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'HasPartCompatibility' => 1, 'PartBrandBinsSummary' => 1, 'VehiclePartFit' => 1, 'VehicleParts' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/SellerListingLookup.pm0000644666302512716660000000154511253707751024770 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::SellerListingLookup; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'SellerListing' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/CustomerContentSearch.pm0000644666302512716660000000154611253707751025301 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::CustomerContentSearch; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'CustomerInfo' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/CartAdd.pm0000644666302512716660000000164411253707751022320 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::CartAdd; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'Cart' => 1, 'CartNewReleases' => 1, 'CartSimilarities' => 1, 'CartTopSellers' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/TagLookup.pm0000644666302512716660000000167411253707751022726 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::TagLookup; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'TaggedGuides' => 1, 'TaggedItems' => 1, 'TaggedListmaniaLists' => 1, 'Tags' => 1, 'TagsSummary' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/Help.pm0000644666302512716660000000151511253707751021703 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::Help; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'Help' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/CustomerContentLookup.pm0000644666302512716660000000206011253707751025335 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::CustomerContentLookup; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'CustomerFull' => 1, 'CustomerInfo' => 1, 'CustomerLists' => 1, 'CustomerReviews' => 1, 'TaggedGuides' => 1, 'TaggedItems' => 1, 'TaggedListmaniaLists' => 1, 'Tags' => 1, 'TagsSummary' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/VehicleSearch.pm0000644666302512716660000000170511253707751023521 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::VehicleSearch; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'VehicleMakes' => 1, 'VehicleModels' => 1, 'VehicleOptions' => 1, 'VehicleTrims' => 1, 'VehicleYears' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/TransactionLookup.pm0000644666302512716660000000155011253707751024471 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::TransactionLookup; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'TransactionDetails' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/CartModify.pm0000644666302512716660000000164711253707751023062 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::CartModify; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'Cart' => 1, 'CartNewReleases' => 1, 'CartSimilarities' => 1, 'CartTopSellers' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/CartCreate.pm0000644666302512716660000000164711253707751023036 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::CartCreate; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'Cart' => 1, 'CartNewReleases' => 1, 'CartSimilarities' => 1, 'CartTopSellers' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/SellerLookup.pm0000644666302512716660000000152711253707751023436 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::SellerLookup; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'Seller' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/CartGet.pm0000644666302512716660000000164411253707751022347 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::CartGet; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'Cart' => 1, 'CartNewReleases' => 1, 'CartSimilarities' => 1, 'CartTopSellers' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/CartClear.pm0000644666302512716660000000152211253707751022651 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::CartClear; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'Cart' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/SellerListingSearch.pm0000644666302512716660000000154511253707751024724 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::SellerListingSearch; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'SellerListing' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/ListLookup.pm0000644666302512716660000000266411253707751023126 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::ListLookup; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'Accessories' => 1, 'BrowseNodes' => 1, 'EditorialReview' => 1, 'Images' => 1, 'ItemAttributes' => 1, 'ItemIds' => 1, 'Large' => 1, 'ListFull' => 1, 'ListInfo' => 1, 'ListItems' => 1, 'ListmaniaLists' => 1, 'Medium' => 1, 'OfferFull' => 1, 'OfferListings' => 1, 'OfferSummary' => 1, 'Offers' => 1, 'PromotionDetails' => 1, 'PromotionSummary' => 1, 'Reviews' => 1, 'SalesRank' => 1, 'Similarities' => 1, 'Small' => 1, 'Subjects' => 1, 'Tracks' => 1, 'VariationMinimum' => 1, 'VariationSummary' => 1, 'Variations' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/Type/SimilarityLookup.pm0000644666302512716660000000257211253707751024337 0ustar boumenotpg1319368# -*- perl -*- # !!! DO NOT EDIT !!! # This file was automatically generated. package Net::Amazon::Validate::Type::SimilarityLookup; use 5.006; use strict; use warnings; use constant RESPONSEGROUP_VALID_VALUES => { 'Accessories' => 1, 'BrowseNodes' => 1, 'EditorialReview' => 1, 'Images' => 1, 'ItemAttributes' => 1, 'ItemIds' => 1, 'Large' => 1, 'ListmaniaLists' => 1, 'Medium' => 1, 'OfferFull' => 1, 'OfferListings' => 1, 'OfferSummary' => 1, 'Offers' => 1, 'PromotionDetails' => 1, 'PromotionSummary' => 1, 'Reviews' => 1, 'SalesRank' => 1, 'Similarities' => 1, 'Small' => 1, 'Subjects' => 1, 'Tracks' => 1, 'VariationMinimum' => 1, 'VariationSummary' => 1, 'Variations' => 1, }; sub new { my ($class , %options) = @_; my $self = { %options, }; bless $self, $class; } sub assert { my ($self, $value, $name, $href) = @_; die "Unknown type in Net::Amazon::Request constructor: $value" unless defined $href->{$value}; } sub validate { my ($self, $value, $name, $href) = @_; if ( ref ($value) eq 'ARRAY' ) { $self->assert($_, $name, $href) for (@$value); } else { $self->assert($value, $name, $href); } } sub ResponseGroup { my ($self, $value) = @_; $self->validate($value, "ResponseGroup", (RESPONSEGROUP_VALID_VALUES)); } 1; Net-Amazon-0.62/lib/Net/Amazon/Validate/ItemSearch.pm0000644666302512716660000001032211253707747022117 0ustar boumenotpg1319368###################################################################### package Net::Amazon::Validate::ItemSearch; ###################################################################### use warnings; use strict; use Data::Dumper; use Log::Log4perl qw(:easy); use warnings; use strict; ################################################## sub factory { ################################################## my(%options) = (@_); DEBUG(sub {"Validate::Itemsearch factory options=" . Data::Dumper::Dumper(\%options) . "\n"}); # NOTE: if you want to support multiple versions of the WSDL then add this back. # # Transform 2005-10-05 into V2005_10_05 to ensure its a valid module name. # my $wsdl_version = $Net::Amazon::WsdlVersion; # my $ver = "V$wsdl_version"; # $ver =~ s|-|_|g; my $class = 'Net::Amazon::Validate::ItemSearch::'; # $class .= $ver; # $class .= "::"; $class .= $Net::Amazon::Locale; $class .= "::"; $class .= $options{search_index}; eval "require $class"; my $obj = $class->new(); return $obj; } 1; __END__ =head1 NAME Net::Amazon::Validate::ItemSearch - Validate ItemSearch requests. =head1 SYNOPSIS Net::Amazon::Validate::ItemSearch; my $valid = Net::Amazon::Validate::ItemSearch::factory(search_index => 'Actor'); my $option = $itemsearch_valid->user_or_default($input); my $default = $itemsearch_valid->default(); =head1 DESCRIPTION C is a class used to verify ItemSearch operation based on the current version of the WSDL and locale. For example if an Artist search is executed the user can search against Classical, Merchants, or Music. =head2 METHODS =over 4 =item factory(search_index => type) Constructs a new C object, used to validate user input for a SearchIndex. Valid types include Actor, Artist, AudienceRating, Author Brand, BrowseNode, City, Composer, Condition, Conductor, Count, Cuisine, DeliveryMethod, Director, ISPUPostalCode, ItemPage, Keywords, MPAARating, Manufacturer, MaximumPrice, MerchantId, MinimumPrice, MusicLabel, Neighborhood, Orchestra, Power, Publisher, Sort, TextStream and Title. Which departments these search indexes are valid for is dependent upon locale. =item default() Return the default value for a given SearchIndex. Default are determined in order of preference and existence from the following list: Books, Music, DVD, Software. If none of those items are valid for a given SearchIndex then the first valid department of said SearchIndex is used. =item user_or_default( $input ) If user input is specified it validates the input, and return it, otherwise it returns the default value for the SearchIndex. =back =head1 AUTHORS Christopher Boumenot, Eboumenot@gmail.comE =head1 COPYRIGHT AND LICENSE Copyright 2006 by Christopher Boumenot, Eboumenot@gmail.comE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut __END__ =head1 NAME Net::Amazon::Validate::ItemSearch - Validate user supplied options against known valid options. =head1 SYNOPSIS use Net::Amazon::Validate::ItemSearch; # ... my $valid = Net::Amazon::Validate::ItemSearch::factory(search_index => 'Actor'); $valid->user_or_default($input); $valid->default(); =head1 DESCRIPTION =head2 METHODS =over 4 =item Asin() The item's ASIN number. =back Please check the subclasses of C for specialized methods. =head1 TODO I should probably add a function to dispatch calls automatically, that way the user doesn't have to explicity call a function to verify an option. It would make it very easy to write loops to validate input. =head1 BUGS This library was designed to validate ResponseGroup requests only. Support for other parameters were autogenerated but not verified. The biggest problems are with the intrepration of 'Integers 1 to 30', 'A Merchant ID', or 'Amazon (the default value)'. =head1 AUTHOR Christopher Boumenot, Eboumenot@gmail.comE =head1 COPYRIGHT AND LICENSE Copyright 2006 by Christopher Boumenot Eboumenot@gmail.comE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut Net-Amazon-0.62/lib/Net/Amazon/Validate/Type.pm0000644666302512716660000000451611253707751021017 0ustar boumenotpg1319368###################################################################### package Net::Amazon::Validate::Type; ###################################################################### use warnings; use strict; use Data::Dumper; use Log::Log4perl qw(:easy); use warnings; use strict; ################################################## sub factory { ################################################## my(%options) = @_; die "'operation' is a mandatory parameter!\n" unless defined $options{operation}; #DEBUG(sub {"Validate::Type factory options=" . Data::Dumper::Dumper(\%options) . "\n"}); # NOTE: if you want to validate different versions of the WSDL add this back in. # # Transform 2005-10-05 into V2005_10_05 to ensure its a valid module name. # my $ver = "V$options{version}"; # $ver =~ s|-|_|g; # # my $class = 'Net::Amazon::Validate::Type::'.$ver.'::'.$options{operation}; my $class = 'Net::Amazon::Validate::Type::'.$options{operation}; eval "require $class"; my $obj = $class->new(); return $obj; } 1; __END__ =head1 NAME Net::Amazon::Validate - Validate user supplied options against known valid options. =head1 SYNOPSIS use Net::Amazon::Validate; # ... my $valid = Net::Amazon::Validate::factory(operation => 'ResponseGroup', ); $valid->ResponseGroup([qw(Small Request)]); $valid->ResponseGroup('Large'); =head1 DESCRIPTION =head2 METHODS =over 4 =item Asin() The item's ASIN number. =back Please check the subclasses of C for specialized methods. =head1 TODO I should probably add a function to dispatch calls automatically, that way the user doesn't have to explicity call a function to verify an option. It would make it very easy to write loops to validate input. =head1 BUGS This library was designed to validate ResponseGroup requests only. Support for other parameters were autogenerated but not verified. The biggest problems are with the intrepration of 'Integers 1 to 30', 'A Merchant ID', or 'Amazon (the default value)'. =head1 AUTHOR Christopher Boumenot, Eboumenot@gmail.comE =head1 COPYRIGHT AND LICENSE Copyright 2006 by Christopher Boumenot Eboumenot@gmail.comE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut Net-Amazon-0.62/lib/Net/Amazon/Request/0000755666302512716660000000000012101066651017417 5ustar boumenotpg1319368Net-Amazon-0.62/lib/Net/Amazon/Request/Title.pm0000644666302512716660000000373611253707747021066 0ustar boumenotpg1319368###################################################################### package Net::Amazon::Request::Title; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); use Net::Amazon::Validate::ItemSearch; ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, 'title'); $class->_convert_option(\%options, 'title', 'Title'); my $self = $class->SUPER::new(%options); $self->_convert_itemsearch(); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::Title - Class for submitting Title requests =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::Title; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::Title->new( title => '50 First Dates' ); # Response is of type Net::Amazon::Response::Title my $resp = $ua->request($req); =head1 DESCRIPTION C is a class used to submit Title search requests to the Amazon web service. The title to search for is specified in the C parameter. Upon success, the responses' C<properties()> method will return a list of C<Net::Amazon::Property::DVD> objects. Check L<Net::Amazon::Request> for common request parameters not listed here. =head2 METHODS =over 4 =item new( title => $title ) Constructs a new C<Net::Amazon::Request::Title> object, used to query the Amazon web service for items of a given title. =back =head1 AUTHORS Carl Franks, E<lt>fireartist@gmail.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2007 by Carl Franks, E<lt>fireartist@gmail.comE<gt> This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut ����������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/EAN.pm�������������������������������������������������������0000644�6663025�1271666�00000004100�11253707747�020372� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::EAN; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, qw(ean)); $class->_convert_option(\%options, 'ean', 'ItemId'); $options{'IdType'} = 'EAN'; my $self = $class->SUPER::new(%options); $self->_convert_itemsearch(); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::EAN - request class for EAN search =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::EAN; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::EAN->new( ean => '5035822647633', ); # Response is of type Net::Amazon::Response::EAN my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::EAN> is a class used to submit EAN search requests to the Amazon web service. The EAN number to search for is specified in the C<EAN> parameter. Upon success, the response's C<properties()> method will return a single C<Net::Amazon::Property> object. According to the Amazon E-Commerce Service Developer's Guide (2007-01-15) EAN searches are only valid in DE, JP, and CA only. This is patently false. I think this is a documenation bug, and is actually for valid for non-US only. =head2 METHODS =over 4 =item new(ean => $ean) Constructs a new C<Net::Amazon::Request::EAN> object, used to query the Amazon web service for an item with the given EAN number. =back =head1 AUTHOR Christopher Boumenot, E<lt>boumenot@gmail.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2007 by Christopher Boumenot E<lt>boumenot@gmail.comE<gt> This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/Seller.pm����������������������������������������������������0000644�6663025�1271666�00000004041�11253707747�021221� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::Seller; ###################################################################### use base qw(Net::Amazon::Request); ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, 'seller'); $class->_convert_option(\%options, 'seller', 'SellerId'); # $options{IdType} = "Listing"; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::Seller - Class for submitting Seller requests =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::Seller; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::Seller->new( seller => 'A23JJ2BNHZMFCO' ); # Response is of type Net::Amazon::Response::Seller my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::Seller> is a class used to submit Seller search requests to the Amazon web service. The seller to search for is specified in the C<seller> parameter, which contains the seller's ID (not the seller's nickname!). Upon success, the responses' C<result()> method will return a single C<Net::Amazon::Result::Seller> object. Check L<Net::Amazon::Request> for common request parameters not listed here. =head2 METHODS =over 4 =item new( seller => $seller_id ) Constructs a new C<Net::Amazon::Request::Seller> object, used to query the Amazon web service with the given seller id, and listing id. As of AWS4 listing id is a mandatory parameter. =back =head1 AUTHOR Mike Schilli, E<lt>m@perlmeister.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2004 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 �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/UPC.pm�������������������������������������������������������0000644�6663025�1271666�00000004064�11253707747�020427� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::UPC; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, qw(upc)); $class->_convert_option(\%options, 'upc', 'ItemId'); $options{'IdType'} = 'UPC'; my $self = $class->SUPER::new(%options); $self->_convert_itemsearch(); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::UPC - request class for UPC search =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::UPC; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::UPC->new( upc => '724381198421', mode => 'music', ); # Response is of type Net::Amazon::Response::UPC my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::UPC> is a class used to submit UPC (product barcode) search requests to the Amazon web service. The UPC number to search for is specified in the C<upc> parameter. It currently works with the following values of the C<mode> parameter: C<music>, C<classical>, C<software>, C<dvd>, C<video>, C<vhs>, C<electronics>, C<pc-hardware>, and C<photo>. Upon success, the response's C<properties()> method will return a single C<Net::Amazon::Property::Music> object. =head2 METHODS =over 4 =item new(upc => $upc) Constructs a new C<Net::Amazon::Request::UPC> object, used to query the Amazon web service for an item with the given UPC number. =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 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/Blended.pm���������������������������������������������������0000644�6663025�1271666�00000003525�11253707747�021336� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::Blended; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, 'blended'); $options{'SearchIndex'} = 'Blended'; $class->_convert_option(\%options, 'blended', 'Keywords'); my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::Blended - request class for 'Blended Search' =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::Blended; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::Blended->new( blended => 'perl' ); # Response is of type Net::Amazon::Response::Blended my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::Blended> is a class used to request I<Blended Searches> from the Amazon web service. The C<blended> parameter specifies the keyword search string for the blended query. C<mode> is not applicable to blended searches which returns books, music, etc all at once. Upon success, the response's C<properties()> method will return a list of C<Net::Amazon::Property::*> objects. =head2 METHODS =over 4 =item new(keyword => $search_string) Constructs a new C<Net::Amazon::Request::Blended> object. See the "Amazon Web Services 2.1 API and Integration Guide" for details. =back Check L<Net::Amazon::Request> for common request parameters not listed here. =head1 AUTHORS Robert Graff, E<lt>rgraff@workingdemo.comE<gt> =cut ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/Exchange.pm��������������������������������������������������0000644�6663025�1271666�00000004032�11253707747�021515� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::Exchange; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, 'exchange'); $options{IdType} = "Exchange"; $class->_convert_option(\%options, 'exchange', 'Id'); my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::Exchange - Class for submitting Exchange requests =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::Exchange; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::Exchange->new( exchange => 'Y04Y3424291Y2398445' ); # Response is of type Net::Amazon::Response::Seller my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::Exchange> is a class used to submit Exchange search requests to the Amazon web service. Exchange requests send an item's exchange ID and retrieve a description of the item, offered by a third party seller on Amazon. Upon success, the responses' C<result()> method will return a single C<Net::Amazon::Result::Seller::Listing> object. Check L<Net::Amazon::Request> for common request parameters not listed here. =head2 METHODS =over 4 =item new( exchange => $exchange_id ) Constructs a new C<Net::Amazon::Request::Exchange> object, used to query the Amazon web service with the given seller id. =back =head1 AUTHOR Mike Schilli, E<lt>m@perlmeister.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2005 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 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/ASIN.pm������������������������������������������������������0000644�6663025�1271666�00000007030�11253707747�020526� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::ASIN; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); # These values are defined in the AWS SDK # (http://amazon.com/webservices) under # "Product and Catalog Data" / "ASIN and ISBN Searches" use constant MAX_ASINS_PER_REQUEST => 10; ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, 'asin'); $class->_convert_option(\%options, 'asin', 'ItemId', \&_process_asin_option); my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ## ## PRIVATE FUNCTIONS ## # _process_asin_option( OPTIONS, KEY ) # # Takes a reference to a hash of OPTIONS and checks the value keyed by # KEY to make sure it looks legitimate. If the value associated with # KEY is an array, we check to make sure that we're not asking for # too many asins at once. # # Returns true if all goes well. If any problems are encountered, # die() will be called. # sub _process_asin_option { my ($options, $key) = @_; # If the asins are supplied in the form of an array, we have to # make sure that the caller isn't trying to ask for too many at a # time. If we don't make this test, those excessive asins will be # silently ignored by the AWS servers...resulting in potentially # confusing results for the user. if ( ref $options->{$key} eq 'ARRAY' ) { my $max_asins = MAX_ASINS_PER_REQUEST; # Dying is the right thing to do here because this is # indicative of a programming error. die "Only $max_asins may be requested at a time" if ( @{$options->{$key}} > $max_asins ); $options->{$key} = join ',', @{$options->{$key}}; } elsif ( ref $options->{$key} ) { die "The 'asin' parameter must either be a scalar or an array"; } return 1; } 1; __END__ =head1 NAME Net::Amazon::Request::ASIN - Class for submitting ASIN requests =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::ASIN; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::ASIN->new( asin => '0201360683' ); # Response is of type Net::Amazon::Response::ASIN my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::ASIN> is a class used to submit ASIN requests to the Amazon web service. The ASIN of the item to look is specified in the C<asin> parameter. Upon success, the responses' C<properties()> method will return one single C<Net::Amazon::Property::*> object. =head2 METHODS =over 4 =item new( asin => $asin ) Constructs a new C<Net::Amazon::Request::ASIN> object, used to query the Amazon web service for an item with the specified ASIN number. C<$asin> can also be a reference to an array of ASINs, like in $ua->search(asin => ["0201360683", "0596005083"]) in which case a search for multiple ASINs is performed, returning a list of results. =back Check L<Net::Amazon::Request> for common request parameters not listed here. =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 ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/Sort.pm������������������������������������������������������0000644�6663025�1271666�00000072003�11253707747�020725� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������=pod =head1 NAME Net::Amazon::Request::Sort - listing of sort types =head1 SORT TYPES Search results can be sorted in various ways, depending on the type of product returned by the search. If a sort parameter isn't specified in the request, the results will be ordered as if the salesrank value is specified. =head2 Sorting Apparel Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | relevancerank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | pricerank | |-------------------------+-------------------------+ | Price (High to Low) | inverseprice | |-------------------------+-------------------------+ | Newest Arrivals | -launch-date | |-------------------------+-------------------------+ | On Sale | sale-flag | +---------------------------------------------------+ =head2 Sorting Automotive Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | pricerank | |-------------------------+-------------------------+ | Price (High to Low) | -pricerank | |---------------------------------------------------+ | Alphabetical (A-Z) | titlerank | |-------------------------+-------------------------+ | Alphabetical (Z-A) | -titlerank | +---------------------------------------------------+ =head2 Sorting Baby Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | psrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | +---------------------------------------------------+ =head2 Sorting Beauty Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | pmrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Newest Arrivals | -launch-date | |-------------------------+-------------------------+ | On Sale | sale-flag | +---------------------------------------------------+ =head2 Sorting Books Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | relevancerank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Average Customer Review | reviewrank | |-------------------------+-------------------------+ | Price (Low to High) | pricerank | |-------------------------+-------------------------+ | Price (High to Low) | inverse-pricerank | |-------------------------+-------------------------+ | Publication Date | daterank | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |-------------------------+-------------------------+ | Alphabetical (Z-A) | -titlerank | +---------------------------------------------------+ =head2 Sorting Classical Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | psrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |---------------------------------------------------+ | Alphabetical (Z-A) | -titlerank | |---------------------------------------------------+ | Original Release Date | orig-rel-date | +---------------------------------------------------+ =head2 Sorting DigitalMusic +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Most Popular | songtitlerank | |-------------------------+-------------------------+ | Date Added | uploaddaterank | +---------------------------------------------------+ =head2 Sorting DVDs Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | relevancerank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |---------------------------------------------------+ | Release Date (New-Old) | -video-release-date | +---------------------------------------------------+ =head2 Sorting Electronics Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | pmrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Average Customer Review | reviewrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | +---------------------------------------------------+ =head2 Sorting Gourmet Food Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | relevancerank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | pricerank | |-------------------------+-------------------------+ | Price (High to Low) | inverseprice | |-------------------------+-------------------------+ | Newest Arrivals | launch-date | |-------------------------+-------------------------+ | On Sale | sale-flag | +---------------------------------------------------+ =head2 Sorting Health Personal Care Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | pmrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | pricerank | |-------------------------+-------------------------+ | Price (High to Low) | inverseprice | |-------------------------+-------------------------+ | Newest Arrivals | launch-date | |-------------------------+-------------------------+ | On Sale | sale-flag | +---------------------------------------------------+ =head2 Sorting Jewelry Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | pmrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | pricerank | |-------------------------+-------------------------+ | Price (High to Low) | inverseprice | |-------------------------+-------------------------+ | Newest Arrivals | launch-date | +---------------------------------------------------+ =head2 Sorting Kitchen Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | pmrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |-------------------------+-------------------------+ | Alphabetical (Z-A) | -titlerank | +---------------------------------------------------+ =head2 Sorting Magazines Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Bestselling | subslot-salesrank | |-------------------------+-------------------------+ | Average Customer Review | reviewrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Publication Date | daterank | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |-------------------------+-------------------------+ | Alphabetical (Z-A) | -titlerank | +---------------------------------------------------+ =head2 Sorting Merchants Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | relevancerank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | pricerank | |-------------------------+-------------------------+ | Price (High to Low) | inverseprice | |-------------------------+-------------------------+ | Newest Arrivals | -launch-date | |-------------------------+-------------------------+ | On Sale | sale-flag | +---------------------------------------------------+ =head2 Sorting Miscellaneous Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | pmrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |-------------------------+-------------------------+ | Alphabetical (Z-A) | -titlerank | +---------------------------------------------------+ =head2 Sorting Music Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | psrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |-------------------------+-------------------------+ | Alphabetical (Z-A) | -titlerank | +---------------------------------------------------+ | Artist Name | artistrank | |-------------------------+-------------------------+ | Original Release Date | orig-rel-date | +---------------------------------------------------+ =head2 Sorting Musical Instruments Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | pmrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Newest Arrivals | -launch-date | |-------------------------+-------------------------+ | On Sale | sale-flag | +---------------------------------------------------+ =head2 Sorting Music Tracks Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |-------------------------+-------------------------+ | Alphabetical (Z-A) | -titlerank | +---------------------------------------------------+ =head2 Sorting Office Products Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | pmrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Average Customer Review | reviewrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | +---------------------------------------------------+ =head2 Sorting Outdoor Living Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | psrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |---------------------------------------------------+ | Alphabetical (Z-A) | -titlerank | +---------------------------------------------------+ =head2 Sorting PC Hardware Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | psrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | +---------------------------------------------------+ =head2 Sorting Pet Supplies Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | +pmrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |---------------------------------------------------+ | Alphabetical (Z-A) | -titlerank | +---------------------------------------------------+ =head2 Sorting Photo Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | pmrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |---------------------------------------------------+ | Alphabetical (Z-A) | -titlerank | +---------------------------------------------------+ =head2 Sorting Restaurants Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | relevance | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | +---------------------------------------------------+ =head2 Sorting Software Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured items | pmrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (High to Low) | price | |-------------------------+-------------------------+ | Price (Low to High) | -price | |-------------------------+-------------------------+ | Alphabetical | titlerank | +---------------------------------------------------+ =head2 Sorting Sporting Goods Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | relevancerank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | pricerank | |-------------------------+-------------------------+ | Price (High to Low) | inverseprice | |-------------------------+-------------------------+ | Newest Arrivals | launch-date | |-------------------------+-------------------------+ | On Sale | sale-flag | +---------------------------------------------------+ =head2 Sorting Tools Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | pmrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |-------------------------+-------------------------+ | Alphabetical (Z-A) | -titlerank | +---------------------------------------------------+ =head2 Sorting Toys Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | pmrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |-------------------------+-------------------------+ | Age (High to Low) | -age-min | +---------------------------------------------------+ =head2 Sorting VHS Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | relevancerank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |---------------------------------------------------+ | Release Date (New-Old) | -video-release-date | +---------------------------------------------------+ =head2 Sorting Video Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | relevancerank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |---------------------------------------------------+ | Release Date (New-Old) | -video-release-date | +---------------------------------------------------+ =head2 Sorting Video Games Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | pmrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Price (Low to High) | price | |-------------------------+-------------------------+ | Price (High to Low) | -price | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | +---------------------------------------------------+ =head2 Sorting Wireless Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Publication Date | daterank | |-------------------------+-------------------------+ | Price (Low to High) | pricerank | |-------------------------+-------------------------+ | Price (High to Low) | inverse-pricerank | |-------------------------+-------------------------+ | Average Customer Review | reviewrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |-------------------------+-------------------------+ | Alphabetical (Z-A) | -titlerank | +---------------------------------------------------+ =head2 Sorting Wireless Accessories Results +---------------------------------------------------+ | Sort Type | Value | |-------------------------+-------------------------+ | Featured Items | psrank | |-------------------------+-------------------------+ | Bestselling | salesrank | |-------------------------+-------------------------+ | Alphabetical (A-Z) | titlerank | |---------------------------------------------------+ | Alphabetical (Z-A) | -titlerank | +---------------------------------------------------+ =cut �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/Publisher.pm�������������������������������������������������0000644�6663025�1271666�00000004023�11253707747�021730� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::Publisher; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, 'publisher'); $class->_convert_option(\%options, 'publisher', 'Publisher'); my $self = $class->SUPER::new(%options); $self->_convert_itemsearch(); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::Publisher - Class for submitting Publisher requests =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::Publisher; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::Publisher->new( publisher => 'Black Belt Communications' ); # Response is of type Net::Amazon::Response::Publisher my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::Publisher> is a class used to submit Publisher search requests to the Amazon web service. The publisher to search for is specified in the C<publisher> parameter. Upon success, the responses' C<properties()> method will return a list of C<Net::Amazon::Property::Book> objects. Check L<Net::Amazon::Request> for common request parameters not listed here. =head2 METHODS =over 4 =item new( publisher => $publisher ) Constructs a new C<Net::Amazon::Request::Publisher> object, used to query the Amazon web service for items of a given publisher. =back =head1 AUTHOR Christopher Boumenot, E<lt>boumenot@gmail.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2006 by Christopher Boumenot, E<lt>boumenot@gmail.comE<gt> This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/Power.pm�����������������������������������������������������0000644�6663025�1271666�00000004435�11253707747�021076� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::Power; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, qw(power)); $class->_convert_option(\%options, 'power', 'Power'); my $self = $class->SUPER::new(%options); $self->_convert_itemsearch(); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::Power - request class for 'Power Search' =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::Power; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::Power->new( power => 'subject: perl and author: schwartz', mode => 'books', ); # Response is of type Net::Amazon::Response::Power my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::Power> is a class used to request so-called I<Power Searches> from the Amazon web service. The C<power> parameter specifies the power search string, C<mode> defines which properties to look for. Upon success, the response's C<properties()> method will return a list of C<Net::Amazon::Property::*> objects. =head2 METHODS =over 4 =item new(power => $search_string, mode => $property) Constructs a new C<Net::Amazon::Request::Power> object. C<$property> is typically C<"books">. Examples for C<$search_string> are: author: schwartz author: schwartz and pubdate: after 10-2002 subject: perl and (objects or object-oriented) keywords: "high tech*" and not fiction and pubdate: during 1999 power "author: randal schwartz and publisher: Addison Wesley" author: randal schwartz and title: object books See the "Amazon Web Services 2.1 API and Integration Guide" for details. =back Check L<Net::Amazon::Request> for common request parameters not listed here. =head1 AUTHORS Martin Streicher, E<lt>martin.streicher@apress.comE<gt> Mike Schilli, E<lt>m@perlmeister.comE<gt> =cut �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/ISBN.pm������������������������������������������������������0000644�6663025�1271666�00000004322�11253707747�020530� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::ISBN; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, qw(isbn)); $class->_convert_option(\%options, 'isbn', 'ItemId'); $options{'IdType'} = 'ISBN'; $options{'SearchIndex'} = 'Books'; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::ISBN- request class for ISBN search =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::ISBN; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::ISBN->new( isbn => '9783570009222', ); # Response is of type Net::Amazon::Response::ISBN my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::ISBN> is a class used to submit ISBN (International Standard Book Number) search requests to the Amazon web service. The ISBN number to search for is specified in the C<ISBN> parameter. Upon success, the response's C<properties()> method will return a single C<Net::Amazon::Property::Book> object. =head2 METHODS =over 4 =item new(isbn => $isbn) Constructs a new C<Net::Amazon::Request::ISBN> object, used to query the Amazon web service for an item with the given ISBN number. As of 2007-01-17 Amazon supports 13-digit ISBNs. To construct a 13-digit ISBN from a 10-digit ISBN simply prepended 978 to the ISBN. The ISBN must not contain hyphens. It appears that not all 10-digit ISBNs can be turned into 13-digit ISBNs by prepending 978. Amazon lists the 13-digit ISBN alongside 10-digit ISBN. =back =head1 AUTHOR Christopher Boumenot, E<lt>boumenot@gmail.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2007 by Christopher Boumenot E<lt>boumenot@gmail.comE<gt> This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/Director.pm��������������������������������������������������0000644�6663025�1271666�00000004022�11253707747�021545� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::Director; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); use Net::Amazon::Validate::ItemSearch; ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, 'director'); $class->_convert_option(\%options, 'director', 'Director'); my $self = $class->SUPER::new(%options); $self->_convert_itemsearch(); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::Director - Class for submitting Director requests =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::Director; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::Director->new( director => 'Adam Sandler' ); # Response is of type Net::Amazon::Response::Director my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::Director> is a class used to submit Director search requests to the Amazon web service. The director to search for is specified in the C<director> parameter. Upon success, the responses' C<properties()> method will return a list of C<Net::Amazon::Property::DVD> objects. Check L<Net::Amazon::Request> for common request parameters not listed here. =head2 METHODS =over 4 =item new( director => $director ) Constructs a new C<Net::Amazon::Request::Director> object, used to query the Amazon web service for items of a given director. =back =head1 AUTHORS Carl Franks, E<lt>fireartist@gmail.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2007 by Carl Franks, E<lt>fireartist@gmail.comE<gt> This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/Artist.pm����������������������������������������������������0000644�6663025�1271666�00000003673�11253707747�021253� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::Artist; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, qw(artist)); $class->_convert_option(\%options, 'artist', 'Artist'); my $self = $class->SUPER::new(%options); $self->_convert_itemsearch(); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::Artist - Class for submitting Artist requests =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::Artist; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::Artist->new( artist => 'Zwan' ); # Response is of type Net::Amazon::Response::Artist my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::Artist> is a class used to submit Artist search requests to the Amazon web service. The artist to search for is specified in the C<artist> parameter. Upon success, the responses' C<properties()> method will return a list of C<Net::Amazon::Property::Music> objects. Check L<Net::Amazon::Request> for common request parameters not listed here. =head2 METHODS =over 4 =item new( artist => $artist ) Constructs a new C<Net::Amazon::Request::Artist> object, used to query the Amazon web service for items of a given artist. =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 ���������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/Keyword.pm���������������������������������������������������0000644�6663025�1271666�00000004236�11253707747�021425� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::Keyword; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, qw(keyword)); $class->_convert_option(\%options, 'keyword', 'Keywords'); my $self = $class->SUPER::new(%options); $self->_convert_itemsearch(); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::Keyword - request class for keyword search =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::Keyword; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::Keyword->new( keyword => 'Zwan', mode => 'books' ); # Response is of type Net::Amazon::Response::Keyword my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::Keyword> is a class used to submit keyword search requests to the Amazon web service. The keyword to search for is specified in the C<keyword> parameter. The catalog to search in is specified in the C<mode> parameter, typical values are C<books>, C<music>, C<classical> or C<electronics>. Upon success, the responses' C<properties()> method will return a list of C<Net::Amazon::Property::*> objects. =head2 METHODS =over 4 =item new( keyword => $keyword, mode => $mode ) Constructs a new C<Net::Amazon::Request::Keyword> object, used to query the Amazon web service for items matching a given keyword in the mode (catalog) specified. =back Check L<Net::Amazon::Request> for common request parameters not listed here. =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 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/Similar.pm���������������������������������������������������0000644�6663025�1271666�00000004226�11253707747�021400� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::Similar; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); our $AMZN_XML_URL = "http://xml.amazon.com/onca/xml3"; ################################################## sub amzn_xml_url { ################################################## return $AMZN_XML_URL; } ################################################## sub new { ################################################## my($class, %options) = @_; # For backwards compatibility $class->_convert_option(\%options, 'asin', 'similar'); $class->_assert_options_defined(\%options, 'similar'); $class->_convert_option(\%options, 'similar', 'ItemId'); my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::Similar - request class for 'Similarities Search' =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::Similar; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::Similar->new( similar => 'B00005B6TL', ); # Response is of type Net::Amazon::Response::Similar my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::Similar> is a class used to request so-called I<Similarities Searches> from the Amazon web service. The C<asin> parameter specifies the ASIN of the item which you want to get similar items for. Upon success, the response's C<properties()> method will return a list of C<Net::Amazon::Property::*> objects. =head2 METHODS =over 4 =item new(similar => $asin) Constructs a new C<Net::Amazon::Request::Similar> object. =back Check L<Net::Amazon::Request> for common request parameters not listed here. =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 ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/MusicLabel.pm������������������������������������������������0000644�6663025�1271666�00000004035�11253707747�022016� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::MusicLabel; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, 'musiclabel'); $class->_convert_option(\%options, 'musiclabel', 'MusicLabel'); my $self = $class->SUPER::new(%options); $self->_convert_itemsearch(); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::MusicLabel - Class for submitting MusicLabel requests =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::MusicLabel; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::MusicLabel->new( MusicLabel => 'James Patterson' ); # Response is of type Net::Amazon::Response::MusicLabel my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::MusicLabel> is a class used to submit MusicLabel search requests to the Amazon web service. The MusicLabel to search for is specified in the C<MusicLabel> parameter. Upon success, the responses' C<properties()> method will return a list of C<Net::Amazon::Property::Music> objects. Check L<Net::Amazon::Request> for common request parameters not listed here. =head2 METHODS =over 4 =item new( MusicLabel => $MusicLabel ) Constructs a new C<Net::Amazon::Request::MusicLabel> object, used to query the Amazon web service for items of a given MusicLabel. =back =head1 AUTHORS Christopher Boumenot, E<lt>boumenot@gmail.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2006 by Christopher Boumenot, E<lt>boumenot@gmail.comE<gt> This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/MP3Downloads.pm����������������������������������������������0000644�6663025�1271666�00000003524�11253707747�022252� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::MP3Downloads; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); ################################################## sub new { ################################################## my($class, %options) = @_; $options{'SearchIndex'} = 'MP3Downloads'; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::MP3Downloads - Class for submitting MP3 downloads search requests =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::MP3Downloads; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::MP3Downloads->new( tile => 'hand in my pocket' ); # Response is of type Net::Amazon::Response::MP3Downloads my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::MP3Downloads> is a class used to submit MP3 download search requests to the Amazon web service. The title to search for is specified by the C<title> parameter. Upon success, the responses' C<properties()> method will return a list of C<Net::Amazon::Property::MP3> objects. Check L<Net::Amazon::Request> for common request parameters not listed here. =head2 METHODS =over 4 =item new( title => $title ) Constructs a new C<Net::Amazon::Request::MP3Downloads> object, used to query the Amazon web service for items of a given MP3 download. =back =head1 AUTHORS Christopher Boumenot, E<lt>boumenot+na@gmail.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2009 by Christopher Boumenot, E<lt>boumenot+na@gmail.comE<gt> This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/All.pm�������������������������������������������������������0000644�6663025�1271666�00000003517�11253707747�020512� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::All; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, 'all'); $options{'SearchIndex'} = 'All'; $class->_convert_option(\%options, 'all', 'Keywords'); my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::All - request class for 'All Search' =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::All; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::All->new( all => 'perl' ); # Response is of type Net::Amazon::Response::All my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::All> is a class used to request I<All Searches> from the Amazon web service. The C<blended> parameter specifies the keyword search string for the blended query. C<mode> is not applicable to blended searches which returns books, music, etc all at once. Upon success, the response's C<properties()> method will return a list of C<Net::Amazon::Property::*> objects. =head2 METHODS =over 4 =item new(keyword => $search_string) Constructs a new C<Net::Amazon::Request::All> object. See the "Amazon Web Services 2.1 API and Integration Guide" for details. =back Check L<Net::Amazon::Request> for common request parameters not listed here. =head1 AUTHORS Robert Graff, E<lt>rgraff@workingdemo.comE<gt> Yuichi Tateno, E<lt>hotchpotch@gmail.comE<gt> =cut ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/TextStream.pm������������������������������������������������0000644�6663025�1271666�00000004007�11253707747�022075� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::TextStream; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, qw(textstream)); $class->_convert_option(\%options, 'textstream', 'TextStream'); my $self = $class->SUPER::new(%options); $self->_convert_itemsearch(); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::TextStream - request class for text stream search =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::TextStream; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::TextStream->new( textstream => 'Here is some text that mentions the Rolling Stones.', ); # Response is of type Net::Amazon::Response::TextStream my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::TextStream> is a class used to perform a search on a block of text. Amazon extracts keywords from the given block of text, but note that conjunctions and helper words, such as "and", "or", "the", etc. are not excluded, so strip them out yourself if need be. TextStream searching is only available for the US service. Upon success, the response's C<properties()> method will return a list of C<Net::Amazon::Property::*> objects. =head2 METHODS =over 4 =item new(textstream => $text) Constructs a new C<Net::Amazon::Request::TextStream> object, used to query the Amazon web service with a block of text. =back Check L<Net::Amazon::Request> for common request parameters not listed here. =head1 SEE ALSO =cut �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/BrowseNode.pm������������������������������������������������0000644�6663025�1271666�00000007357�11253707747�022057� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::BrowseNode; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, qw(browsenode)); $class->_convert_option(\%options, 'browsenode', 'BrowseNode', \&_assert_node_is_numeric); my $self = $class->SUPER::new(%options); $self->_convert_itemsearch(); bless $self, $class; # reconsecrate } ## ## 'PRIVATE' FUNCTIONS ## # _assert_node_is_numeric( OPTIONS, KEY ) # # Takes a reference to a hash of OPTIONS and makes sure # that the browse node id keyed by KEY is numeric. # # Returns if all is well, dies otherwise. # sub _assert_node_is_numeric { my ($options, $key) = @_; die "Browse Node ID must be numeric." if ( $options->{$key} =~ /\D/ ); } 1; __END__ =head1 NAME Net::Amazon::Request::BrowseNode - request class for browse node search =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::BrowseNode; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::BrowseNode->new( browsenode => 30, mode => 'books' ); # Response is of type Net::Amazon::Response::BrowseNode my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::BrowseNode> is a class used to submit node search requests to the Amazon web service. The node to search for is specified in the C<browsenode> parameter. The browse node ID is a number that corresponds to a general subject area of Amazon.com. To find browse node IDs, the best way is to visit the "browse" area of the various product lines at Amazon.com. When you find a subject area that you would like to generate XML for, look at the web page URL. The browse ID should appear after the string "/tg/browse/-/". Here are some examples of URLs that contain browse IDs: =over 8 =item http://www.amazon.com/exec/obidos/tg/browse/-/30 (In this example, the browse ID = 30) =item http://www.amazon.com/exec/obidos/tg/browse/-/467970 (In this example, the browse ID = 467970) =item http://www.amazon.com/exec/obidos/tg/browse/-/602314 (In this example, the browse ID = 60231 =back Please be aware that some nodes cannot be used with a BrowseNodeSearch. (The vast majority of them can, but you may run across a few that simply will not work). It is also important to point out that from time to time, some browse nodes are deprecated or are changed without notice. The catalog to search in is specified in the C<mode> parameter, typical values are C<books>, C<music>, C<classical> or C<electronics>. An optional C<keywords> parameter may be added to filter the results by that keyword. Upon success, the responses' C<properties()> method will return a list of C<Net::Amazon::Properties::*> objects. =head2 METHODS =over 4 =item new( browsenode => $nodeID, mode => $mode [, keywords => $keywords] ) Constructs a new C<Net::Amazon::Request::BrowseNode> object, used to query the Amazon web service for items in a particular category (node) in the mode (catalog) specified. =back Check L<Net::Amazon::Request> for common request parameters not listed here. =head1 AUTHOR Net::Amazon framework by Mike Schilli, E<lt>m@perlmeister.comE<gt> BrowseNode.pm by Jackie Hamilton, E<lt>kira@cgi101.comE<gt> =head1 LICENSE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/Actor.pm�����������������������������������������������������0000644�6663025�1271666�00000003752�11253707747�021053� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::Actor; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); use Net::Amazon::Validate::ItemSearch; ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, 'actor'); $class->_convert_option(\%options, 'actor', 'Actor'); my $self = $class->SUPER::new(%options); $self->_convert_itemsearch(); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::Actor - Class for submitting Actor requests =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::Actor; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::Actor->new( actor => 'Adam Sandler' ); # Response is of type Net::Amazon::Response::Actor my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::Actor> is a class used to submit Actor search requests to the Amazon web service. The actor to search for is specified in the C<actor> parameter. Upon success, the responses' C<properties()> method will return a list of C<Net::Amazon::Property::DVD> objects. Check L<Net::Amazon::Request> for common request parameters not listed here. =head2 METHODS =over 4 =item new( actor => $actor ) Constructs a new C<Net::Amazon::Request::Actor> object, used to query the Amazon web service for items of a given actor. =back =head1 AUTHORS Christopher Boumenot, E<lt>boumenot@gmail.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2006 by Christopher Boumenot, E<lt>boumenot@gmail.comE<gt> This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut ����������������������Net-Amazon-0.62/lib/Net/Amazon/Request/Author.pm����������������������������������������������������0000644�6663025�1271666�00000003726�11253707747�021246� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request::Author; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Request); ################################################## sub new { ################################################## my($class, %options) = @_; $class->_assert_options_defined(\%options, 'author'); $class->_convert_option(\%options, 'author', 'Author'); my $self = $class->SUPER::new(%options); $self->_convert_itemsearch(); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::Author - Class for submitting Author requests =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::Author; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::Author->new( author => 'James Patterson' ); # Response is of type Net::Amazon::Response::Author my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::Author> is a class used to submit Author search requests to the Amazon web service. The author to search for is specified in the C<author> parameter. Upon success, the responses' C<properties()> method will return a list of C<Net::Amazon::Property::Book> objects. Check L<Net::Amazon::Request> for common request parameters not listed here. =head2 METHODS =over 4 =item new( author => $author ) Constructs a new C<Net::Amazon::Request::Author> object, used to query the Amazon web service for items of a given author. =back =head1 AUTHORS Christopher Boumenot, E<lt>boumenot@gmail.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2006 by Christopher Boumenot, E<lt>boumenot@gmail.comE<gt> This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut ������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request/Manufacturer.pm����������������������������������������������0000644�6663025�1271666�00000003546�11253707747�022440� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################### package Net::Amazon::Request::Manufacturer; ###################################### use warnings; use strict; use base qw(Net::Amazon::Request); ###################################### sub new { ###################################### my($class, %options) = @_; $class->_assert_options_defined(\%options, qw(manufacturer)); $class->_convert_option(\%options, 'manufacturer', 'Manufacturer'); my $self = $class->SUPER::new(%options); $self->_convert_itemsearch(); bless $self, $class; # reconsecrate } 1; __END__ =head1 NAME Net::Amazon::Request::Manufacturer - Class for submitting Manufacturer requests =head1 SYNOPSIS use Net::Amazon; use Net::Amazon::Request::Manufacturer; my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN' ); my $req = Net::Amazon::Request::Manufacturer->new( manufacturer => 'Disney' ); # Response is of type Net::Amazon::Response::Manufacturer my $resp = $ua->request($req); =head1 DESCRIPTION C<Net::Amazon::Request::Manufacturer> is a class used to submit searches for items made by a given manufacturer. The manufacturer to search for is specified in the C<manufacturer> parameter. Upon success, the responses' C<properties()> method will return one or more C<Net::Amazon::Property::*> objects. =head2 METHODS =over 4 =item new( manufacturer => $manufacturer ) Constructs a new C<Net::Amazon::Request::Manufacturer> object, used to query the Amazon web service for an item with the specified manufacturer name. =back Check L<Net::Amazon::Request> for common request parameters not listed here. =head1 AUTHORS Bill Fitzpatrick Mike Schilli, E<lt>m@perlmeister.comE<gt> =cut ����������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/������������������������������������������������������������0000755�6663025�1271666�00000000000�12101066651�017565� 5����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/Blended.pm��������������������������������������������������0000644�6663025�1271666�00000001332�11253707747�021476� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::Blended; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; use XML::Simple; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/Seller.pm���������������������������������������������������0000644�6663025�1271666�00000004303�11253707747�021370� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������############################################# package Net::Amazon::Response::Seller; ############################################# use base qw(Net::Amazon::Response); use Net::Amazon::Result::Seller; use Data::Dumper; use Log::Log4perl qw(:easy); ############################## sub new { ############################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub result { ################################################## my($self) = @_; if($self->is_success()) { DEBUG "Calling Seller constructor with ", Dumper($self); return Net::Amazon::Result::Seller->new( xmlref => $self->{xmlref}->{SellerListings}, ); } return undef; } ################################################## sub properties { ################################################## my($self) = @_; die "properties() not defined in ", __PACKAGE__, ". Use result() instead"; } ################################################## sub as_string { ################################################## my($self) = @_; return $self->result()->as_string(); } ################################################## sub xmlref_add { ################################################## my($self, $xmlref) = @_; my $nof_items_added = 0; DEBUG("xmlref_add (before):", Data::Dumper::Dumper($xmlref)); unless(ref($self->{xmlref}) eq "HASH" && ref($self->{xmlref}->{SellerListings}) eq "ARRAY") { $self->{xmlref}->{SellerListings} = []; } if(ref($xmlref->{SellerListings}->{SellerListing}) eq "ARRAY") { # Is it an array of items? push @{$self->{xmlref}->{SellerListings}}, $_ for @{$xmlref->{SellerListings}->{SellerListing}}; $nof_items_added = scalar @{$xmlref->{SellerListings}->{SellerListing}}; } else { # It is a single item push @{$self->{xmlref}->{SellerListings}}, $xmlref->{SellerListings}->{SellerListing}; $nof_items_added = 1; } #DEBUG("(Seller) xmlref_add (after):", Data::Dumper::Dumper($self)); return $nof_items_added; } 1; �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/MusicLabel.pm�����������������������������������������������0000644�6663025�1271666�00000001336�11253707747�022165� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::MusicLabel; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; use Data::Dumper; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/Manufacturer.pm���������������������������������������������0000644�6663025�1271666�00000001375�11253707747�022604� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::Manufacturer; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; use Data::Dumper; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/BrowseNode.pm�����������������������������������������������0000644�6663025�1271666�00000001336�11253707747�022214� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::BrowseNode; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; use Data::Dumper; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/Director.pm�������������������������������������������������0000644�6663025�1271666�00000001334�11253707747�021716� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::Director; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; use Data::Dumper; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/Power.pm����������������������������������������������������0000644�6663025�1271666�00000001307�11253707747�021237� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::Power; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/TextStream.pm�����������������������������������������������0000644�6663025�1271666�00000002031�11253707747�022236� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::TextStream; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; use Log::Log4perl qw(:easy get_logger); ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub is_page_available { ################################################## my($self, $ref, $new_items) = @_; DEBUG("TextStream does not allow the fetching of more than one page"); return 0; } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/Exchange.pm�������������������������������������������������0000644�6663025�1271666�00000004537�11253707747�021675� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::Exchange; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; use Net::Amazon::Result::Seller::Listing; use Log::Log4perl qw(:easy); __PACKAGE__->make_array_accessor($_) for qw(listings); ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub result { ################################################## my($self) = @_; if($self->is_success()) { return Net::Amazon::Result::Seller::Listing->new( xmlref => $self->{xmlref}->{SellerListings}->[0], ); } return undef; } ################################################## sub as_string { ################################################## my($self) = @_; return "TODO: as_string not defined yet in ", __PACKAGE__; } ################################################## sub xmlref_add { ################################################## my($self, $xmlref) = @_; my $nof_items_added = 0; DEBUG("xmlref_add (before):", Data::Dumper::Dumper($xmlref)); unless(ref($self->{xmlref}) eq "HASH" && ref($self->{xmlref}->{SellerListings}) eq "ARRAY") { $self->{xmlref}->{SellerListings} = []; } if(ref($xmlref->{SellerListings}->{SellerListing}) eq "ARRAY") { # Is it an array of items? push @{$self->{xmlref}->{SellerListings}}, $_ for @{$xmlref->{SellerListings}->{SellerListing}}; $nof_items_added = scalar @{$xmlref->{SellerListings}->{SellerListing}}; } else { # It is a single item push @{$self->{xmlref}->{SellerListings}}, $xmlref->{SellerListings}->{SellerListing}; $nof_items_added = 1; } #DEBUG("(Seller) xmlref_add (after):", Data::Dumper::Dumper($self)); return $nof_items_added; } ################################################## sub properties { ################################################## my($self) = @_; die "properties() not defined in ", __PACKAGE__, ". Use result() instead"; } 1; �����������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/Actor.pm����������������������������������������������������0000644�6663025�1271666�00000001331�11253707747�021210� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::Actor; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; use Data::Dumper; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/Keyword.pm��������������������������������������������������0000644�6663025�1271666�00000001333�11253707747�021566� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::Keyword; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; use Data::Dumper; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/Similar.pm��������������������������������������������������0000644�6663025�1271666�00000001311�11253707747�021536� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::Similar; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/ASIN.pm�����������������������������������������������������0000644�6663025�1271666�00000001306�11253707747�020674� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::ASIN; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/Title.pm����������������������������������������������������0000644�6663025�1271666�00000001331�11253707747�021221� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::Title; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; use Data::Dumper; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/All.pm������������������������������������������������������0000644�6663025�1271666�00000001326�11253707747�020654� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::All; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; use XML::Simple; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/MP3Downloads.pm���������������������������������������������0000644�6663025�1271666�00000001340�11253707747�022412� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::MP3Downloads; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; use Data::Dumper; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/ISBN.pm�����������������������������������������������������0000644�6663025�1271666�00000001741�11253707747�020700� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::ISBN; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; my($property) = $self->properties; return $property->as_string(); } ################################################## sub properties { ################################################## my($self) = @_; my $property = Net::Amazon::Property::factory( xmlref => $self->{xmlref}->{Items}->[0]); return ($property); } 1; �������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/Author.pm���������������������������������������������������0000644�6663025�1271666�00000001310�11253707747�021377� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::Author; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/Artist.pm���������������������������������������������������0000644�6663025�1271666�00000001332�11253707747�021407� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::Artist; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; use Data::Dumper; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/UPC.pm������������������������������������������������������0000644�6663025�1271666�00000001740�11253707747�020573� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::UPC; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; my($property) = $self->properties; return $property->as_string(); } ################################################## sub properties { ################################################## my($self) = @_; my $property = Net::Amazon::Property::factory( xmlref => $self->{xmlref}->{Items}->[0]); return ($property); } 1; ��������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/EAN.pm������������������������������������������������������0000644�6663025�1271666�00000001740�11253707747�020547� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::EAN; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; my($property) = $self->properties; return $property->as_string(); } ################################################## sub properties { ################################################## my($self) = @_; my $property = Net::Amazon::Property::factory( xmlref => $self->{xmlref}->{Items}->[0]); return ($property); } 1; ��������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response/Publisher.pm������������������������������������������������0000644�6663025�1271666�00000001313�11253707747�022075� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response::Publisher; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Response); use Net::Amazon::Property; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } ################################################## sub as_string { ################################################## my($self) = @_; return $self->SUPER::list_as_string($self->properties); } 1; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Result/��������������������������������������������������������������0000755�6663025�1271666�00000000000�12101066651�017245� 5����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Result/Seller/�������������������������������������������������������0000755�6663025�1271666�00000000000�12101066651�020473� 5����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Result/Seller/Listing.pm���������������������������������������������0000644�6663025�1271666�00000007377�11253707747�022477� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Result::Seller::Listing; ###################################################################### use warnings; use strict; use base qw(Net::Amazon); use Data::Dumper; use Log::Log4perl qw(:easy); # Tracking the different functions between AWS3 and AWS4. # ExchangeConditionType -> ExchangeCondition # ExchangeSellerRating -> ??? # ExchangeQuantityAllocated -> ExchangeQuantity # ExchangeSellerCountry -> ??? # ExchangeSellerState -> ??? # ExchangeFeaturedCategory -> ??? # ExchangeAvailability -> ??? # ExchangeOfferingType -> ??? # ??? -> ExchangeSubCondition # ExchangeDescription -> ??? our %DEFAULT_ATTRIBUTES_XPATH = ( ExchangeStartDate => [qw(StartDate)], ExchangeEndDate => [qw(EndDate)], ExchangeAsin => [qw(ASIN)], ExchangeTitle => [qw(Title)], ListingId => [qw(ListingId)], ExchangeId => [qw(ExchangeId)], ExchangeQuantityAllocated => [qw(Quantity)], ExchangeQuantity => [qw(Quantity)], ExchangeCondition => [qw(Condition)], ExchangeConditionType=> [qw(SubCondition)], ExchangeSubCondition => [qw(SubCondition)], ExchangeStatus => [qw(Status)], ExchangePrice => [qw(Price FormattedPrice)], ExchangeCurrencyCode => [qw(Price CurrencyCode)], ExchangeAmount => [qw(Price Amount)], ExchangeSellerId => [qw(Seller SellerId)], ExchangeSellerNickname => [qw(Seller Nickname)], ); __PACKAGE__->make_accessor($_) for keys %DEFAULT_ATTRIBUTES_XPATH; ################################################## sub new { ################################################## my($class, %options) = @_; if(!$options{xmlref}) { die "Mandatory param xmlref missing"; } my $self = { %options, }; bless $self, $class; DEBUG "Calling Listing with xmlref=", Dumper($options{xmlref}); for my $attr (keys %DEFAULT_ATTRIBUTES_XPATH) { my $value = __PACKAGE__->walk_hash_ref($options{xmlref}, $DEFAULT_ATTRIBUTES_XPATH{$attr}); $self->$attr($value); } return $self; } ################################################## sub as_string { ################################################## my($self) = @_; my $result = $self->ExchangeTitle() . " (" . $self->ExchangeAsin() . "): " . $self->ExchangePrice() . ""; return $result; } 1; __END__ =head1 NAME Net::Amazon::Result::Seller::Listing - Class for a single Listing of a Seller =head1 SYNOPSIS for($seller_search_resp->result()->seller()->listings()) { print $_->as_string(), "\n"; } =head1 DESCRIPTION C<Net::Amazon::Result::Seller::Listing> is a container for a single listing owned by a third-party seller, who is represented by a C<Net::Amazon::Result::Seller> object. An object of this class is also returned by an C<Exchange> request, using C<Net::Amazon::Response::Exchange>'s C<result> method. =head2 METHODS =over 4 =item ExchangeStartDate() =item ExchangeConditionType() =item ExchangeCondition() =item ExchangeSubCondition() =item ExchangeAsin() =item ExchangeSellerId() =item ExchangeEndDate() =item ExchangePrice() =item ExchangeAmount() =item ExchangeCurrencyCode() =item ExchangeStatus() =item ExchangeId() =item ExchangeTitle() =item ExchangeQuantityAllocated() =item ExchangeQuantity() =item ExchangeSellerNickname() =item ListingId() =back =head1 AUTHOR Mike Schilli, E<lt>m@perlmeister.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2004 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 �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Result/Seller.pm�����������������������������������������������������0000644�6663025�1271666�00000005442�11253707747�021055� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Result::Seller; ###################################################################### use warnings; use strict; use base qw(Net::Amazon); use Data::Dumper; use Log::Log4perl qw(:easy); use Net::Amazon::Result::Seller::Listing; our @DEFAULT_ATTRIBUTES = qw(StoreName SellerNickname NumberOfOpenListings StoreId SellerId); __PACKAGE__->make_accessor($_) for @DEFAULT_ATTRIBUTES; __PACKAGE__->make_array_accessor($_) for qw(listings); ################################################## sub new { ################################################## my($class, %options) = @_; if(!$options{xmlref}) { die "Mandatory param xmlref missing"; } my @listings = (); my $self = { %options, }; bless $self, $class; my $ref = $options{xmlref}; $self->StoreName($ref->[0]->{Seller}->{Nickname}); $self->SellerNickname($ref->[0]->{Seller}->{Nickname}); $self->SellerId($ref->[0]->{Seller}->{SellerId}); $self->StoreId($ref->[0]->{Seller}->{SellerId}); $self->NumberOfOpenListings(scalar(@$ref)); for my $listing (@$ref) { push @listings, Net::Amazon::Result::Seller::Listing->new( xmlref => $listing); } $self->listings(\@listings); return $self; } ################################################## sub as_string { ################################################## my($self) = @_; my $result = $self->StoreName() . " (" . $self->SellerNickname() . "): " . $self->NumberOfOpenListings() . ""; return $result; } 1; __END__ =head1 NAME Net::Amazon::Result::Seller - Class for Seller info =head1 SYNOPSIS use Net::Amazon; # ... if($resp->is_success()) { print $resp->result()->as_string(); } =head1 DESCRIPTION C<Net::Amazon::Result::Seller> is a container for results on a seller search. It contains data on one particular seller (the one turned up by the previous search) and the listings this seller is currently running. =head2 METHODS =over 4 =item StoreName() Name of the seller's store. =item SellerNickname() Seller's nickname. =item StoreId() ID of seller's store. =item NumberOfOpenListings() Number of listings the seller has currently open. =item listings() Returns an array of C<Net::Amazon::Result::Seller::Listing> objects. See the documentation of this class for details. =back =head1 AUTHOR Mike Schilli, E<lt>m@perlmeister.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2004 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 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Property/������������������������������������������������������������0000755�6663025�1271666�00000000000�12101066651�017613� 5����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Property/Music.pm����������������������������������������������������0000644�6663025�1271666�00000011533�11253707747�021253� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Property::Music; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Property); __PACKAGE__->make_accessor($_) for qw(album label media nummedia upc ean studio publisher release_date binding); __PACKAGE__->make_array_accessor($_) for qw(artists tracks); ################################################## 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 artist { ################################################## my($self, $nameref) = @_; # Only return the first artist return ($self->artists($nameref))[0]; } ################################################## sub init_via_xmlref { ################################################## my($self, $xmlref) = @_; $self->SUPER::init_via_xmlref($xmlref); my $ref = $xmlref->{ItemAttributes}; # It could either be a Creator (and?)/or an Artist my @artists; for my $artist (@{$ref->{Creator}}) { push @artists, $artist->{content} if $artist->{Role} eq 'Performer'; } for my $artist (@{$ref->{Artist}}) { push @artists, $artist; } $self->artists(\@artists); $self->album($ref->{Title}); $self->ean($ref->{EAN}); $self->label($ref->{Label}); $self->media($ref->{Binding}); $self->binding($ref->{Binding}); $self->nummedia($ref->{NumberOfDiscs}); $self->publisher($ref->{Publisher}); $self->release_date($ref->{ReleaseDate}); $self->studio($ref->{Studio}); $self->upc($ref->{UPC}); $self->NumMedia($ref->{NumberOfDiscs}); my @tracks; for my $disc (@{$xmlref->{Tracks}->{Disc}}) { for my $track (@{$disc->{Track}}) { push @tracks, $track->{content}; } } $self->tracks(\@tracks); my $year = 0; if (defined $ref->{ReleaseDate}) { $year = (split(/\-/, $ref->{ReleaseDate}))[0]; } $self->year($year); } ################################################## sub as_string { ################################################## my($self) = @_; return join('/', $self->artists) . ", " . '"' . $self->album . '"' . ", " . $self->year . ", " . $self->_best_effort_price() . ", " . $self->Asin; } 1; __END__ =head1 NAME Net::Amazon::Property::Music - Class for pop CDs on amazon.com =head1 SYNOPSIS use Net::Amazon; # ... if($resp->is_success()) { for my $prop ($resp->properties) { print join("/", $_->artists(), " ", $_->album(), " ", $_->label(), " ", $_->year(), " "; $_->upc(), " "; $_->media(), " "; $_->nummedia(), "\n"; } =head1 DESCRIPTION C<Net::Amazon::Property::Music> is derived from C<Net::Amazon::Property> and on top of the all-purpose methods the base class provides, it offers specialized accessors for popular music CD parameters. =head2 METHODS =over 4 =item artists() Returns a list of the CD's artists. There's also a C<artist()> method which just returns the first artist. =item tracks() Returns a list of the CD's track titles. Tracks are ordered as they appear on the media. Track one is at offset zero in the tracks() list. If there are multiple media then tracks are appended to the same list. There is currently no way to determine which track belongs to which media. (Amazon returns these data, but it is not used by Net::Amazon.) =item label() Returns the music label as a string. =item album() Returns the CD's title as a string. =item upc() Returns the CD's UPC as a string. =item media() Returns the CD's media type as a string. =item nummedia() Returns the CD'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 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 THANKS Thanks to Padraic Renaghan E<lt>padraic@renaghan.com<gt> for adding the upc/media/nummedia fields. =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 ���������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Property/VideoGames.pm�����������������������������������������������0000644�6663025�1271666�00000011064�11253707747�022215� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Property::VideoGames; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Property); use Log::Log4perl qw(:easy get_logger); __PACKAGE__->make_accessor($_) for qw(brand ean esrb_rating label upc manufacturer media nummedia publisher studio); __PACKAGE__->make_array_accessor($_) for qw(platforms 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->brand($ref->{Brand}); $self->ean($ref->{EAN}); $self->esrb_rating($ref->{ESRBAgeRating}); $self->label($ref->{Label}); $self->authors($ref->{Author}); $self->platforms($ref->{Platform}); $self->publisher($ref->{Publisher}); $self->manufacturer($ref->{Publisher}); $self->studio($ref->{Studio}); $self->upc($ref->{UPC}); $self->media($ref->{NumberOfItems}); $self->NumMedia($ref->{NumberOfItems}); $self->nummedia($ref->{NumberOfItems}); my $year = 0; if (exists $ref->{ReleaseDate}) { $year = (split(/\-/, $ref->{ReleaseDate}))[0]; } $self->year($year); } ################################################## sub platform { ################################################## my($self, $nameref) = @_; # Only return the first platform return ($self->platforms($nameref))[0]; } ################################################## sub author { ################################################## my($self, $nameref) = @_; # Only return the first author return ($self->authors($nameref))[0]; } ################################################## sub as_string { ################################################## my($self) = @_; return join('/', $self->platforms) . ", " . '"' . $self->title . '"' . ", " . $self->_best_effort_price() . ", " . $self->ASIN; } 1; __END__ =head1 NAME Net::Amazon::Property::VideoGames - Class for software on amazon.com =head1 SYNOPSIS use Net::Amazon; # ... if($resp->is_success()) { for my $prop ($resp->properties) { print join("/", $prop->platforms()), " ", $prop->title(), " ", $prop->publisher(), "\n"; } =head1 DESCRIPTION C<Net::Amazon::Property::VideoGames> is derived from C<Net::Amazon::Property> and on top of the all-purpose methods the base class provides, it offers specialized accessors for software parameters. =head2 METHODS =over 4 =item platforms() Returns a list of the software's platforms. There's also a C<platform()> method which just returns the I<first> platform. =item publisher() Returns the software's publishing company as a string. =item title() Returns the software's title as a string. =item ean() Returns the software's EAN number. =item media() Returns the video games's media type as a string. =item label() Returns the video games's label type as a string. =item studio() Returns the video games's studio type as a string. =item brand() Returns the video games's brand type as a string. =item manufacturer() Returns the video games's manufacturer type as a string. =item esrb_rating() Returns the video games's ESRB age rating type as a string. =item media() Returns the video games's media type as a string. =item nummedia() Returns the video games's number of media (number of discs) as a string. =item upc() Returns the video games's UPC as a string. =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 Christopher Boumenot, E<lt>boumenot@gmail.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2006 by Christopher Boumenot <lt>boumenot@gmail.comE<gt> This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Property/DigitalMusicTrack.pm����������������������������������������0000644�6663025�1271666�00000010652�11253707747�023537� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Property::DigitalMusicTrack; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Property); __PACKAGE__->make_accessor($_) for qw( binding genre label manufacturer publisher release_date studio title track_sequence running_time); __PACKAGE__->make_array_accessor($_) for qw(artists); ################################################## 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 artist { ################################################## my($self, $nameref) = @_; # Only return the first artist return ($self->artists($nameref))[0]; } ################################################## sub init_via_xmlref { ################################################## my($self, $xmlref) = @_; $self->SUPER::init_via_xmlref($xmlref); my $ref = $xmlref->{ItemAttributes}; # It could either be a Creator (and?)/or an Artist my @artists; for my $artist (@{$ref->{Creator}}) { push @artists, $artist->{content}; } for my $artist (@{$ref->{Artist}}) { push @artists, $artist; } $self->artists(\@artists); $self->binding($ref->{Binding}); $self->genre($ref->{Genre}); $self->label($ref->{Label}); $self->manufacturer($ref->{Manufcaturer}); $self->publisher($ref->{Publisher}); $self->release_date($ref->{ReleaseDate}); $self->running_time($ref->{RunningTime}->{content}); $self->studio($ref->{Studio}); $self->title($ref->{Title}); $self->track_sequence($ref->{TrackSequence}); my $year = 0; if (defined $ref->{ReleaseDate}) { $year = (split(/\-/, $ref->{ReleaseDate}))[0]; } $self->year($year); } ################################################## sub as_string { ################################################## my($self) = @_; return join('/', $self->artists) . ", " . '"' . $self->title. '"' . ", " . $self->year . ", " . $self->_best_effort_price() . ", " . $self->Asin; } 1; __END__ =head1 NAME Net::Amazon::Property::DigitalMusicTrack- Class for MP3 downloads on amazon.com =head1 SYNOPSIS use Net::Amazon; # ... if($resp->is_success()) { for my $prop ($resp->properties) { print join("/", $_->artists(), " ", $_->title(), " ", $_->year(), " "; $_->running_time(), " "; } =head1 DESCRIPTION C<Net::Amazon::Property::DigitalMusicTrack> is derived from C<Net::Amazon::Property> and on top of the all-purpose methods the base class provides, it offers specialized accessors for popular digital music track parameters. =head2 METHODS =over 4 =item artists() Returns a list of the artists. There's also a C<artist()> method which just returns the first artist. =item binding() Returns the binding of the digital music track, such as MP3 Download. =item genre() Returns the genre as a string. =item label() Returns the music label as a string. =item manufacturer() Returns the manufacturer as a string. =item publisher() Returns the publisher as a string. =item release_date() Returns the release date as a string formatted YYYY-MM-DD. =item studio() Returns the studio as a string. =item title() Returns the title as a string. =item track_sequence() Returns the track sequence number of this song from its released CD. =item running_time() Running time of this track in seconds. =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 Christopher Boumenot, E<lt>boumenot+na@gmail.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2009 by Christopher Boumenot E<lt>boumenot+na@gmail.comE<gt> This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut ��������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Property/Book.pm�����������������������������������������������������0000644�6663025�1271666�00000010303�11652655673�021062� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### 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 �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Property/DVD.pm������������������������������������������������������0000644�6663025�1271666�00000011476�11652654045�020611� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Property::DVD; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Property); __PACKAGE__->make_accessor($_) for qw(studio media nummedia upc mpaa_rating region_code label running_time publisher ean theatrical_release_date); __PACKAGE__->make_array_accessor($_) for qw(actors directors features starring); ################################################## 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 actor { ################################################## my($self, $nameref) = @_; # Only return the first director return ($self->actors($nameref))[0]; } ################################################## sub director { ################################################## my($self, $nameref) = @_; # Only return the first director return ($self->directors($nameref))[0]; } ################################################## sub feature { ################################################## my($self, $nameref) = @_; # Only return the first feature return ($self->features($nameref))[0]; } ################################################## sub init_via_xmlref { ################################################## my($self, $xmlref) = @_; $self->SUPER::init_via_xmlref($xmlref); my $ref = $xmlref->{ItemAttributes}; $self->actors($ref->{Actor}); $self->starring($ref->{Actor}); $self->directors($ref->{Director}); $self->ean($ref->{EAN}); $self->features($ref->{Format}); $self->label($ref->{Label}); $self->mpaa_rating($ref->{AudienceRating}); $self->publisher($ref->{Publisher}); $self->region_code($ref->{RegionCode}); $self->running_time($ref->{RunningTime}->{content}); $self->studio($ref->{Studio}); $self->upc($ref->{UPC}); $self->theatrical_release_date($ref->{TheatricalReleaseDate}); $self->media($ref->{Binding}); # $self->NumMedia($ref->{NumberOfItems}); # $self->nummedia($ref->{NumberOfItems}); $self->NumMedia($ref->{NumberOfDiscs}); $self->nummedia($ref->{NumberOfDiscs}); if ( defined $ref->{TheatricalReleaseDate} ) { my $year = (split(/\-/, $ref->{TheatricalReleaseDate}))[0]; $self->year($year); } } 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() Returns the same list as the method actors(). =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. =item theatrical_release_date() Returns the DVD's theatrical release date. As of Net::Amazon 0.61 this method has been deprecated. It appears that this information is no longer from Amazon. =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 ReleaseDate() Returns the release date. For historical reasons, this method used to return the theatrical release date. However, as of version Net::Amazon 0.48 the release date is returned, and a separate L</theatrical_release_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 ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Property/CE.pm�������������������������������������������������������0000644�6663025�1271666�00000010765�11253707747�020470� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Property::CE; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Property); __PACKAGE__->make_accessor($_) for qw(brand ean label manufacturer model mpn publisher studio upc warranty); __PACKAGE__->make_array_accessor($_) for qw(platforms 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 init_via_xmlref { ################################################## my($self, $xmlref) = @_; $self->SUPER::init_via_xmlref($xmlref); my $ref = $xmlref->{ItemAttributes}; $self->brand($ref->{Brand}); $self->ean($ref->{EAN}); $self->features($ref->{Feature}); $self->label($ref->{Label}); $self->manufacturer($ref->{Manufacturer}); $self->model($ref->{Model}); $self->mpn($ref->{MPN}); $self->platforms($ref->{Platform} || 'UNKNOWN'); $self->publisher($ref->{Publisher}); $self->studio($ref->{Studio}); $self->upc($ref->{UPC}); $self->warranty($ref->{Warranty}); $self->NumMedia($ref->{NumberOfItems}); } ################################################## sub platform { ################################################## my($self, $nameref) = @_; # Only return the first platform return ($self->platforms($nameref))[0]; } ################################################## sub feature { ################################################## my($self, $nameref) = @_; # Only return the first feature return ($self->features($nameref))[0]; } ################################################## sub as_string { ################################################## my($self) = @_; return join('/', $self->platforms) . ", " . '"' . $self->title . '"' . ", " . $self->_best_effort_price() . ", " . $self->ASIN; } 1; __END__ =head1 NAME Net::Amazon::Property::CE - Class for consumer electronics on amazon.com =head1 SYNOPSIS use Net::Amazon; # ... if($resp->is_success()) { for my $prop ($resp->properties) { print join("/", $prop->platforms()), " ", $prop->title(), " ", $prop->publisher(), "\n"; } =head1 DESCRIPTION C<Net::Amazon::Property::CE> is derived from C<Net::Amazon::Property> and on top of the all-purpose methods the base class provides, it offers specialized accessors for consumer electronic parameters. =head2 METHODS =over 4 =item platforms() Returns a list of the consumer electronic's platforms. There's also a C<platform()> method which just returns the I<first> platform. =item features() Returns a list of the consumer electronic's features. There's also a C<feature()> method which just returns the I<first> feature. =item publisher() Returns the consumer electronic's publishing company as a string. =item title() Returns the consumer electronic's title as a string. =item ean() Returns the consumer electronic's EAN number. =item label() Returns the consumer electronic's label type as a string. =item studio() Returns the consumer electronic's studio type as a string. =item brand() Returns the consumer electronic's brand type as a string. =item manufacturer() Returns the consumer electronic's manufacturer type as a string. =item mpn() Returns the consumer electronic's mpn (manufacturer's part number) as a string. =item model() Returns the consumer electronic's model as a string. =item warranty() Returns the consumer electronic's warranty as a string. =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 Christopher Boumenot, E<lt>boumenot@gmail.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2006 by Mike Schilli E<lt>m@perlmeister.comE<gt> This library is free consumer electronic; you can redistribute it and/or modify it under the same terms as Perl itself. =cut �����������Net-Amazon-0.62/lib/Net/Amazon/Property/Software.pm�������������������������������������������������0000644�6663025�1271666�00000010164�11253707747�021764� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Property::Software; ###################################################################### use warnings; use strict; use base qw(Net::Amazon::Property); use Log::Log4perl qw(:easy get_logger); __PACKAGE__->make_accessor($_) for qw(brand ean esrb_rating label media manufacturer nummedia publisher studio); __PACKAGE__->make_array_accessor($_) for qw(platforms); ################################################## 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->brand($ref->{Brand}); $self->ean($ref->{EAN}); $self->esrb_rating($ref->{ESRBAgeRating}); $self->label($ref->{Label}); $self->manufacturer($ref->{Manufacturer}); $self->platforms($ref->{Platform}); $self->publisher($ref->{Publisher}); $self->studio($ref->{Studio}); $self->media($ref->{Binding}); $self->NumMedia($ref->{NumberOfItems}); $self->nummedia($ref->{NumberOfItems}); } ################################################## sub platform { ################################################## my($self, $nameref) = @_; # Only return the first platform return ($self->platforms($nameref))[0]; } ################################################## sub as_string { ################################################## my($self) = @_; my @a = (defined $self->platforms) ? $self->platforms : qw(); return join('/', @a) . ", " . '"' . $self->title . '"' . ", " . $self->_best_effort_price() . ", " . $self->ASIN; } 1; __END__ =head1 NAME Net::Amazon::Property::Software - Class for software on amazon.com =head1 SYNOPSIS use Net::Amazon; # ... if($resp->is_success()) { for my $prop ($resp->properties) { print join("/", $prop->platforms()), " ", $prop->title(), " ", $prop->publisher(), "\n"; } =head1 DESCRIPTION C<Net::Amazon::Property::Software> is derived from C<Net::Amazon::Property> and on top of the all-purpose methods the base class provides, it offers specialized accessors for software parameters. =head2 METHODS =over 4 =item platforms() Returns a list of the software's platforms. There's also a C<platform()> method which just returns the I<first> platform. =item publisher() Returns the software's publishing company as a string. =item title() Returns the software's title as a string. =item ean() Returns the software's EAN number. =item media() Returns the software's media type as a string. =item label() Returns the software's label type as a string. =item studio() Returns the software's studio type as a string. =item brand() Returns the software's brand type as a string. =item manufacturer() Returns the software's manufacturer type as a string. =item esrb_rating() Returns the software's ESRB age rating type as a string. =item media() Returns the software's media type as a string. =item nummedia() Returns the software's number of media (number of discs) as a string. =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 Christopher Boumenot, E<lt>boumenot@gmail.comE<gt> =head1 COPYRIGHT AND LICENSE Copyright 2006 by Christopher Bomenot E<lt>boumenot@gmail.comE<gt> This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Attribute/�����������������������������������������������������������0000755�6663025�1271666�00000000000�12101066651�017732� 5����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Attribute/ReviewSet.pm�����������������������������������������������0000644�6663025�1271666�00000006561�11253707747�022234� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### 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 �����������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Attribute/Review.pm��������������������������������������������������0000644�6663025�1271666�00000007450�11276327535�021554� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Attribute::Review; ###################################################################### use warnings; use strict; use Log::Log4perl qw(:easy); use base qw(Net::Amazon); __PACKAGE__->make_accessor($_) for qw(date asin rating summary content total_votes helpful_votes customer_id customer_name customer_location); use constant ELEMENT_TO_METHOD_MAP => { # XXX: should ASIN be Asin, ASIN, or asin? 'ASIN' => 'asin', 'Content' => 'content', 'CustomerId' => 'customer_id', 'CustomerLocation' => 'customer_location', 'CustomerName' => 'customer_name', 'Date' => 'date', 'HelpfulVotes' => 'helpful_votes', 'Rating' => 'rating', 'Summary' => 'summary', 'TotalVotes' => 'total_votes', }; ################################################## sub new { ################################################## my($class, %options) = @_; my $self = { rating => "", summary => "", content => "", helpful_votes => "", customer_id => "", customer_name => "", customer_location => "", asin => "", date => "", total_votes => "", %options, }; bless $self, $class; } ################################################## sub init_via_xmlref { ################################################## my($self, $xmlref) = @_; my $href = (ELEMENT_TO_METHOD_MAP); for(keys %$href) { my $method = lc($href->{$_}); if(defined $xmlref->{$_}) { $self->$method($xmlref->{$_}); } } $self->customer_location($xmlref->{Reviewer}{Location}); $self->customer_name($xmlref->{Reviewer}{Name}); } 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, 'content' => $content, 'asin' => $asin, 'customer_id' => $customer_id, 'date' => $date, 'helpful_votes' => $helpful_votes, 'total_votes' => $total_votes, ); =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 content() Accessor for the string value of the content. =item asin() Accessor for the string value of ASIN. =item customer_id() Accessor for the string value of the customer ID. =item customer_location() Accessor for the string value of the customer location. =item customer_name() Accessor for the string value of the customer name. =item helpful_votes() Accessor for the numeric value of the helpful votes. =item total_votes() Accessor for the numeric value of the total votes. =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 __END__ <Review> <ASIN>0201360683</ASIN> <Rating>4</Rating> <HelpfulVotes>2</HelpfulVotes> <CustomerId>YYYYYYYXXYYYY</CustomerId> <Reviewer> <CustomerId>YYYYYYYXXYYYY</CustomerId> <Name>John Doe</Name> <Nickname>JD</Nickname> <Location>New York, NY USA</Location> </Reviewer> <TotalVotes>2</TotalVotes> <Date>2000-03-09</Date> <Summary>Wicked Pisser!</Summary> <Content>I found this book to be very good</Content> </Review> ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Property.pm����������������������������������������������������������0000644�6663025�1271666�00000031671�11652661572�020176� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Property; ###################################################################### use warnings; use strict; use base qw(Net::Amazon); use Net::Amazon::Property::Book; use Net::Amazon::Property::CE; use Net::Amazon::Property::DigitalMusicTrack; use Net::Amazon::Property::DVD; use Net::Amazon::Property::Music; use Net::Amazon::Property::Software; use Net::Amazon::Property::VideoGames; use Net::Amazon::Attribute::ReviewSet; use Data::Dumper; use Log::Log4perl qw(:easy); # read: a poor man's XPath # NOTE: Igor Sutton Lopes has a module called Hash::Path that does exactly # what I am doing here. He beat me to the punch. :) our %DEFAULT_ATTRIBUTES_XPATH = ( Availability => [qw(Offers Offer OfferListing Availability)], Catalog => [qw(ItemAttributes ProductGroup)], Binding => [qw(ItemAttributes Binding)], CollectibleCount => [qw(OfferSummary TotalCollectible)], CollectiblePrice => [qw(OfferSummary LowestCollectiblePrice FormattedPrice)], ImageUrlLarge => [qw(LargeImage URL)], LargeImageUrl => [qw(LargeImage URL)], LargeImageWidth => [qw(LargeImage Width content)], LargeImageHeight => [qw(LargeImage Height content)], ListPrice => [qw(ItemAttributes ListPrice FormattedPrice)], Manufacturer => [qw(ItemAttributes Manufacturer)], MediumImageUrl => [qw(MediumImage URL)], ImageUrlMedium => [qw(MediumImage URL)], MediumImageWidth => [qw(MediumImage Width content)], MediumImageHeight => [qw(MediumImage Height content)], OurPrice => [qw(Offers Offer OfferListing Price FormattedPrice)], ImageUrlSmall => [qw(SmallImage URL)], SmallImageUrl => [qw(SmallImage URL)], SmallImageWidth => [qw(SmallImage Width content)], SmallImageHeight => [qw(SmallImage Height content)], SuperSaverShipping => [qw(Offers Offer OfferListing IsEligibleForSuperSaverShipping)], Title => [qw(ItemAttributes Title)], title => [qw(ItemAttributes Title)], ThirdPartyNewCount => [qw(OfferSummary TotalNew)], ThirdPartyNewPrice => [qw(OfferSummary LowestNewPrice FormattedPrice)], TotalOffers => [qw(Offers TotalOffers)], UsedCount => [qw(OfferSummary TotalUsed)], UsedPrice => [qw(OfferSummary LowestUsedPrice FormattedPrice)], RawListPrice => [qw(ItemAttributes ListPrice Amount)], CurrencyCode => [qw(ItemAttributes ListPrice CurrencyCode)], ReleaseDate => [qw(ItemAttributes ReleaseDate)], SimilarProducts => [qw(SimilarProducts SimilarProduct)], ); our @DEFAULT_ATTRIBUTES = qw( SalesRank ASIN DetailPageURL ProductDescription NumMedia NumberOfOfferings ); our %COMPATIBLE_ATTRIBUTES = ( 'Asin' => 'ASIN', 'url' => 'DetailPageURL', 'Media' => 'Binding', 'ProductName' => 'title', ); __PACKAGE__->make_accessor($_) for @DEFAULT_ATTRIBUTES; __PACKAGE__->make_accessor($_) for keys %DEFAULT_ATTRIBUTES_XPATH; __PACKAGE__->make_accessor($_) for qw(year review_set image_set offer_set); __PACKAGE__->make_array_accessor($_) for qw(browse_nodes similar_asins); __PACKAGE__->make_compatible_accessor($_, $COMPATIBLE_ATTRIBUTES{$_}) for keys %COMPATIBLE_ATTRIBUTES; ################################################## sub new { ################################################## my($class, %options) = @_; if(!$options{xmlref}) { die "Mandatory param xmlref missing"; } my $self = { %options, }; bless $self, $class; # Set default attributes for my $attr (@DEFAULT_ATTRIBUTES) { $self->$attr($options{xmlref}->{$attr}); } for my $attr (keys %DEFAULT_ATTRIBUTES_XPATH) { my $value = __PACKAGE__->walk_hash_ref($options{xmlref}, $DEFAULT_ATTRIBUTES_XPATH{$attr}); $self->$attr($value); } if (defined $options{xmlref}->{OfferSummary}) { $self->NumberOfOfferings($self->UsedCount() + $self->ThirdPartyNewCount() + $self->CollectibleCount()); } if (defined $options{xmlref}->{EditorialReviews}) { $self->ProductDescription($options{xmlref}->{EditorialReviews}->{EditorialReview}->[0]->{Content}); } my @browse_nodes; if (ref $options{xmlref}->{BrowseNodes}->{BrowseNode} eq 'ARRAY') { for my $bn (@{$options{xmlref}->{BrowseNodes}->{BrowseNode}}) { push @browse_nodes, $bn->{Name}; # Walk the BrowseNode Ancestors and collect the other BrowseNode Ids for (my $ref = $bn->{Ancestors}->{BrowseNode}; defined $ref; $ref = $ref->{Ancestors}->{BrowseNode}) { # The BrowseNodeId is also available... push @browse_nodes, $ref->{Name} if defined($ref->{Name}); } } } $self->browse_nodes(\@browse_nodes); my @similars; for my $similar (@{$options{xmlref}->{SimilarProducts}->{SimilarProduct}}) { # You could also capture the Title as well... push @similars, $similar->{ASIN}; } $self->similar_asins(\@similars); return $self; } ################################################## sub as_string { ################################################## my($self) = @_; my $result = "\"" . $self->Title . "\", "; if($self->{xmlref}->{Manufacturer}) { $result .= "$self->{xmlref}->{Manufacturer}, "; } $result .= $self->year() . ", " if $self->year(); $result .= $self->_best_effort_price() . ", "; $result .= $self->ASIN(); return $result; } ################################################## sub _best_effort_price { ################################################## my($self) = @_; my $price; if ($self->OurPrice()) { $price = $self->OurPrice(); } elsif ($self->ThirdPartyNewPrice()) { $price = $self->ThirdPartyNewPrice(); } elsif ($self->UsedPrice()) { $price = $self->UsedPrice(); } else { $price = '[$unknown]'; } return $price; } ################################################## sub factory { ################################################## my(%options) = @_; my $xmlref = $options{xmlref}; die "Called factory without xmlref" unless $xmlref; #DEBUG(sub {"factory xmlref=" . Data::Dumper::Dumper($xmlref)}); my $catalog = $xmlref->{ItemAttributes}->{ProductGroup}; my $obj; if(0) { } elsif($catalog eq "Book" || $catalog eq "eBooks") { DEBUG("Creating new Book Property"); $obj = Net::Amazon::Property::Book->new(xmlref => $xmlref); } elsif($catalog eq "Music") { DEBUG("Creating new Music Property"); $obj = Net::Amazon::Property::Music->new(xmlref => $xmlref); } elsif($catalog eq "DVD") { DEBUG("Creating new DVD Property"); $obj = Net::Amazon::Property::DVD->new(xmlref => $xmlref); } elsif($catalog eq "Software") { DEBUG("Creating new Software Property"); $obj = Net::Amazon::Property::Software->new(xmlref => $xmlref); } elsif($catalog eq "Video Games") { DEBUG("Creating new Video Games Property"); $obj = Net::Amazon::Property::VideoGames->new(xmlref => $xmlref); } elsif($catalog eq "CE") { # Consumer Electronics? DEBUG("Creating new CE Property"); $obj = Net::Amazon::Property::CE->new(xmlref => $xmlref); } elsif($catalog eq "Digital Music Track") { DEBUG("Creating new Digital Music Track"); $obj = Net::Amazon::Property::DigitalMusicTrack->new(xmlref => $xmlref); } else { # print "UNKNOWN CATALOG: ", Data::Dumper::Dumper($xmlref), "\n"; # die "%Error: there is no property defined for type '$catalog'\n"; DEBUG("Creating new Default Property ($catalog)"); $obj = Net::Amazon::Property->new(xmlref => $xmlref); } return $obj; } ################################################## sub init_via_xmlref { ################################################## my($self, $xmlref) = @_; my $reviewset = Net::Amazon::Attribute::ReviewSet->new(); if(exists $xmlref->{CustomerReviews}) { $reviewset->init_via_xmlref($xmlref->{CustomerReviews}); } $self->review_set($reviewset); } ################################################## ################################################## ################################################## 1; __END__ =head1 NAME Net::Amazon::Property - Baseclass for products on amazon.com =head1 SYNOPSIS use Net::Amazon; # ... if($resp->is_success()) { for my $prop ($resp->properties) { print $_->ProductName(), " ", $_->Manufacturer(), " ", $_->OurPrice(), "\n"; =head1 DESCRIPTION C<Net::Amazon::Property> is the baseclass for results returned from Amazon web service queries. The term 'properties' is used as a generic description for an item on amazon.com. Typically, the C<properties()> method of a C<Net::Amazon::Response::*> object will return one or more objects of class C<Net::Amazon::Property> or one of its subclasses, e.g. C<Net::Amazon::Property::Book> or C<Net::Amazon::Property::CD>. While C<Net::Amazon::Property> objects expose accessors for all fields returned in the XML response (like C<OurPrice()>, C<ListPrice()>, C<Manufacturer()>, C<Asin()>, C<Catalog()>, C<ProductName()>, subclasses might define their own accessors to more class-specific fields (like the iC<Net::Amazon::Property::Book>'s C<authors()> method returning a list of authors, while C<Net::Amazon::Property>'s C<Authors()> method will return a reference to a sub-hash containing a C<Author> field, just like the response's XML contained it). =head2 METHODS Methods vary, depending on the item returned from a query. Here's the most common ones. They're all accessors, meaning they can be used like C<Method()> to retrieve the value or like C<Method($value)> to set the value of the field. =over 4 =item Asin() The item's ASIN number. This option is deprecated, please use ASIN. =item ASIN() The item's ASIN number. =item ProductName() Book title, CD album name or item name. This option is actually an alias for the method title, and is actually dependent upon the type of item returned. =item Availability() Text string describing if the item is available. Examples: C<"Usually ships within 24 hours"> or C<"Out of Print--Limited Availability">. =item Catalog() Shows the catalog the item was found in: C<Book>, C<Music>, C<Classical>, C<Electronics> etc. =item Authors() Returns a sub-hash with a C<Author> key, which points to either a single $scalar or to a reference of an array containing author names as scalars. =item ReleaseDate() Item's release date, format is "NN Monthname, Year". =item Manufacturer() Music label, publishing company or manufacturer =item ImageUrlSmall() URL to a small (thumbnail) image of the item =item ImageUrlMedium() URL to a medium-size image of the item =item ImageUrlLarge() URL to a large image of the item =item ListPrice() List price of the item =item OurPrice() Amazon price of the item =item UsedPrice() Used price of the item =item RawListPrice() Unformatted list price as an integer, without currency symbol. =item CurrencyCode() The currency code for the L</ListPrice()>, e.g. C<USD>. =item SalesRank() Sales rank of the item (contains digits and commas, like 1,000,001) =item Media() Type of media (Paperback, etc.). =item NumMedia() Number of media the item carries (1,2 CDs etc.). =item ProductDescription() Lengthy textual description of the product. =item CollectiblePrice() Lowest price in "Collectible" category. =item CollectibleCount() Number of offerings in "Collectible" category. =item NumberOfOfferings() Total number of offerings in all categories. =item UsedCount() Number of offerings in "Used" category. =item TotalOffers() Number of offerings of the product. =item ThirdPartyNewPrice() Lowest price in "Third Party New" category. =item ThirdPartyNewCount() Number of offerings in "Third Party New" category. =item SmallImageWidth() Return the width of the small image in pixels. =item SmallImageHeight() Return the height of the small image in pixels. =item MediumImageWidth() Return the width of the medium image in pixels. =item MediumImageHeight() Return the height of the medium image in pixels. =item LargeImageWidth() Return the width of the large image in pixels. =item LargeImageHeight() Return the height of the large image in pixels. =item SuperSaverShipping() Boolean value that indicates if the product is eligible for super saver shipping. =item year() The release year extracted from ReleaseDate(). =item browse_nodes() Returns a list of browse nodes (text string categories) for this item. =item similar_asins() Returns a list of ASINs of similar items for this item. =item SimilarProducts() Returns a list of ASINs and titles of similar items for this item. =back Please check the subclasses of C<Net::Amazon::Property> for specialized methods. =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 �����������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Request.pm�����������������������������������������������������������0000644�6663025�1271666�00000030311�12101064553�017752� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Request; ###################################################################### use Log::Log4perl qw(:easy get_logger); use Net::Amazon::Validate::Type; use Net::Amazon::Validate::ItemSearch; use Data::Dumper; use warnings; use strict; use constant DEFAULT_MODE => 'books'; use constant DEFAULT_TYPE => 'Large'; use constant DEFAULT_PAGE_COUNT => 1; use constant DEFAULT_FORMAT => 'xml'; use constant PAGE_NOT_VALID => qw(TextStream); # Attempt to provide backward compatability for AWS3 types. use constant AWS3_VALID_TYPES_MAP => { 'heavy' => 'Large', 'lite' => 'Medium', }; # Each key represents the REST operation used to execute the action. use constant SEARCH_TYPE_OPERATION_MAP => { Actor => 'ItemSearch', Artist => 'ItemSearch', All => 'ItemSearch', Author => 'ItemSearch', ASIN => 'ItemLookup', Blended => 'ItemSearch', BrowseNode => 'ItemSearch', Director => 'ItemSearch', EAN => 'ItemLookup', Exchange => 'SellerListingLookup', ISBN => 'ItemLookup', Keyword => 'ItemSearch', Keywords => 'ItemSearch', Manufacturer => 'ItemSearch', MP3Downloads => 'ItemSearch', MusicLabel => 'ItemSearch', Power => 'ItemSearch', Publisher => 'ItemSearch', Seller => 'SellerListingSearch', Similar => 'SimilarityLookup', TextStream => 'ItemSearch', Title => 'ItemSearch', UPC => 'ItemLookup', }; # if it isn't defined it defaults to salesrank use constant DEFAULT_SORT_CRITERIA_MAP => { All => '', Blended => '', Seller => '', Exchange => '', }; # if it isn't defined it defaults to ItemPage use constant DEFAULT_ITEM_PAGE_MAP => { Seller => 'ListingPage', }; our $AMZN_XML_URL = 'http://webservices.amazon.com/onca/xml?Service=AWSECommerceService'; ################################################## sub amzn_xml_url { ################################################## return $AMZN_XML_URL; } ################################################## sub new { ################################################## my($class, %options) = @_; my ($operation) = $class =~ m/([^:]+)$/; my $self = { Operation => SEARCH_TYPE_OPERATION_MAP->{$operation}, %options, }; $self->{page} = DEFAULT_PAGE_COUNT unless exists $self->{page}; # TextStream doesn't allow a page (ItemPage) parameter delete $self->{page} if grep{$operation eq $_} (PAGE_NOT_VALID); # salesrank isn't a valid sort criteria for all operations if (! exists $self->{sort}) { my $sort = (defined DEFAULT_SORT_CRITERIA_MAP->{$operation}) ? DEFAULT_SORT_CRITERIA_MAP->{$operation} : 'salesrank'; $self->{sort} = $sort if length($sort); } my $valid = Net::Amazon::Validate::Type::factory(operation => $self->{Operation}); # There is no initial default type (ResponseGroup) defined, # if there is, then attempt to map the AWS3 type to the # AWS4 type. if ($self->{type}) { if ( ref $self->{type} eq 'ARRAY' ) { my @types; for (@{$self->{type}}) { push @types, _get_valid_response_group($_, $valid); } $self->{type} = join(',', @types); } else { $self->{type} = _get_valid_response_group($self->{type}, $valid); } } # If no type was defined then try to default to Large, which is a good # all around response group. If Large is not a valid response group # let Amazon pick. else { eval { $valid->ResponseGroup(DEFAULT_TYPE) }; $self->{type} = DEFAULT_TYPE unless $@; } my $item_page = (defined DEFAULT_ITEM_PAGE_MAP->{$operation}) ? DEFAULT_ITEM_PAGE_MAP->{$operation} : 'ItemPage'; __PACKAGE__->_convert_option($self, 'page', $item_page); __PACKAGE__->_convert_option($self, 'sort', 'Sort'); __PACKAGE__->_convert_option($self, 'type', 'ResponseGroup') if defined $self->{type}; # Convert all of the normal user input into Amazon's expected input. Do it # here to allow a user to narrow down there based on any field that is valid # for a search operation. # # One could add all of the different qualifiers for an ItemSearch for free. if (SEARCH_TYPE_OPERATION_MAP->{$operation} eq 'ItemSearch' ) { for (keys %{(SEARCH_TYPE_OPERATION_MAP)}) { __PACKAGE__->_convert_option($self, lc($_), $_) if defined $self->{lc($_)}; } } bless $self, $class; } ################################################## sub page { ################################################## my($self) = @_; return $self->{$self->_page_type}; } ################################################## sub params { ################################################## my ($self, %options) = @_; my $class = ref $self; my ($operation) = $class =~ m/([^:]+)$/; unless (grep{$operation eq $_} (PAGE_NOT_VALID)) { my $type = $self->_page_type; $self->{$type} = $options{page}; } return(%$self); } ################################################## # Figure out the Response class to a given Request # class. To be used by sub classes. ################################################## sub response_class { ################################################## my($self) = @_; my $response_class = ref($self); $response_class =~ s/Request/Response/; return $response_class; } ## ## 'PRIVATE' METHODS ## # A subroutine (not a class method), to map a response group # to from AWS3 to AWS4, or validate that a response group # is valid for AWS4. sub _get_valid_response_group { my ($response_group, $valid) = @_; if (defined AWS3_VALID_TYPES_MAP->{$response_group}) { return AWS3_VALID_TYPES_MAP->{$response_group}; } elsif ($valid->ResponseGroup($response_group)) { return $response_group; } # never reached, valid-> will die if the response group # is not valid for AWS4. return undef; } # CLASS->_convert_option( OPTIONS, ORIGINAL, TARGET [, CALLBACK] ) # # Takes a reference to a hash of OPTIONS and renames the # ORIGINAL key name to the TARGET key name. If the optional # CALLBACK subroutine reference is defined, that subroutine # is invoked with two arguments: # # CALLBACK->( OPTIONS, TARGET ) # # The result of the CALLBACK's execution is then returned to # the caller. No assumptions are made about what the CALLBACK # should return (or even *if* is should return)--that's the # caller's responsibility. # # Returns 1 in the absensence of a CALLBACK. # sub _convert_option { my ($class, $options, $original, $target, $callback) = @_; if ( exists $options->{$original} ) { $options->{$target} = $options->{$original}; delete $options->{$original}; } return 1 unless ( $callback ); # The key name is explicitly passed-in so that the caller doesn't # have think "Hrmm.. now which key am I working on, the original # or the target key?" Confusion is bad. return $callback->($options, $target); } # CLASS->_assert_options_defined( OPTIONS, KEYS ) # # Takes a reference to a hash of OPTIONS and a list of # one or more KEYS. Tests to see if each key in KEYS # has a defined value. Calls die() upon the first # missing key. Otherwise, returns undef. # sub _assert_options_defined { my ($class, $options, @keys) = @_; foreach my $key ( @keys ) { die "Mandatory parameter '$key' not defined" unless ( defined $options->{$key} ); } } # CLASS->_option_or_default( OPTIONS, DEFAULT, USER ) # # Takes a list of options, a default option, and a # possibly supplied user option. If the user option # is defined, it is verified that the option is valid. # If no user option is supplied, the default option is # used. sub _option_or_default { my ($self, $options, $default, $user) = @_; # if(defined $user) { # unless(grep {$user eq $_} @$options) { # die "User supplied value, $user, is not a valid option" # } # return $user; # } return $default; } # CLASS->_itemsearch_factory() # # Create an instance of an ItemSearch validator based on the # Request class. This class is used to validate user input # against valid options for a given mode, and the type of # Request. sub _itemsearch_factory { my($self) = @_; my $request_class = ref($self); my $request_type = (split(/::/, $request_class))[-1]; # XXX: I'm not sure what to do here. The ItemSearch validate class # is called Keywords, but the Request/Response class is called # Keyword. For now I'm going to special case Keywords to map # to Keyword. $request_type = 'Keywords' if $request_type eq 'Keyword'; return Net::Amazon::Validate::ItemSearch::factory(search_index => $request_type); } sub _convert_itemsearch { my($self) = @_; my $is = $self->_itemsearch_factory(); $self->{mode} = $is->user_or_default($self->{mode}); __PACKAGE__->_convert_option($self, 'mode', 'SearchIndex'); } sub _page_type { my ($self, %options) = @_; my $class = ref $self; my ($operation) = $class =~ m/([^:]+)$/; my $type = (defined DEFAULT_ITEM_PAGE_MAP->{$operation}) ? DEFAULT_ITEM_PAGE_MAP->{$operation} : 'ItemPage'; return $type; } 1; __END__ =head1 NAME Net::Amazon::Request - Baseclass for requests to Amazon's web service =head1 SYNOPSIS my $req = Net::Amazon::Request::XXX->new( [ type => 'Large', ] [ page => $start_page, ] [ mode => $mode, ] [ offer => 'All', ] [ sort => $sort_type, ] ); =head1 DESCRIPTION Don't use this class directly, use derived classes (like C<Net::Amazon::Request::ASIN>, etc.) instead to specify the type of request and its parameters. However, there's a bunch of parameters to the constructor that all request types have in common, here they are: =over 4 =item type Defaults to C<Large>, but can also be set to C<Medium>, or C<Small>. =over 8 =item Large The C<Large> type provides everything in C<Medium> as well as music track information, customer reviews, similar products, offers, and accessory data, i.e. the kitchen sink. =item Medium The C<Medium> type provides everything in C<Small> as well as sales rank, editorial reviews, and image URLs. =item Small The C<Small> type provies ASIN, product title, creator (author, artist, etc.), product group, URL, and manufacturer. =back =item mode Defaults to C<books>, but can be set to other catalog values. =item page Defaults to C<1>, but can be set to a different number to start with a different result page. Used in conjunction with the C<max_pages> parameter of the C<Net::Amazon> object. C<page> is the offset, C<max_pages> is the maximum number of pages pulled in starting at C<page>. =item sort Defaults to C<salesrank>, but search results can be sorted in various ways, depending on the type of product returned by the search. Search results may be sorted by the following criteria: =over 8 =item * Featured Items =item * Bestselling =item * Alphabetical (A-Z and Z-A) =item * Price (High to Low and Low to High) =item * Publication or Release Date =item * Manufacturer =item * Average Customer Review =item * Artist Name =back Consult L<Net::Amazon::Request::Sort> for details. =item offer To receive values for the fields C<CollectibleCount>, C<NumberOfOfferings>, C<UsedCount>, specify C<offer =E<gt> "All">. =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 �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon/Response.pm����������������������������������������������������������0000644�6663025�1271666�00000011560�11253707747�020145� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������###################################################################### package Net::Amazon::Response; ###################################################################### use warnings; use strict; use base qw(Net::Amazon); use Text::Wrap qw($columns wrap); use XML::Simple; use Log::Log4perl qw(:easy get_logger); our @FORCE_ARRAY_FIELDS = qw(Author Artist Creator Director Disc Review EditorialReview SimilarProduct Track); __PACKAGE__->make_accessor($_) for qw( status messages items xmlref total_results); ################################################## sub new { ################################################## my($class, %options) = @_; my $self = { status => "", messages => [], items => [], xmlref => {}, total_results => undef, }; bless $self, $class; } sub message { my($self) = @_; return join(";",@{$self->{messages}}); } ########################################### sub is_success { ########################################### my($self) = @_; return $self->{status} ? 1 : ""; } ########################################### sub is_error { ########################################### my($self) = @_; return !$self->is_success(); } ########################################### sub push_item { ########################################### my($self, $item) = @_; push @{$self->{items}}, $item; } ########################################### sub as_string { ########################################### my($self) = @_; return Data::Dumper::Dumper($self); } ########################################### sub list_as_string { ########################################### my($self, @properties) = @_; my $full = ""; # Column with $columns = 60; my $bullet = 1; foreach my $property (@properties) { $full .= "\n" if $full; my $bullet_string = sprintf("[%d]%s", $bullet, (" " x (3-length($bullet)))); $full .= wrap("", " ", $bullet_string . $property->as_string()); $bullet++; } return $full; } ################################################## sub properties { ################################################## my($self) = @_; my @properties = (); if($self->is_success && ref($self->{xmlref}->{Items}) eq 'ARRAY') { foreach my $xmlref (@{$self->{xmlref}->{Items}}) { my $property = Net::Amazon::Property::factory(xmlref => $xmlref); push @properties, $property; } } if(wantarray) { return (@properties); } if(@properties) { # Scalar context and we've got results. Return the first one. return $properties[0]; } # Scalar context and we don't have anything. return undef; } ################################################## sub xml_parse { ################################################## my($self, $xml) = @_; my $xs = XML::Simple->new(); return $xs->XMLin($xml, ForceArray => [ @FORCE_ARRAY_FIELDS ]); } 1; __END__ =head1 NAME Net::Amazon::Response - Baseclass for responses from Amazon's web service =head1 SYNOPSIS $resp = $ua->request($request); if($resp->is_success()) { print $resp->as_string(); } if($resp->is_error()) { print $resp->message(); } if($resp->is_success()) { for my $property ($resp->properties) { print $property->as_string(), "\n"; } } =head1 DESCRIPTION C<Net::Amazon::Response> is the baseclass for responses coming back from the useragent's C<request> method. Responses are typically not of type C<Net::Amazon::Response> but one of its subclasses C<Net::Amazon::Response::*>. However, for basic error handling and dumping content, C<Net::Amazon::Response>'s methods are typically used, because we typically don't know what type of object we're actually dealing with. =head2 METHODS =over 4 =item is_success() Returns true if the request was successful. This doesn't mean any objects have been found, it just indicates a successful roundtrip. =item is_error() Returns true if an error occurred. Use C<message()> to determine what kind of error. =item properties() Returns the list of C<Net::Amazon::Property> objects which were found by the query. =item as_string() Dumps the content of the response. =item message() Returns the error message as a string in case an error occurred. In case several errors occurred, they're stringed together. Look up C<messages()> if you need them separated. =item messages() Returns all error messages for a response as a reference to an array of string messages. =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 ������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/lib/Net/Amazon.pm�������������������������������������������������������������������0000644�6663025�1271666�00000100762�12101065145�016330� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������################################################################### package Net::Amazon; ###################################################################### # Mike Schilli <m@perlmeister.com>, 2003 ###################################################################### use 5.006; use strict; use warnings; our $VERSION = '0.62'; our $WSDL_DATE = '2011-08-01'; our $Locale = 'us'; our @CANNED_RESPONSES = (); our $IS_CANNED = 0; use LWP::UserAgent; use HTTP::Message; use HTTP::Request::Common; use XML::Simple; use Data::Dumper; use URI; use Log::Log4perl qw(:easy get_logger); use Time::HiRes qw(usleep gettimeofday tv_interval); use Digest::SHA qw(hmac_sha256_base64); use URI::Escape qw(uri_escape); # Each key represents a search() type, and each value indicates which # Net::Amazon::Request:: class to use to handle it. use constant SEARCH_TYPE_CLASS_MAP => { actor => 'Actor', artist => 'Artist', all => 'All', author => 'Author', asin => 'ASIN', blended => 'Blended', browsenode => 'BrowseNode', director => 'Director', ean => 'EAN', exchange => 'Exchange', isbn => 'ISBN', keyword => 'Keyword', manufacturer => 'Manufacturer', musiclabel => 'MusicLabel', power => 'Power', publisher => 'Publisher', seller => 'Seller', similar => 'Similar', textstream => 'TextStream', title => 'Title', upc => 'UPC', }; ################################################## sub new { ################################################## my($class, %options) = @_; if(! exists $options{token}) { die "Mandatory paramter 'token' not defined"; } if(! exists $options{secret_key}) { die "Mandatory paramter 'secret_key' not defined"; } if(! exists $options{associate_tag}) { die "Mandatory paramter 'associate_tag' not defined"; } my $self = { strict => 1, response_dump => 0, rate_limit => 1.0, # 1 req/sec max_pages => 5, ua => LWP::UserAgent->new(), compress => 1, %options, }; # XXX: this has to be set as soon as possible to ensure # the validators pick up the correct locale. I don't # like the way this works, and need to think of a better # solution. if (exists $self->{locale}) { $Net::Amazon::Locale = $self->{locale}; } help_xml_simple_choose_a_parser(); bless $self, $class; } ################################################## sub search { ################################################## my($self, %params) = @_; foreach my $key ( keys %params ) { next unless ( my $class = SEARCH_TYPE_CLASS_MAP->{$key} ); return $self->_make_request($class, \%params); } # FIX? # This seems like it really should be a die() instead...this is # indicative of a programming problem. Generally speaking, it's # best to issue warnings from a module--you can't be sure that the # client has a stderr to begin with, or that he wants errors # spewed to it. warn "No Net::Amazon::Request type could be determined"; return undef; } ################################################## sub intl_url { ################################################## my($self, $url) = @_; if(! exists $self->{locale}) { return $url; } if (0) { } elsif ($self->{locale} eq "ca") { $url =~ s/\.com/.ca/; } elsif ($self->{locale} eq "de") { $url =~ s/\.com/.de/; } elsif ($self->{locale} eq "es") { $url =~ s/\.com/.es/; } elsif ($self->{locale} eq "fr") { $url =~ s/\.com/.fr/; } elsif ($self->{locale} eq "jp") { $url =~ s/\.com/.co.jp/; } elsif ($self->{locale} eq "it") { $url =~ s/\.com/.it/; } elsif ($self->{locale} eq "uk") { $url =~ s/\.com/.co.uk/; } return $url; } ################################################## sub request { ################################################## my($self, $request) = @_; my $resp_class = $request->response_class(); eval "require $resp_class;" or die "Cannot find '$resp_class'"; my $res = $resp_class->new(); my $url = URI->new($self->intl_url($request->amzn_xml_url())); my $page = (defined $request->page()) ? ($request->page() - 1) * $self->{max_pages} + 1 : 0; my $ref; my $max_pages_in_this_search = $self->{max_pages} + $page - 1; REQUEST: { my %params = $request->params(page => $page); $params{locale} = $self->{locale} if exists $self->{locale}; $url->query_form( 'Service' => 'AWSECommerceService', 'AWSAccessKeyId' => $self->{token}, 'Version' => $WSDL_DATE, 'AssociateTag' => $self->{associate_tag}, map { $_, $params{$_} } sort keys %params, ); # Signed requests will have different URLs, which breaks caching. # Get a cachable URL before signing the request. my $url_cachablestr = $url->as_string; # New signature for >=2009-03-31. Do not alter URL after this! $url = $self->_sign_request($url) if exists $self->{secret_key}; DEBUG(sub { "request: params = " . Dumper(\%params) . "\n"}); my $urlstr = $url->as_string; DEBUG(sub { "urlstr=" . $urlstr }); my $xml = fetch_url($self, $urlstr, $url_cachablestr, $res); if(!defined $xml) { return $res; } DEBUG(sub { "Received [ " . $xml . "]" }); # Let the response class parse the XML $ref = $res->xml_parse($xml); # DEBUG(sub { Data::Dumper::Dumper($ref) }); if(! defined $ref) { ERROR("Invalid XML"); $res->messages( [ "Invalid XML" ]); $res->status(""); return $res; } $res->current_page($ref, $page); $res->set_total_results($ref); my $rc = $res->is_page_error($ref); if ($rc == 0) { return $res; } elsif ($rc == -1) { last; } my $new_items = $res->xmlref_add($ref); DEBUG("Received valid XML ($new_items items)"); # Stop if we've fetched max_pages already if(defined $page && $max_pages_in_this_search <= $page) { DEBUG("Fetched max_pages ($max_pages_in_this_search) -- stopping"); last; } if($res->is_page_available($ref, $new_items, $page)) { $page++; redo REQUEST; } # We're gonna fall out of this loop here. } $res->status(1); # We have a valid response, so if TotalResults isn't set, # we most likely have a single response $res->total_results(1) unless defined $res->total_results(); return $res; } ################################################## sub fetch_url { ################################################## my($self, $url, $url_cachablestr, $res) = @_; my $max_retries = 2; INFO("Fetching $url"); if(@CANNED_RESPONSES) { $IS_CANNED = 1; INFO("Serving canned response (testing)"); return shift @CANNED_RESPONSES; } if(exists $self->{cache}) { my $resp = $self->{cache}->get($url_cachablestr); if(defined $resp) { INFO("Serving from cache"); return $resp; } INFO("Cache miss"); } my $ua = $self->{ua}; $ua->env_proxy(); my $resp; { # wait up to a second before the next request so # as to not violate Amazon's 1 query per second # rule (or the configured rate_limit). $self->pause() if $self->{strict}; { my $req = GET $url; $req->header("Accept-Encoding" => [ HTTP::Message::decodable() ]) if $self->{compress}; $resp = $ua->request($req); } $self->reset_timer() if $self->{strict}; if($resp->is_error) { # retry on 503 Service Unavailable errors if ($resp->code == 503) { if ($max_retries-- >= 0) { INFO("Temporary Amazon error 503, retrying"); redo; } else { INFO("Out of retries, giving up"); $res->status(""); $res->messages( [ "Too many temporary Amazon errors" ] ); return undef; } } else { $res->status(""); $res->messages( [ $resp->message ] ); return undef; } } if($self->{response_dump}) { my $dumpfile = "response-$self->{response_dump}.txt"; open FILE, ">$dumpfile" or die "Cannot open $dumpfile"; print FILE $resp->decoded_content(); close FILE; $self->{response_dump}++; } if($resp->decoded_content =~ /<Errors>/ && # Is this the same value of AWS4? $resp->decoded_content =~ /Please retry/i) { if($max_retries-- >= 0) { INFO("Temporary Amazon error, retrying"); redo; } else { INFO("Out of retries, giving up"); $res->status(""); $res->messages( [ "Too many temporary Amazon errors" ] ); return undef; } } } if(exists $self->{cache}) { $self->{cache}->set($url_cachablestr, $resp->decoded_content()); } return $resp->decoded_content(); } ################################################## # Poor man's Class::Struct ################################################## sub make_accessor { ################################################## my($package, $name) = @_; no strict qw(refs); my $code = <<EOT; *{"$package\\::$name"} = sub { my(\$self, \$value) = \@_; if(defined \$value) { \$self->{$name} = \$value; } if(exists \$self->{$name}) { return (\$self->{$name}); } else { return ""; } } EOT if(! defined *{"$package\::$name"}) { eval $code or die "$@"; } } # An accessor for backward compatability with AWS3. ################################################## sub make_compatible_accessor{ ################################################## my($package, $old_name, $new_name) = @_; no strict qw(refs); my $code = <<EOT; *{"$package\\::$old_name"} = sub { my(\$self, \$value) = \@_; if(defined \$value) { \$self->{$new_name} = \$value; } if(exists \$self->{$new_name}) { return (\$self->{$new_name}); } else { return ""; } } EOT if(! defined *{"$package\::$old_name"}) { eval $code or die "$@"; } } ################################################## # Make accessors for arrays ################################################## sub make_array_accessor { ################################################## my($package, $name) = @_; no strict qw(refs); my $code = <<EOT; *{"$package\\::$name"} = sub { my(\$self, \$nameref) = \@_; if(defined \$nameref) { if(ref \$nameref eq "ARRAY") { \$self->{$name} = \$nameref; } else { \$self->{$name} = [\$nameref]; } } # Return a list if(exists \$self->{$name} and ref \$self->{$name} eq "ARRAY") { return \@{\$self->{$name}}; } return undef; } EOT if(! defined *{"$package\::$name"}) { eval $code or die "$@"; } } ################################################## sub walk_hash_ref { ################################################## my ($package, $href, $aref) = @_; return $href if scalar(@$aref) == 0; my @a; push @a, $_ for @$aref; my $tail = pop @a; my $ref = $href; for my $part (@a) { $ref = $ref->{$part}; } return $ref->{$tail}; } ################################################## sub artist { ################################################## my($self, $nameref) = @_; # Only return the first artist return ($self->artists($nameref))[0]; } ################################################## sub version { ################################################## my($self) = @_; return $self->{Version}; } ################################################## sub current_page { ################################################## my($self, $ref, $page) = @_; if(exists $ref->{Items}->{TotalPages}) { INFO("Page $page/$ref->{Items}->{TotalPages}"); } } ################################################## sub set_total_results { ################################################## my($self, $ref) = @_; if(exists $ref->{Items}->{TotalResults}) { $self->total_results( $ref->{Items}->{TotalResults} ); } } ################################################## sub is_page_error { ################################################## my($self, $ref) = @_; if(exists $ref->{Items}->{Request}->{Errors}) { my $errref = $ref->{Items}->{Request}->{Errors}; if (ref($errref->{Error}) eq "ARRAY") { my @errors; for my $e (@{$errref->{Error}}) { push @errors, $e->{Message}; } # multiple errors, set arrary ref $self->messages( \@errors ); } else { # single error, create array $self->messages( [ $errref->{Error}->{Message} ] ); } ERROR("Fetch Error: " . $self->message ); $self->status(""); return 0; } return 1; } ################################################## sub is_page_available { ################################################## my($self, $ref, $new_items, $page) = @_; if(exists $ref->{Items}->{TotalPages} and $ref->{Items}->{TotalPages} > $page and $IS_CANNED ne 1) { DEBUG("Page $page of $ref->{Items}->{TotalPages} fetched - continuing"); return 1; } return 0; } ################################################## sub xmlref_add { ################################################## my($self, $xmlref) = @_; my $nof_items_added = 0; return $nof_items_added unless defined $xmlref; # Push a nested hash structure, retrieved via XMLSimple, onto the # object's internal 'xmlref' entry, which holds a ref to an array, # whichs elements are refs to hashes holding an item's attributes # (like OurPrice etc.) #DEBUG("xmlref_add ", Data::Dumper::Dumper($xmlref)); unless(ref($self->{xmlref}) eq "HASH" && ref($self->{xmlref}->{Items}) eq "ARRAY") { $self->{xmlref}->{Items} = []; } if(ref($xmlref->{Items}->{Item}) eq "ARRAY") { push @{$self->{xmlref}->{Items}}, @{$xmlref->{Items}->{Item}}; $nof_items_added = scalar @{$xmlref->{Items}->{Item}}; } else { if (exists $xmlref->{Items}->{Item}->{ItemAttributes}) { push @{$self->{xmlref}->{Items}}, $xmlref->{Items}->{Item}; $nof_items_added = 1; } } DEBUG("xmlref_add (after):", Data::Dumper::Dumper($self)); return $nof_items_added; } ################################################## sub help_xml_simple_choose_a_parser { ################################################## eval "require XML::Parser"; unless($@) { $XML::Simple::PREFERRED_PARSER = "XML::Parser"; return; } eval "require XML::SAX::PurePerl"; unless($@) { $XML::Simple::PREFERRED_PARSER = "XML::SAX::PurePerl"; return; } } ################################################## # This timer makes sure we don't query Amazon more # than once a second. ################################################## sub reset_timer { ################################################## my $self = shift; $self->{t0} = [gettimeofday]; } ################################################## # Pause for up to a second if necessary. ################################################## sub pause { ################################################## my $self = shift; return unless ($self->{t0}); my $t1 = [gettimeofday]; my $dur = (1.0/$self->{rate_limit} - tv_interval($self->{t0}, $t1)) * 1000000; if($dur > 0) { # Use a pseudo subclass for the logger, since the app # might not want to log that as 'ERROR'. Log4perl's # inheritance mechanism makes sure it does the right # thing for the current class. my $logger = get_logger(__PACKAGE__ . "::RateLimit"); $logger->error("Ratelimiting: Sleeping $dur microseconds"); usleep($dur); } } ## ## 'PRIVATE' METHODS ## # $self->_make_request( TYPE, PARAMS ) # # Takes a TYPE that corresponds to a Net::Amazon::Request # class, require()s that class, instantiates it, and returns # the result of that instance's request() method. # sub _make_request { my ($self, $type, $params) = @_; my $class = "Net::Amazon::Request::$type"; # XXX: change me back, this makes debugging a little difficult. eval "require $class"; my $req = $class->new(%{$params}); return $self->request($req); } # $self->_sign_request( URI ) # # Takes a URI object that corresponds to a Net::Amazon::Request # adds the required Timestamp and Signature parameters, and returns it # See http://docs.amazonwebservices.com/AWSECommerceService/2009-03-31/DG/Query_QueryAuth.html sub _sign_request { my ($self,$uri) = @_; return $uri unless exists $self->{secret_key}; # This assumes no duplicated keys. Safe assumption? my %query = $uri->query_form; my @now = gmtime; $query{Timestamp} ||= sprintf('%04d-%02d-%02dT%02d:%02d:%02dZ',$now[5]+1900,$now[4]+1,@now[3,2,1,0]); my $qstring = join '&', map {"$_=". uri_escape($query{$_},"^A-Za-z0-9\-_.~")} sort keys %query; # Use chr(10), not "\n" which varies by platform my $signme = join chr(10),"GET",$uri->host,$uri->path,$qstring; my $sig = hmac_sha256_base64($signme, $self->{secret_key}); # Digest does not properly pad b64 strings $sig .= '=' while length($sig) % 4; $sig = uri_escape($sig,"^A-Za-z0-9\-_.~"); $qstring .= "&Signature=$sig"; $uri->query( $qstring ); return $uri; } 1; __END__ =head1 NAME Net::Amazon - Framework for accessing amazon.com via REST =head1 SYNOPSIS use Net::Amazon; my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY'); # Get a request object my $response = $ua->search(asin => '0201360683'); if($response->is_success()) { print $response->as_string(), "\n"; } else { print "Error: ", $response->message(), "\n"; } =head1 ABSTRACT Net::Amazon provides an object-oriented interface to amazon.com's REST interface. This way it's possible to create applications using Amazon's vast amount of data via a functional interface, without having to worry about the underlying communication mechanism. =head1 DESCRIPTION C<Net::Amazon> works very much like C<LWP>: First you define a useragent like my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', max_pages => 3, ); which you pass your personal amazon developer's token (can be obtained from L<http://amazon.com/soap>) and (optionally) the maximum number of result pages the agent is going to request from Amazon in case all results don't fit on a single page (typically holding 20 items). Note that each new page requires a minimum delay of 1 second to comply with Amazon's one-query-per-second policy. According to the different search methods on Amazon, there's a bunch of different request types in C<Net::Amazon>. The user agent's convenience method C<search()> triggers different request objects, depending on which parameters you pass to it: =over 4 =item C<< $ua->search(asin => "0201360683") >> The C<asin> parameter has Net::Amazon search for an item with the specified ASIN. If the specified value is an arrayref instead of a single scalar, like in $ua->search(asin => ["0201360683", "0596005083"]) then a search for multiple ASINs is performed, returning a list of results. =item C<< $ua->search(actor => "Adam Sandler") >> The C<actor> parameter has the user agent search for items created by the specified actor. Can return many results. =item C<< $ua->search(artist => "Rolling Stones") >> The C<artist> parameter has the user agent search for items created by the specified artist. Can return many results. =item C<< $ua->search(author => "Robert Jordan") >> The C<author> parameter has the user agent search for items created by the specified author. Can return many results. =item C<< $ua->search(browsenode=>"4025", mode=>"books" [, keywords=>"perl"]) >> Returns a list of items by category ID (node). For example node "4025" is the CGI books category. You can add a keywords parameter to filter the results by that keyword. =item C<< $ua->search(exchange => 'Y04Y3424291Y2398445') >> Returns an item offered by a third-party seller. The item is referenced by the so-called I<exchange ID>. =item C<< $ua->search(keyword => "perl xml", mode => "books") >> Search by keyword, mandatory parameters C<keyword> and C<mode>. Can return many results. DETAILS Net::Amazon is based on Amazon Web Services version 4, and uses WSDL version 2011-08-01. =head1 CACHING Responses returned by Amazon's web service can be cached locally. C<Net::Amazon>'s C<new> method accepts a reference to a C<Cache> object. C<Cache> (or one of its companions like C<Cache::Memory>, C<Cache::File>, etc.) can be downloaded from CPAN, please check their documentation for details. In fact, any other type of cache implementation will do as well, see the requirements below. Here's an example utilizing a file cache which causes C<Net::Amazon> to cache responses for 30 minutes: use Cache::File; my $cache = Cache::File->new( cache_root => '/tmp/mycache', default_expires => '30 min', ); my $ua = Net::Amazon->new( token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', cache => $cache, ); C<Net::Amazon> uses I<positive> caching only, errors won't be cached. Erroneous requests will be sent to Amazon every time. Positive cache entries are keyed by the full URL used internally by requests submitted to Amazon. Caching isn't limited to the C<Cache> class. Any cache object which adheres to the following interface can be used: # Set a cache value $cache->set($key, $value); # Return a cached value, 'undef' if it doesn't exist $cache->get($key); =head1 COMPRESSION By default C<Net::Amazon> will attempt to use HTTP compression if the L<Compress::Zlib> module is available. Pass C<< compress => 0 >> to C<< ->new() >> to disable this feature. =head1 PROXY SETTINGS C<Net::Amazon> uses C<LWP::UserAgent> under the hood to send web requests to Amazon's web site. If you're in an environment where all Web traffic goes through a proxy, there's two ways to configure that. First, C<Net::Amazon> picks up proxy settings from environment variables: export http_proxy=http://proxy.my.place:8080 in the surrounding shell or setting $ENV{http_proxy} = "http://proxy.my.place:8080"; in your Perl script will route all requests through the specified proxy. Secondly, you can pass a user agent instance to Net::Amazon's constructor: use Net::Amazon; use LWP::UserAgent; my $ua = LWP::UserAgent->new(); my $na = Net::Amazon->new( ua => $ua, associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', ); # ... This way, you can configure C<$ua> up front before Net::Amazon will use it. =head1 DEBUGGING If something's going wrong and you want more verbosity, just bump up C<Net::Amazon>'s logging level. C<Net::Amazon> comes with C<Log::Log4perl> statements embedded, which are disabled by default. However, if you initialize C<Log::Log4perl>, e.g. like use Net::Amazon; use Log::Log4perl qw(:easy); Log::Log4perl->easy_init($DEBUG); my Net::Amazon->new(); # ... you'll see what's going on behind the scenes, what URLs the module is requesting from Amazon and so forth. Log::Log4perl allows all kinds of fancy stuff, like writing to a file or enabling verbosity in certain parts only -- check http://log4perl.sourceforge.net for details. =head1 LIVE TESTING Results returned by Amazon can be incomplete or simply wrong at times, due to their "best effort" design of the service. This is why the test suite that comes with this module has been changed to perform its test cases against canned data. If you want to perform the tests against the live Amazon servers instead, just set the environment variable NET_AMAZON_LIVE_TESTS=1 =head1 WHY ISN'T THERE SUPPORT FOR METHOD XYZ? Because nobody wrote it yet. If Net::Amazon doesn't yet support a method advertised on Amazon's web service, you could help us out. Net::Amazon has been designed to be expanded over time, usually it only takes a couple of lines to support a new method, the rest is done via inheritance within Net::Amazon. Here's the basic plot: =over 4 =item * Get Net::Amazon from CVS. Use # (Just hit enter when prompted for a password) cvs -d:pserver:anonymous@cvs.net-amazon.sourceforge.net:/cvsroot/net-amazon login cvs -z3 -d:pserver:anonymous@cvs.net-amazon.sourceforge.net:/cvsroot/net-amazon co Net-Amazon If this doesn't work, just use the latest distribution from net-amazon.sourceforge.net. =item * Write a new Net::Amazon::Request::XYZ package, start with this template ###################################### package Net::Amazon::Request::XYZ; ###################################### use base qw(Net::Amazon::Request); ###################################### sub new { ###################################### my($class, %options) = @_; if(!exists $options{XYZ_option}) { die "Mandatory parameter 'XYZ_option' not defined"; } my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } and add documentation. Then, create a new Net::Amazon::Response::XYZ module: ############################## package Net::Amazon::Response; ############################## use base qw(Net::Amazon::Response); use Net::Amazon::Property; ############################## sub new { ############################## my($class, %options) = @_; my $self = $class->SUPER::new(%options); bless $self, $class; # reconsecrate } and also add documentation to it. Then, add the line use Net::Amazon::Request::XYZ; to Net/Amazon.pm. =back And that's it! Again, don't forget the I<add documentation> part. Modules without documentation are of no use to anybody but yourself. Check out the different Net::Amazon::Request::* and Net::Amazon::Response modules in the distribution if you need to adapt your new module to fulfil any special needs, like a different Amazon URL or a different way to handle the as_string() method. Also, post and problems you might encounter to the mailing list, we're gonna help you out. If possible, provide a test case for your extension. When finished, send a patch to the mailing list at net-amazon-devel@lists.sourceforge.net and if it works, I'll accept it and will work it into the main distribution. Your name will show up in the contributor's list below (unless you tell me otherwise). =head2 SAMPLE SCRIPTS There's a number of useful scripts in the distribution's eg/ directory. Take C<power> for example, written by Martin Streicher E<lt>martin.streicher@apress.comE<gt>: I lets you perform a I<power search> using Amazon's query language. To search for all books written by Randal Schwartz about Perl, call this from the command line: power 'author: schwartz subject: perl' Note that you need to quote the query string to pass it as one argument to C<power>. If a power search returns more results than you want to process at a time, just limit the number of pages, telling C<power> which page to start at (C<-s>) and which one to finish with (C<-f>). Here's a search for all books on the subject C<computer>, limited to the first 10 pages: power -s 1 -f 10 'subject: computer' Check out the script C<power> in eg/ for more options. =head2 HOW TO SEND ME PATCHES If you want me to include your modification or enhancement in the distribution of Net::Amazon, please do the following: =over 4 =item * Work off the latest CVS version. Here's the steps to get it: CVSROOT=:pserver:anonymous@cvs.net-amazon.sourceforge.net:/cvsroot/net-amazon export CVSROOT cvs login (just hit Enter) cvs co Net-Amazon This will create a new C<Net-Amazon> directory with the latest development version of C<Net::Amazon> on your local machine. =item * Apply your changes to this development tree. =item * Run a diff between the tree and your changes it in this way: cd Net-Amazon cvs diff -Nau >patch_to_christopher.txt =item * Email me C<patch_to_christopher.txt>. If your patch works (and you've included test cases and documentation), I'll apply it on the spot. =back =head1 INSTALLATION C<Net::Amazon> depends on Log::Log4perl, which can be pulled from CPAN by simply saying perl -MCPAN -eshell 'install Log::Log4perl' Also, it needs LWP::UserAgent and XML::Simple 2.x, which can be obtained in a similar way. Once all dependencies have been resolved, C<Net::Amazon> installs with the typical sequence perl Makefile.PL make make test make install Make sure you're connected to the Internet while running C<make test> because it will actually contact amazon.com and run a couple of live tests. The module's distribution tarball and documentation are available at http://perlmeister.com/devel/#amzn and on CPAN. =head1 SEE ALSO The following modules play well within the C<Net::Amazon> framework: =over 4 =item C<Net::Amazon::RemoteCart> by David Emery E<lt>dave@skiddlydee.comE<gt> provides a complete API for creating Amazon shopping carts on a local site, managing them and finally submitting them to Amazon for checkout. It is available on CPAN. =back =head1 CONTACT The C<Net::Amazon> project's home page is hosted on http://net-amazon.sourceforge.net where you can find documentation, news and the latest development and stable releases for download. If you have questions about how to use C<Net::Amazon>, want to report a bug or just participate in its development, please send a message to the mailing list net-amazon-devel@lists.sourceforge.net The source code has moved from sourceforge.net to github.com. The git URL is git://github.com/boumenot/p5-Net-Amazon.git The hope is that github.com makes collaboration much easier, and git is a much more modern SCM tool. =head1 AUTHOR Mike Schilli, E<lt>na@perlmeister.comE<gt> (Please contact me via the mailing list: net-amazon-devel@lists.sourceforge.net ) Maintainers: Christopher Boumenot, E<lt>boumenot+na@gmail.comE<gt> Contributors (thanks y'all!): Andy Grundman <andy@hybridized.org> Barnaby Claydon <bclaydon@perseus.com> Batara Kesuma <bkesuma@gaijinweb.com> Bill Fitzpatrick Brian <brianbrian@gmail.com> Brian Hirt <bhirt@mobygames.com> Dan Kreft <dan@kreft.net> Dan Sully <daniel@electricrain.com> Dave Cardwell <http://davecardwell.co.uk/> Jackie Hamilton <kira@cgi101.com> Konstantin Gredeskoul <kig@get.topica.com> Lance Cleveland <lancec@proactivewm.com> Martha Greenberg <marthag@mit.edu> Martin Streicher <martin.streicher@apress.com> Mike Evron <evronm@dtcinc.net> Padraic Renaghan <padraic@renaghan.com> rayg <rayg@varchars.com> Robert Graff <rgraff@workingdemo.com> Robert Rothenberg <wlkngowl@i-2000.com> Steve Rushe <steve@deeden.co.uk> Tatsuhiko Miyagawa <miyagawa@livedoor.jp> Tony Bowden <tony@kasei.com> Vince Veselosky =head1 COPYRIGHT AND LICENSE Copyright 2003, 2004 by Mike Schilli E<lt>na@perlmeister.comE<gt> Copyright 2007-2009 by Christopher Boumenot E<lt>boumenot+na@gmail.comE<gt> This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut ��������������Net-Amazon-0.62/t/����������������������������������������������������������������������������������0000755�6663025�1271666�00000000000�12101066651�013511� 5����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/t/003UPC.t��������������������������������������������������������������������������0000644�6663025�1271666�00000005217�11652646135�014570� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 1.t' ######################### # change 'tests => 1' to 'tests => last_test_to_print'; use warnings; use strict; use Test::More tests => 19; BEGIN { use_ok('Net::Amazon') }; use Net::Amazon::Request::UPC; use Net::Amazon::Response::UPC; use File::Spec; my $CANNED = "canned"; $CANNED = File::Spec->catfile("t", "canned") unless -d $CANNED; #Only for debugging #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); ###################################################################### # Successful UPC fetch ###################################################################### canned("upc_zwan.xml"); my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', ); my $req = Net::Amazon::Request::UPC->new( upc => '093624843627', mode => 'music', ); # Response is of type Net::Amazon::Response::UPC my $resp = $ua->request($req); ok($resp->is_success(), "Successful fetch"); like($resp->as_string(), qr#Mary Star of the Sea#, "Found Zwan"); like($resp->as_string(), qr#Zwan#, "Found Zwan"); ###################################################################### # Parameters ###################################################################### my $p = ($resp->properties)[0]; is($p->artist(), "Zwan", "Artist is Zwan"); is($p->album(), "Mary Star of the Sea", "Album is Mary Star of the Sea"); is($p->year(), "2003", "Year is 2003"); is($p->label(), "Reprise / Wea", "Label is Reprise / Wea"); is($p->studio(), "Reprise / Wea", "Studio is Reprise / Wea"); is($p->ean(), "0093624843627", "EAN is 0093624843627"); is($p->NumMedia(), 1, "NumMedia is 1"); is($p->nummedia(), 1, "nummedia is 1"); is($p->Media(), "Audio CD", "Media is Audio CD"); is($p->media(), "Audio CD", "media is Audio CD"); is($p->binding(), "Audio CD", "binding is Audio CD"); is($p->Binding(), "Audio CD", "Binding is Audio CD"); is($p->upc(), "093624843627", "UPC is 093624843627"); is($p->ASIN(), "B00007M84Q", "ASIN is B00007M84Q"); is($p->Asin(), "B00007M84Q", "Asin is B00007M84Q"); ###################################################################### # handle canned responses ###################################################################### sub canned { my($file) = @_; if(! exists $ENV{NET_AMAZON_LIVE_TESTS} ) { $file = File::Spec->catfile($CANNED, $file); open FILE, "<$file" or die "Cannot open $file"; my $data = join '', <FILE>; close FILE; push @Net::Amazon::CANNED_RESPONSES, $data; } } ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/t/canned/���������������������������������������������������������������������������0000755�6663025�1271666�00000000000�12101066651�014741� 5����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Net-Amazon-0.62/t/canned/publisher.xml��������������������������������������������������������������0000644�6663025�1271666�00000025117�11652645273�017503� 0����������������������������������������������������������������������������������������������������ustar �boumenot������������������������pg1319368��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<?xml version="1.0"?> <ItemSearchResponse xmlns="http://webservices.amazon.com/AWSECommerceService/2011-08-01"> <Items> <TotalResults>5</TotalResults> <TotalPages>1</TotalPages> <MoreSearchResultsUrl>http://www.amazon.com/gp/redirect.html?camp=2025&creative=386001&location=http%3A%2F%2Fwww.amazon.com%2Fgp%2Fsearch%3Fkeywords%3DDisney%2BHyperion%2BBooks%2Bfor%2BChildren%26url%3Dsearch-alias%253Dstripbooks&linkCode=xm2&tag=blogdivebombo-20&SubscriptionId=1V5JRJ4JQCSHB3NGG902</MoreSearchResultsUrl> <Item> <ASIN>1423101472</ASIN> <SalesRank>5491</SalesRank> <ItemAttributes> <Author>Rick Riordan</Author> <Binding>Hardcover</Binding> <Brand>Books</Brand> <EAN>9781423101475</EAN> <EANList> <EANListElement>9781423101475</EANListElement> </EANList> <Edition>1St Edition</Edition> <Feature>ISBN13: 9781423101475</Feature> <Feature>Condition: New</Feature> <Feature>Notes: BRAND NEW FROM PUBLISHER! 100% Satisfaction Guarantee. Tracking provided on most orders. Buy with Confidence! Millions of books sold!</Feature> <ISBN>1423101472</ISBN> <ItemDimensions> <Height Units="hundredths-inches">126</Height> <Length Units="hundredths-inches">837</Length> <Weight Units="hundredths-pounds">123</Weight> <Width Units="hundredths-inches">584</Width> </ItemDimensions> <Label>Disney Hyperion Books for Children</Label> <Languages> <Language> <Name>English</Name> <Type>Unknown</Type> </Language> <Language> <Name>English</Name> <Type>Original Language</Type> </Language> <Language> <Name>English</Name> <Type>Published</Type> </Language> </Languages> <ListPrice> <Amount>1799</Amount> <CurrencyCode>USD</CurrencyCode> <FormattedPrice>$17.99</FormattedPrice> </ListPrice> <Manufacturer>Disney Hyperion Books for Children</Manufacturer> <MPN>1423101472</MPN> <NumberOfItems>1</NumberOfItems> <NumberOfPages>400</NumberOfPages> <PartNumber>1423101472</PartNumber> <ProductGroup>Book</ProductGroup> <ProductTypeName>ABIS_BOOK</ProductTypeName> <PublicationDate>2009-05-05</PublicationDate> <Publisher>Disney Hyperion Books for Children</Publisher> <ReleaseDate>2009-05-05</ReleaseDate> <SKU>1101773436</SKU> <Studio>Disney Hyperion Books for Children</Studio> <Title>The Last Olympian (Percy Jackson & the Olympians, Book 5) 500 USD $5.00 9 USD $0.09 499 USD $4.99 99 258 19 0 1 1 http://www.amazon.com/gp/offer-listing/1423101472%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D1423101472 New 7aVoI8W0Lbja6CzsjIR4CSZVhUsGIKbe8vHn%2B%2FVdU5PGAiiRX%2FcD9uncUKo5R%2Bl73jbFjn7pyc2JjLOI2OjIAMbZlkQ%2BBCCg%2Fjvbje8EMUU%3D 1022 USD $10.22 777 USD $7.77 43 Usually ships in 24 hours now 0 0 1 B0030HJGSM 337505 Hardcover Disney Hyperion Books for Children Book BOOKS_1973_AND_LATER 2009 Disney Hyperion Books for Children B0030HJGSM-GOOD-5 Disney Hyperion Books for Children by Rick Riordan The Last Olympian 927 USD $9.27 424 USD $4.24 11 13 0 0 0 0 0 B003OIRY90 3997741 R. (Author) Riordan Hardcover Disney Hyperion Books for Children Book BOOKS_1973_AND_LATER 2009 Disney Hyperion Books for Children B003OIRY90-GOOD-CHK-6 Disney Hyperion Books for Children TheLastOlympian(Percy Jackson and Olympians, Book 5) (Hardcover)(2009)Rick Riordan's 910 USD $9.10 873 USD $8.73 10 8 0 0 0 0 0 B0013FK6AA 7771648 Unknown Binding Hyperion Books for Children / Disney Editions Book BOOKS_1973_AND_LATER 2006-01-01 Hyperion Books for Children / Disney Editions Hyperion Books for Children / Disney Editions Peter and the Shadow Thieves 200 USD $2.00 0 3 0 0 0 0 0 1428737642 Dave Barry Hardcover 9781428737648 9781428737648 1428737642 English Unknown English Published Disney Editions/Hyperion Books for Children 1 166 Book ABIS_BOOK 2007-01 Disney Editions/Hyperion Books for Children Disney Editions/Hyperion Books for Children Cave of the Dark Wind (Never Land Books) 499 USD $4.99 2 0 0 0 0 0 0 Net-Amazon-0.62/t/canned/asin_pp.xml0000644666302512716660000000466611652645235017143 0ustar boumenotpg1319368 0201360683 2831243 Michael Schilli Paperback AL07005145 9780201360684 9780201360684 0201360683 English Unknown English Original Language English Published 3999 USD $39.99 Addison-Wesley Professional 1 464 Book ABIS_BOOK 1998-12-16 Addison-Wesley Professional 3_0201360683 Addison-Wesley Professional Perl Power!: A JumpStart Guide to Programming with Perl 5 200 USD $2.00 80 USD $0.80 11 17 0 0 0 0 0 Net-Amazon-0.62/t/canned/power_sorted.xml0000644666302512716660000003312111652645272020213 0ustar boumenotpg1319368 6 1 http://www.amazon.com/gp/redirect.html?camp=2025&creative=386001&location=http%3A%2F%2Fwww.amazon.com%2Fgp%2Fsearch%3Furl%3Dsearch-alias%253Dstripbooks&linkCode=xm2&tag=blogdivebombo-20&SubscriptionId=1V5JRJ4JQCSHB3NGG902 0596001320 794130 Tom Phoenix Randal L. Schwartz Paperback AL10031836 9780596001322 9780596001322 3rd 0596001320 English Unknown English Original Language English Published 3495 USD $34.95 O'Reilly Media 1 336 Book ABIS_BOOK 2001-07-15 O'Reilly Media GRP18980783 O'Reilly Media Learning Perl, Third Edition 339 USD $3.39 2 USD $0.02 26 99 0 0 0 0 0 0596101058 299712 Randal L. Schwartz Tom Phoenix brian d foy Paperback 9780596101053 9780596101053 Fourth Edition 0596101058 English Unknown English Original Language English Published 3995 USD $39.95 O'Reilly Media 1 312 Book ABIS_BOOK 2005-07-21 O'Reilly Media 2005-07-01 VIB0596101058 O'Reilly Media Learning Perl, Fourth Edition 449 USD $4.49 102 USD $1.02 25 42 0 0 0 0 0 0596004788 620216 Randal L. Schwartz Tom Phoenix Paperback AL10032013 9780596004781 0636920004783 9780596004781 1 0596004788 1 English Unknown English Original Language English Published 3495 USD $34.95 O'Reilly Media 1 224 Book ABIS_BOOK 2003-06-16 O'Reilly Media mon0000101017 O'Reilly Media Learning Perl Objects, References, and Modules 636920004783 636920004783 2995 USD $29.95 328 USD $3.28 6 22 0 0 0 0 0 B0026OR3NK 17445 Brian d foy Randal L. Schwartz Tom Phoenix Kindle Edition 5 9780596550424 Kindle eBook English Published 3199 USD $31.99 O'Reilly Media 1 352 eBooks ABIS_EBOOKS 2009-03-05 O'Reilly Media 2009-03-05 O'Reilly Media Learning Perl B0026OR38K 133112 Brian d foy Randal L. Schwartz Tom Phoenix Kindle Edition 2nd 9780596107833 Kindle eBook English Published 3199 USD $31.99 O'Reilly Media 1 278 eBooks ABIS_EBOOKS 2009-02-09 O'Reilly Media 2009-02-09 O'Reilly Media Intermediate Perl 1449303587 9187 Randal L. Schwartz brian d foy Tom Phoenix Paperback 9781449303587 9781449303587 Sixth Edition 1449303587 1 English Unknown English Original Language English Published 3999 USD $39.99 O'Reilly Media 1 390 Book ABIS_BOOK 2011-07-01 O'Reilly Media A13410363 O'Reilly Media Learning Perl 970 USD $9.70 2199 USD $21.99 2099 USD $20.99 36 14 0 0 1 1 http://www.amazon.com/gp/offer-listing/1449303587%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D1449303587 New UX5FqnIPaNpdK%2FiraUUYAkYqSChjLhGGVQjailwz4sG3ifHcEPPEDx9v03Yi%2FX40TYkFGMqde1ics6lAkhqrnk8yQhKpnCATxM0QH%2FYXOU4q3hQRWnay8w%3D%3D 2399 USD $23.99 1600 USD $16.00 40 Usually ships in 24 hours now 0 0 1 Net-Amazon-0.62/t/canned/upc_zwan.xml0000644666302512716660000001156211652645277017337 0ustar boumenotpg1319368 B00007M84Q 60843 Zwan Audio CD 161 936248436-2 9362-48436-2 0093624843627 0093624843627 0 21 English Original Language 1396 USD $13.96 Reprise / Wea 9362-48436-2 1 1 9362-48436-2 Music ABIS_MUSIC 2003-02-07 Reprise / Wea 2003-01-28 112172/10182653/10481862/00000002 Reprise / Wea Mary Star of the Sea 093624843627 093624843627 175 USD $1.75 1 USD $0.01 999 USD $9.99 38 156 9 0 1 1 http://www.amazon.com/gp/offer-listing/B00007M84Q%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB00007M84Q New XLuoRq4Et%2FA81njR5kZuZO4Y5%2Ff036JkqPM4vEWz44eI6G6Zf8JjRX8OjSmCl2g7wr1yoUlQYbTf815%2FwkzYs1UjWvV2IiTdehH5R4YTwfY%3D 1124 USD $11.24 272 USD $2.72 19 Usually ships in 24 hours now 24 24 1 Lyric Settle Down Declarations Of Faith Honestly El Sol Of A Broken Heart Ride A Black Swan Heartsong Endless Summer Baby Let's Rock! Yeah! Desire Jesus,I / Mary Star Of The Sea Come With Me Net-Amazon-0.62/t/canned/isbn-de.xml0000644666302512716660000000302511253707751017016 0ustar boumenotpg1319368 357000922X 183814 Renate Dorrestein Gebundene Ausgabe Hanni Ehlers 9783570009222 357000922X Bertelsmann, München 314 529 Book 2006-08 Bertelsmann, München Bertelsmann, München Der Ausflug 1995 EUR EUR 19,95 995 EUR EUR 9,95 39 4 0 0 Net-Amazon-0.62/t/canned/artist.xml0000644666302512716660000004611311652645232017006 0ustar boumenotpg1319368 9 1 http://www.amazon.com/gp/redirect.html?camp=2025&creative=386001&location=http%3A%2F%2Fwww.amazon.com%2Fgp%2Fsearch%3Fkeywords%3DZwan%26url%3Dsearch-alias%253Dpopular&linkCode=xm2&tag=blogdivebombo-20&SubscriptionId=1V5JRJ4JQCSHB3NGG902 B00007M84Q 60843 Zwan Audio CD 161 936248436-2 9362-48436-2 0093624843627 0093624843627 0 21 English Original Language 1396 USD $13.96 Reprise / Wea 9362-48436-2 1 1 9362-48436-2 Music ABIS_MUSIC 2003-02-07 Reprise / Wea 2003-01-28 112172/10182653/10481862/00000002 Reprise / Wea Mary Star of the Sea 093624843627 093624843627 175 USD $1.75 1 USD $0.01 999 USD $9.99 38 156 9 0 1 1 http://www.amazon.com/gp/offer-listing/B00007M84Q%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB00007M84Q New XLuoRq4Et%2FA81njR5kZuZO4Y5%2Ff036JkqPM4vEWz44eI6G6Zf8JjRX8OjSmCl2g7wr1yoUlQYbTf815%2FwkzYs1UjWvV2IiTdehH5R4YTwfY%3D 1124 USD $11.24 272 USD $2.72 19 Usually ships in 24 hours now 24 24 1 Lyric Settle Down Declarations Of Faith Honestly El Sol Of A Broken Heart Ride A Black Swan Heartsong Endless Summer Baby Let's Rock! Yeah! Desire Jesus,I / Mary Star Of The Sea Come With Me B000084HC0 112896 Zwan Audio CD 0093624260929 0093624260929 Single Import 1299 USD $12.99 Import [Generic] 1 Music ABIS_MUSIC Import [Generic] 2004-04-08 JUL11D04-223438 Import [Generic] Honestly 093624260929 093624260929 1999 USD $19.99 999 USD $9.99 7 12 0 0 0 0 0 Honestly Number Of The Beast Freedom Aint What It Used To Be B00008K50F 428280 Zwan Audio CD 0054391667120 0054391667120 Single Import 1299 USD $12.99 Import [Generic] 1 Music ABIS_MUSIC Import [Generic] 2003-04-25 UB00008K50F Import [Generic] Honestly / Number of the Beast 054391667120 054391667120 2487 USD $24.87 0 4 0 0 0 0 0 Honestly Number of the Beast B00009N1U9 437594 Zwan Audio CD 0093624262428 0093624262428 Single Import 1299 USD $12.99 Wea International 1 Music ABIS_MUSIC Wea International 2003-06-03 UB00009N1U9 Wea International Lyric / Nobody Cept You / Autumn Leaves 093624262428 093624262428 1665 USD $16.65 0 5 0 0 0 0 0 Lyric Nobody 'cept You Autumn Leaves B000084T5E 740182 Zwan Audio CD 0093624843610 0093624843610 23649 USD $236.49 Reprise 2 Music ABIS_MUSIC 2003 Reprise Reprise Mary Star of the Sea [CD & DVD] 093624843610 093624843610 4995 USD $49.95 1985 USD $19.85 1 1 0 0 0 0 0 B001CL8DWI Klubbheads Koen Groeneveld Addy van der Zwan Ralphi Rosario Feat. Linda Clifford Avant Garde Bobby Summer Monsta Lock & Burns Xtra Large Harry "Choo Choo" Romero Audio CD 0128922ere Klubbheads Koen Groeneveld Addy van der Zwan Mike & Charlie TaleSpin Blaze Feat. Palmer Brown System F Feat. Marc Almond Mr. Niceguy Mory Klein Blank & Jones CD Double CD Import English Unknown Edel 1 Music MUSIC_POPULAR 2001 Edel Edel Update Desire 2.0 mixed by Klubbheads 1940 USD $19.40 0 1 0 0 0 0 0 B00007M8SN ZWAN Audio CD 4943674040780 4943674040780 0 WARNER MUSIC JAPAN 1 Music ABIS_MUSIC 2003-01-29 WARNER MUSIC JAPAN WPCR-11469 01-0707-2038 WARNER MUSIC JAPAN MARY STAR OF THE SEA 3780 USD $37.80 3349 USD $33.49 2 1 0 0 0 0 0 B00009NQZF 1682713 Zwan Vinyl 0054391666178 0054391666178 0005439166617 999 USD $9.99 1 Music ABIS_MUSIC Lyric [Vinyl] 054391666178 054391666178 005439166617 0 0 0 0 0 0 0 B00008UVDM 1652193 Audio CD Zwan 0667342760629 0667342760629 Single Import 1249 USD $12.49 Wea Music ABIS_MUSIC Wea 2002-11-04 Wea Honestly 667342760629 667342760629 0 0 0 0 0 0 0 Net-Amazon-0.62/t/canned/reviews.xml0000644666302512716660000001053411652645274017170 0ustar boumenotpg1319368 0201360683 2831243 Michael Schilli Paperback AL07005145 9780201360684 9780201360684 0201360683 English Unknown English Original Language English Published 3999 USD $39.99 Addison-Wesley Professional 1 464 Book ABIS_BOOK 1998-12-16 Addison-Wesley Professional 3_0201360683 Addison-Wesley Professional Perl Power!: A JumpStart Guide to Programming with Perl 5 200 USD $2.00 80 USD $0.80 11 17 0 0 0 0 0 http://www.amazon.com/reviews/iframe?akid=1V5JRJ4JQCSHB3NGG902&alinkCode=xm2&asin=0201360683&atag=blogdivebombo-20&exp=2011-10-30T00%3A37%3A16Z&v=2&sig=kdfQqupZecKkXIVIT5dux%2Befv6u5IFyIy%2Fb44YCs9zE%3D true Product Description If you are looking to bring the power of Perl to your workstation, this is the book for you. Now you can learn Perl basics and get up to speed with Internet and Object Oriented programming with just one book. Packed with hints and tips, solutions and exercises, Perl Power! is the perfect jumpstart guide to the hottest features of the latest Perl release. Beginners and intermediate developers can use the introductory chapter to get up and running with Perl 5 fast, and a tutorial on object-oriented programming will supplement knowledge and help to fully exploit the power of Perl. Internet users will learn how to automate repetitive tasks. Ready-to-go scripts show how to periodically check Web pages for changes, scan Newsgroups for interesting messages or send email. Perl Power! will enable you to write your own scripts to program-and-conquer the Internet! System administrators will find ways to automate many tasks of their day to day work Software developers will gain advice on solving commonly occuring programming problems in short development cycles and unleashing the power of popular Perl modules. The accompanying CD-ROM features all the programming examples from the book, together with a complete ready-to-use Perl distribution for Windows 95/NT, a free Apache Web Server and freely available modules which can be used to solve everyday programming problems. 0 Net-Amazon-0.62/t/canned/keyword.xml0000644666302512716660000011575711652645261017201 0ustar boumenotpg1319368 105 11 http://www.amazon.com/gp/redirect.html?camp=2025&creative=386001&location=http%3A%2F%2Fwww.amazon.com%2Fgp%2Fsearch%3Fkeywords%3Dperl%2Bpower%26url%3Dsearch-alias%253Dstripbooks&linkCode=xm2&tag=blogdivebombo-20&SubscriptionId=1V5JRJ4JQCSHB3NGG902 0131480057 9602 Evi Nemeth Garth Snyder Trent R. Hein Ben Whaley Paperback 9780131480056 9780131480056 4th 0131480057 1 2.31 0 1.81 English Unknown English Original Language English Published 5999 USD $59.99 Prentice Hall 1 1344 Book ABIS_BOOK 2010-07-24 Prentice Hall NU-ING-00644322 Prentice Hall UNIX and Linux System Administration Handbook (4th Edition) 2400 USD $24.00 3798 USD $37.98 3785 USD $37.85 50 38 0 0 1 1 http://www.amazon.com/gp/offer-listing/0131480057%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D0131480057 New t8ndCrMY3RwcZbEF1obrYtd6Dm0iXkiN5vTYdf%2FmRypLiZBusjSo3O8fOWILZzOG5vTcgvv2pZPs%2BOF9yPN6b%2FTFBMe3kkJFhdDR9C7Pr9rEKwt%2BoS1v7A%3D%3D 4199 USD $41.99 1800 USD $18.00 30 Usually ships in 24 hours now 0 0 1 1401902103 3833 Eric Pearl Paperback 9781401902100 0656629002828 9781401902100 ISBN13: 9781401902100 Condition: New Notes: BRAND NEW FROM PUBLISHER! 100% Satisfaction Guarantee. Tracking provided on most orders. Buy with Confidence! Millions of books sold! 1401902103 62 900 92 612 English Unknown English Original Language English Published 1495 USD $14.95 Hay House 1 223 Book ABIS_BOOK 2003-04-01 Hay House 110929010 Hay House The Reconnection 656629002828 656629002828 810 USD $8.10 246 USD $2.46 1995 USD $19.95 61 69 1 0 1 1 http://www.amazon.com/gp/offer-listing/1401902103%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D1401902103 New Ckol9wzCIZhVeVM4%2Fq0xdJZ11JvCuV%2FZ9ZRkk9bdDbnci%2BknbR0%2FOt2O51ip1dF4BwEc5gIrUWWft7Ef%2F2UTfNIaCQ2GnpN%2BfSj4XU1kMS8%3D 1017 USD $10.17 478 USD $4.78 32 Usually ships in 24 hours now 0 0 1 0596000278 20572 Larry Wall Tom Christiansen Jon Orwant Paperback 9780596000271 9780596000271 3rd 0596000278 175 917 304 701 English Unknown English Original Language English Published 4999 USD $49.99 O'Reilly Media 1 1092 Book ABIS_BOOK 2000-07-21 O'Reilly Media 6885074 O'Reilly Media Programming Perl (3rd Edition) 1495 USD $14.95 129 USD $1.29 59 108 0 0 1 1 http://www.amazon.com/gp/offer-listing/0596000278%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D0596000278 New AfVWFi1k54AVThH7yB%2BvrRMMRvPxtry%2FbX9m8sdc6cwFZfHuLHPqhdhRQDA9pbve6aYMhJDYdeGae64uDgGKQG%2Fxt3As3BDbUYYlUiRVNkk%3D 3149 USD $31.49 1850 USD $18.50 37 Usually ships in 24 hours now 0 0 1 0123745144 72255 Michael L. Scott Paperback 9780123745149 9780123745149 3 0123745144 1 2.31 3 1.87 English Unknown English Original Language English Published 7495 USD $74.95 Morgan Kaufmann 1 944 Book ABIS_BOOK 2009-04-06 Morgan Kaufmann Lot500-N-120 Morgan Kaufmann Programming Language Pragmatics, Third Edition 2530 USD $25.30 2626 USD $26.26 3339 USD $33.39 43 55 0 0 1 1 http://www.amazon.com/gp/offer-listing/0123745144%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D0123745144 New KXi%2BZ0%2Ba%2BGgyXNV2%2FLAXIAFpPknj1Rhy5%2BWl8palDDOb0OeXpvaTMm0al8ip07nW4seYmEqoragNGmf02WOdoilZ4dKWIkTfh9zMucv%2F9CM%3D 4949 USD $49.49 2546 USD $25.46 34 Usually ships in 24 hours now 0 0 1 1565922255 49998 Dale Dougherty Arnold Robbins Paperback 9781565922259 9781565922259 Second Edition 1565922255 1 89 924 130 706 English Unknown English Original Language English Published 3999 USD $39.99 O'Reilly Media 1 432 Book ABIS_BOOK 1997-03-08 O'Reilly Media 765922259 O'Reilly Media sed & awk (2nd Edition) 350 USD $3.50 1755 USD $17.55 937 USD $9.37 28 50 0 0 1 1 http://www.amazon.com/gp/offer-listing/1565922255%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D1565922255 New 8Cv0UzLBYuwZQZqy1%2BjhTAHocGYgSDs7a3XbklHEofvX0fYo2b4j4rb%2Bv2l5d2JsaF6MV9NPYoFEK81CXr9hntyiWgNxPKFrV0AqyGwzXV0%3D 2030 USD $20.30 1969 USD $19.69 49 Usually ships in 24 hours now 0 0 1 0596007973 78102 Alex Martelli Anna Ravenscroft David Ascher Paperback AL12178810 9780596007973 9780596007973 Second Edition 0596007973 1 150 918 255 704 English Unknown English Original Language English Published 4995 USD $49.95 O'Reilly Media 1 848 Book ABIS_BOOK 2005-03-25 O'Reilly Media KA9780596007973 O'Reilly Media Python Cookbook 382 USD $3.82 1800 USD $18.00 1230 USD $12.30 36 23 0 0 1 1 http://www.amazon.com/gp/offer-listing/0596007973%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D0596007973 New F0oe3xB%2F3OPP6alO2HcQXPqPIYeC2rGOM%2FCI7fBR8K2lXEXdSk8tE5dML%2BhFh4uPcnyH2fjbrdXZ3u3SjSvYa%2Buxfes%2FNTwI2t5WLFp%2B2YjYMhrxE1hPWg%3D%3D 2885 USD $28.85 2110 USD $21.10 42 Usually ships in 24 hours now 0 0 1 0596514980 96053 Bryan O'Sullivan John Goerzen Don Stewart Paperback 9780596514983 9780596514983 1 0596514980 1 English Unknown English Original Language English Published 4999 USD $49.99 O'Reilly Media 1 720 Book ABIS_BOOK 2008-12-01 O'Reilly Media 0596514980N O'Reilly Media Real World Haskell 250 USD $2.50 2589 USD $25.89 1188 USD $11.88 36 37 0 0 1 1 http://www.amazon.com/gp/offer-listing/0596514980%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D0596514980 New Dd77AFAf4KJuL%2FU0XgSSOZDNEqDSRTMFFh1sLwlxoSy4BqkXxtA%2FzpOqgYIa2tDAxRZMZEkEzerY%2FBeVoxFymH2251%2BopHdzctfIJm2j1u4%3D 4260 USD $42.60 739 USD $7.39 15 Usually ships in 24 hours now 0 0 1 0761556346 49405 Paperback Brady Games Lawrence Neves Katherine Fang Kristina Naudus Cris Silvestri 9780761556343 9780761556343 Everyone 0761556346 43 1094 153 858 English Unknown English Original Language English Published 1699 USD $16.99 Prima Games GKW33630 1 296 1 GKW33630 Nintendo DS Book ABIS_BOOK 2007-04-22 Prima Games 2007-04-22 6614545 Prima Games Pokemon Diamond & Pearl (Prima Official Game Guide) 6964 USD $69.64 7 USD $0.07 7 160 0 0 0 0 0 0596515170 297854 Federico Biancuzzi Chromatic Paperback 9780596515171 9780596515171 1 ISBN13: 9780596515171 Condition: New Notes: BRAND NEW FROM PUBLISHER! 100% Satisfaction Guarantee. Tracking provided on most orders. Buy with Confidence! Millions of books sold! 0596515170 1 116 912 192 700 English Unknown English Original Language English Published 3999 USD $39.99 O'Reilly Media 1 496 Book ABIS_BOOK 2009-04-03 O'Reilly Media 0596515170 O'Reilly Media Masterminds of Programming: Conversations with the Creators of Major Programming Languages (Theory in Practice (O'Reilly)) 129 USD $1.29 1705 USD $17.05 444 USD $4.44 43 36 0 0 1 1 http://www.amazon.com/gp/offer-listing/0596515170%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D0596515170 New FzAgHRSTZoVa1zxZev5GrZK98LD%2BefxUaUDKS9OMUZkE2ZwhcWSv1r%2Bd1pcEQ%2BohZGscaKMcodEzkWjy7MiCHlfH5A6O80q7fTJL%2FwVLcQg%3D 2639 USD $26.39 1360 USD $13.60 34 Usually ships in 24 hours now 0 0 1 0596100892 201782 Guy Harrison Steven Feuerstein Paperback 9780596100896 9780596100896 1 0596100892 1 116 916 194 710 English Unknown English Original Language English Published 4499 USD $44.99 O'Reilly Media 1 638 Book ABIS_BOOK 2006-04-04 O'Reilly Media NU-ING-00311288 O'Reilly Media MySQL Stored Procedure Programming 300 USD $3.00 2449 USD $24.49 949 USD $9.49 33 26 0 0 1 1 http://www.amazon.com/gp/offer-listing/0596100892%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D0596100892 New w2HrBm5LnxuWsJ3A1UL3zi6iMTXiAE2RnmUBeEZioADFIdP2KHLX3FfDJmPKJs4SlUfpM%2Bjx2XrLQKXnxYCBO1AM4tSggduM8rgeLRUCPLSUs%2BRf3glGeA%3D%3D 2969 USD $29.69 1530 USD $15.30 34 Usually ships in 24 hours now 0 0 1 Net-Amazon-0.62/t/canned/manufacturer.xml0000644666302512716660000012744511652645264020211 0ustar boumenotpg1319368 523 53 http://www.amazon.com/gp/redirect.html?camp=2025&creative=386001&location=http%3A%2F%2Fwww.amazon.com%2Fgp%2Fsearch%3Fkeywords%3DDisney%26url%3Dsearch-alias%253Dsoftware&linkCode=xm2&tag=blogdivebombo-20&SubscriptionId=1V5JRJ4JQCSHB3NGG902 B0002A9VEY 192 CD-ROM Disney 0044702014309 0044702014309 Early Childhood Fun and educational Arcade Games Pc 1999 USD $19.99 Disney Software SOFTWARE Disney mon0000009672 Disney Mickey's Preschool - with Active Leveling Advantage! 044702014309 044702014309 617 USD $6.17 530 USD $5.30 12 7 0 0 1 1 http://www.amazon.com/gp/offer-listing/B0002A9VEY%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB0002A9VEY New d4BfSukGVa%2FC2dqUzEIh9OOlCNV0CzUfIgmIjI6FYj5ZNyzCx%2BCxyyPHXwV6xCQeqygNpzYh6hCJSVTR1PsdVV3xLRJ%2FIKflprgIEswR%2Bc4TAA3BAnoYadzztYHDHtYVtSMVXhm8eIoxvvi9ImkYeQ%3D%3D 641 USD $6.41 1358 USD $13.58 68 Usually ships in 24 hours now 0 0 1 B002I0JJMK 5290 DVD-ROM Disney 044702010493 044702010592 0044702010509 0044702010509 0044702010493 0044702010592 Standard Everyone 10+ DVD-ROM action_games Pc 0 0 0.6 7.5 20 5.3 English Unknown 2999 USD $29.99 Disney Interactive 1078250000000 10633200 Windows 1 10633200 Windows Windows XP Mac OS X Video Games SOFTWARE_GAMES Disney Interactive 2011-05-30 DH01049D Disney Interactive LEGO Pirates of the Caribbean 044702010509 044702010509 044702010493 044702010592 2599 USD $25.99 11 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B002I0JJMK%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB002I0JJMK New MbZ2csuadw8gETfMDcowcqbzJTEBuxlnVGCwIaPow10pRiqAJcaHUfm5al7dJhmlLibtd%2BmrhCe5v1STxB8J9eEsHZjgkA1T5dqyFcdxsnzsGsLR4WvsLA%3D%3D 2954 USD $29.54 45 USD $0.45 2 Usually ships in 24 hours now 0 0 1 B000W2UHQ8 6737 Video Game Papaya Studios 044702019816 B000W2UHQ8 8717418142438 8717418142438 0044702019816 Everyone Make use of special magic as you move through four enchanted worlds Enter into Belle's world and meet Belle and Lumiere as an unlockable bonus Get rewards for successfully achieving goals Experience a variety of wonderful mini games Team up with a friend in cooperative gameplay DVD-ROM Adventure Games Pc 0 0 125 750 20 550 1999 USD $19.99 Disney Interactive 7026201 07026201 1 Windows XP 1 07026201 Windows XP Video Games SOFTWARE_GAMES Disney Interactive 2008-01-21 GSP-DPT-DVD Disney Interactive Disney Princess: Enchanted Journey 044702019816 044702019816 1245 USD $12.45 999 USD $9.99 16 2 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000W2UHQ8%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB000W2UHQ8 New SUh4viaH4T6fgHjhSt5v8WWWAPmnvhDJv1RsIdonzyE8Ux3WuB8%2BDUr0hq35EDoUFsmOzQHs9qw6D6GA%2FTmgt9nymxQFbX5Q9UYE7I7vmL%2FJOQ1XV37iuEfll7hrx3lVSn17STY6KJTo%2FUqkL5mSESOWBG%2FxccvQ 1884 USD $18.84 115 USD $1.15 6 Usually ships in 24 hours now 0 0 1 B0002A9VF8 434 CD-ROM Disney 0044702014293 0044702014293 Early Childhood Help Mickey discover hidden letters. Letter & Number Recognition,Social Skills Shapes,Music Appreciation CD-ROM Arcade Games Pc 1999 USD $19.99 Disney Windows Windows Software SOFTWARE Disney 125830 Disney Mickey's Toddler - with Active Leveling Advantage! 044702014293 044702014293 595 USD $5.95 445 USD $4.45 7 9 0 0 1 1 http://www.amazon.com/gp/offer-listing/B0002A9VF8%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB0002A9VF8 New pg0sTjyaWCzOVh5KoZAAucShpTHpsVID7Xro0ntdD%2FExJ7hwxqKysP8KpJQ6erOs83%2FWy3W0xjgZCoDFhaOBBGIDr%2BI7a%2Bi4AbIfwDJnL6E2yhfgFUBJoPPzOBMNDrCP0OclwJZQa9bdsZ%2FNohA%2BGj78XqqCq%2Bh%2B 676 USD $6.76 1323 USD $13.23 66 Usually ships in 24 hours now 0 0 1 B004QE651Y 1085 DVD-ROM Disney 0828706804001 0828706804001 High-performance microphone: Accurately reproduces the sound of your voice. Reliable, high-quality design: Enjoy your favorite karaoke games over and over. Designed for karaoke: Showcases your singing voice. 15-foot cable: Perform without being tied down. DVD-ROM Disney XBOX 360/Wii/PS2/PS3/PC Software SOFTWARE Disney Disney Disney USB Microphone - for Sing It, High School Musical, and others [ works on all systems PS2/PS3/XBOX 360/Wii/PC] 828706804001 828706804001 898 USD $8.98 850 USD $8.50 3 3 0 0 1 1 http://www.amazon.com/gp/offer-listing/B004QE651Y%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB004QE651Y New nDHDmwCEvqTI07OVvrv3%2BtazpYgYZ80QmDEzppvx0a%2BHuSNRIN9XcfvvdHFzXywULaM6pChz81WW4EtEVhve9f%2BMOoGF86vrIIR%2FBv7tPlN7pCzL5RFR1ZBOlE26kT2imAWzm6Lj362v1zvO05KBaA%3D%3D 999 USD $9.99 Usually ships in 24 hours now 0 0 1 B00029BQAC 548 CD-ROM Disney 044702022410 E277 3706201 0044702022410 0044702022410 Everyone Winnie the Pooh Kindergarten w/French & Spanish brings parents and young children a fun set of educational games they can enjoy together Play eight games and 25 learning skills like Eeyore's Musical Mix & Match, Owl's Memory Challenge, and Rabbit's Shape Sorting Mickey Mouse Kindergarten introduces fundamental learning skills as they play with Mickey As children play, they'll develop critical thinking skills and problem-solving abilities Explore fun word games with Goofy and Tigger CD-ROM Pc 0 0 38 Warranty does not cover misuse of product. 1999 USD $19.99 Disney 3706201 V47047-00000-00000 1 Windows 98 1 V47047-00000-00000 Mac Windows 98 Windows Me Windows XP Mac OS 9 and below Windows Software SOFTWARE_GAMES Disney 2004-07-06 1-V-1-1475 Disney Disney Learning Kindergarten Bundle (Pooh Kindergarten, Mickey Kindergarten, and Phonics Quest) 044702022410 044702022410 1069 USD $10.69 770 USD $7.70 695 USD $6.95 9 4 1 0 1 1 http://www.amazon.com/gp/offer-listing/B00029BQAC%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB00029BQAC New cXOI5X1C1Ir1SINY%2Bzce9pW%2Bg8Yoscd33OwbgeloCrI1EoxvGQMA%2BmC8qWHqfkB8ZsWR2DHwF%2BP29ZdP4EiRbLV3wZkUrR2jQbpRUMRAxEYiz2zwBpZpGEkkOyl3NgjFFQQFIIS9k6L%2FQXhBSIvgu17hDWZMKRPF 1069 USD $10.69 930 USD $9.30 47 Usually ships in 1-2 business days now 24 48 0 B002KA20XI 8306 DVD-ROM Disney 1015540000000 Windows XP 0044702010257 0044702010257 Standard Rating Pending Enter the vividly imagined world of Wonderland, based on the Tim Burton movie and inspired by the classic book by Lewis Carroll Step into the shoes of classic characters like the Mad Hatter, the White Rabbit and the Cheshire Cat Assist Alice in her journey through Wonderland as she makes her way toward the final battle against the Jabberwocky Master abilities like altering perception, making objects invisible and manipulating time Roam through an intriguing world filled with whimsical settings, optical illusions, challenging puzzles and formidable adversaries DVD-ROM fantasy_action_games Pc 0 0 44 English Unknown 1999 USD $19.99 Disney Interactive 1015540000000 10155400 Windows Vista 1 10155400 Windows Vista Windows XP Video Games SOFTWARE_GAMES Disney Interactive 2010-03-02 B002KA20XI-GAM-2N-02-011890 Disney Interactive Alice in Wonderland 044702010257 044702010257 254 USD $2.54 266 USD $2.66 31 14 0 0 1 1 http://www.amazon.com/gp/offer-listing/B002KA20XI%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB002KA20XI New 2CBjVJ2OuKNHrtms1ylD%2BD8d38YPgj%2BUpCtIvcBc0OtPy8UCbmktv9JGQFtsiqbSd3BX12GYs6seKmC0XuFFhO%2BQsRpBo4JN%2BA9wz5t5HxQSFji4CxwszM9lgQVvC1alwHOMbp5H9YnyG4uvnaVlpw%3D%3D 399 USD $3.99 1600 USD $16.00 80 Usually ships in 24 hours now 0 0 1 B002Q82DKE 2-Year Replacement Service Plan - Covers Electronic Items $0–$49.99 B0030MOXA8 6262 DVD-ROM Disney 1043340000000 18553 0044702010394 0044702010394 Standard Teen High Mobility Combat - Battle the enemies of the TRON world with your light disc using a dynamic blend of Parkour and martial arts movement on your heroic mission across the Grid. Vehicular Action - Fast paced exciting light cycle racing and combat in the digital TRON world. Bridge the Legacy - TRON: Evolution is the prequel story to the film TRON: Legacy and unlocks mysteries in the rich TRON mythology. Online/Multiplayer - TRON: Evolution has an innovative online experience featuring persistent character progression. Voiceover Cast - Voiceover by actress Olivia Wilde as Quorra, Bruce Boxleitner as Tron, and others to follow DVD-ROM adventure_games Pc 0 0 20 English Unknown 3999 USD $39.99 Disney Interactive 10433400 10433400 1 Windows 1 10433400 Windows 7 Windows Vista Windows XP Video Games SOFTWARE_GAMES Disney Interactive 2010-12-07 044702010394 Disney Interactive TRON: Evolution 044702010394 044702010394 1575 USD $15.75 1575 USD $15.75 16 2 0 0 1 1 http://www.amazon.com/gp/offer-listing/B0030MOXA8%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB0030MOXA8 New ACuxA0ko7mwbZVKAkwag%2BMVGR5qTuOzQLIkN5OfOkn00DkfY4o2AdN4i%2BbGoBb5fO6f%2F58kVZSsHDVRGhjZNBPyj7zCMUFwfDWajQIae8HUwMTjeOYu5G65o%2BAvCf8SPQ8J3PrWVf0x12JAiZ5p7UA%3D%3D 1575 USD $15.75 2424 USD $24.24 61 Usually ships in 24 hours now 0 0 1 B004M8M2M0 12268 DVD-ROM Disney 044702010516 1051050000000 0044702010516 0044702010516 0044702010431 Standard Everyone 10+ Cars 2: The Video Game introduces the international training center - CHROME (Command Headquarters for Recon Operations and Motorized Espionage) that expands upon the film storyline Choose from more than 20 different characters, such as Mater, Lightning McQueen and the newly introduced Finn McMissile and Holley Shiftwell, and train to become world class spies Participate in simulated hazardous missions using high-tech gadgets to evade and impede adversaries Perform maneuvers only Cars characters can do, such as backwards driving, air tricks, sidestepping to avoid obstacles, two wheel driving and more DVD-ROM car_and_truck_racing_and_flying_games Linux 0 0 0.6 7.5 20 5.3 English Unknown 2999 USD $29.99 Disney Interactive 1051050000000 10510500 Linux 1 10510500 Windows Vista Windows 7 Linux Windows XP Mac OS X Video Games SOFTWARE_GAMES Disney Interactive 2011-06-21 VS392874 Disney Interactive Cars 2: The Video Game 044702010516 044702010516 044702010431 2833 USD $28.33 1538 USD $15.38 9 4 0 0 1 1 http://www.amazon.com/gp/offer-listing/B004M8M2M0%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB004M8M2M0 New L6tsnd6w3OEPmCb93dn%2FqSGt8xHk%2FlJYXoYtt56%2Fl5a0IrrkxRoqNAvYQj2WWZpkyxnDKu04sr4jiIV2uJRlhEBZ5LTRKszAHDCVB9S09Xh1bvW6hALRuA%3D%3D 2996 USD $29.96 3 USD $0.03 Usually ships in 24 hours now 0 0 1 B00005NVD8 7007 DVD-ROM Disney 044702010622 10833600 2068601 0044702010622 0044702010622 Standard Everyone 10+ Suit-up for action as more than 40 classic and contemporary Disney characters including Alice, Mike, TRON and Stitch Each suit comes with a special 'Tool' used to fight enemies and which can be upgraded Power up and explore 6 different worlds inspired by Disney and Pixar films Different levels feature different gameplay focuses including smashing, collecting, platforming and puzzle-solving Team up with up with friends to solve puzzles or defeat enemies or toss your friend into trouble DVD-ROM adventure_games Pc 0 0 17 English Unknown 2999 USD $29.99 Disney Interactive 10833600 10833600 1 10833600 Windows Vista Windows XP Video Games SOFTWARE_GAMES Disney Interactive 2011-10-25 DH01062 Disney Interactive Disney Universe 044702010622 044702010622 1999 USD $19.99 12 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B00005NVD8%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB00005NVD8 New 2mMilxH3j7f2A4bMeV%2BKFtRtqCSZ5YJtO%2Fb%2BZncleM0uiRtX408i6O0fr7%2FsRrbCjRV8%2FJ5BAzmm8AF7z33lEx74DHYh22Ur0lHMUfJG3Tqff2gbNSW3uEjQmzQLZH29VJLMyfXi2bSf1T%2F4p8DNVhMBha4z2EgP 1999 USD $19.99 1000 USD $10.00 33 Usually ships in 1-2 business days now 24 48 0 B000NDESM0 PC Gamer [with CD] (1-year) B000I3HDP4 Zonealarm Internet Security Suite [Old Version] B000EGK0IC Pimpjuice Premium Energy Drink, Extra Strength Formula, 8-Ounce Cans (Pack of 24) Net-Amazon-0.62/t/canned/ean.xml0000644666302512716660000001444511253707751016250 0ustar boumenotpg1319368 True EAN 5035822647633 Large DVD B00004CXLB 21838 http://ec1.images-amazon.com/images/P/B00004CXLB.02._SCTHUMBZZZ_.jpg 60 42 http://ec1.images-amazon.com/images/P/B00004CXLB.02._SCMZZZZZZZ_.jpg 140 98 http://ec1.images-amazon.com/images/P/B00004CXLB.02._SCLZZZZZZZ_.jpg 475 334 http://ec1.images-amazon.com/images/P/B00004CXLB.02._SCTHUMBZZZ_.jpg 60 42 http://ec1.images-amazon.com/images/P/B00004CXLB.02._SCMZZZZZZZ_.jpg 140 98 http://ec1.images-amazon.com/images/P/B00004CXLB.02._SCLZZZZZZZ_.jpg 475 334 Sean Penn Nick Nolte Jennifer Lopez Powers Boothe Claire Danes Joaquin Phoenix Jon Voight Billy Bob Thornton Abraham Benrubi Richard Rutowski Aida Linares Sean Stone Ilia Volokh Valeri Nikolayev Brent Briscoe 1.78:1 Suitable for 18 years and over DVD SONY PICTURES HOME ENT. UK Oliver Stone 5024165771907 Anamorphic Dubbed PAL Widescreen English Original Language Czech Subtitled Danish Subtitled English Subtitled Finnish Subtitled German Subtitled Greek Subtitled Hebrew Subtitled Hindi Subtitled Hungarian Subtitled Icelandic Subtitled Norwegian Subtitled Polish Subtitled Swedish Subtitled German Dubbed 1299 GBP £12.99 Sony Pictures Home Ent. UK 1 1998-04-24 58 710 18 542 DVD ABIS_DVD Sony Pictures Home Ent. UK 2 1998-12-14 119 Sony Pictures Home Ent. UK 1997-10-03 U-Turn [1998] 609 GBP £6.09 289 GBP £2.89 4 6 0 0 0 0 Net-Amazon-0.62/t/canned/textstream.xml0000644666302512716660000000466611652645275017716 0ustar boumenotpg1319368 0201360683 2831243 Michael Schilli Paperback AL07005145 9780201360684 9780201360684 0201360683 English Unknown English Original Language English Published 3999 USD $39.99 Addison-Wesley Professional 1 464 Book ABIS_BOOK 1998-12-16 Addison-Wesley Professional 3_0201360683 Addison-Wesley Professional Perl Power!: A JumpStart Guide to Programming with Perl 5 200 USD $2.00 80 USD $0.80 11 17 0 0 0 0 0 Net-Amazon-0.62/t/canned/actor.xml0000644666302512716660000014466311652645226016624 0ustar boumenotpg1319368 322 33 http://www.amazon.com/gp/redirect.html?camp=2025&creative=386001&location=http%3A%2F%2Fwww.amazon.com%2Fgp%2Fsearch%3Fkeywords%3DAdam%2BSandler%26url%3Dsearch-alias%253Ddvd&linkCode=xm2&tag=blogdivebombo-20&SubscriptionId=1V5JRJ4JQCSHB3NGG902 B005F3XV62 111 Kevin James Rosario Dawson Adam Sandler Sylvester Stallone 2.40:1 PG (Parental Guidance Suggested) DVD Sony 0043396376731 0043396376731 AC-3 Closed-captioned Color Dolby Dubbed DVD Subtitled Widescreen NTSC 1 English Subtitled French Subtitled Spanish Subtitled English Original Language French Dubbed Spanish Dubbed 3099 USD $30.99 Sony Pictures Home Entertainment COLD37673D 1 COLD37673D Anamorphic Widescreen DVD ABIS_DVD Sony Pictures Home Entertainment 1 2011-10-11 102 86.COL D37673D Sony Pictures Home Entertainment Zookeeper 575 USD $5.75 043396376731 043396376731 993 USD $9.93 798 USD $7.98 41 27 0 0 1 1 http://www.amazon.com/gp/offer-listing/B005F3XV62%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB005F3XV62 New x1kQfZsBW8cC%2Bs2E0eovaY8g0b%2BaVT7UxfEkp0KvGeOeUT2fkdmxXW1UxcBQ2QMnR%2BDTFr1jQtIP5feuLDx3V7La3pXQ5iQyKyu9GOCbvxNjKXvzmj2FRw%3D%3D 1799 USD $17.99 1300 USD $13.00 42 Usually ships in 24 hours now 0 0 1 B003Y5H524 393 Jennifer Aniston Adam Sandler 1.85:1 PG-13 (Parental Guidance Suggested) DVD Sony Dennis Dugan 0043396376793 0043396376793 AC-3 Closed-captioned Color Dolby Dubbed DVD Subtitled Widescreen NTSC 1 English Unknown English Subtitled French Subtitled Spanish Subtitled English Original Language French Dubbed 2895 USD $28.95 Columbia Pictures COLD37679D 1 COLD37679D Anamorphic Widescreen DVD ABIS_DVD Columbia Pictures 1 2011-06-07 117 ING49 Columbia Pictures Just Go With It 300 USD $3.00 043396376793 043396376793 933 USD $9.33 547 USD $5.47 42 38 0 0 1 1 http://www.amazon.com/gp/offer-listing/B003Y5H524%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB003Y5H524 New rslQnD%2BuKJAUYr8ha6%2FxnvtC6SlZOTbcx950bOK37w%2FHJznEA82swK58YpnUwwzPiSwlC8v6t1PUdw8%2BUVYa6%2Fr6k3hDzyfJZfScYV3HjfZqU7fYx7Wh4w%3D%3D 1399 USD $13.99 1496 USD $14.96 52 Usually ships in 24 hours now 0 0 1 B005F3XV7Q 901 Kevin James Rosario Dawson Adam Sandler Sylvester Stallone 2.40:1 PG (Parental Guidance Suggested) Blu-ray SONY PICTURES HOME ENT 0043396385665 0043396385665 AC-3 Color Dolby Dubbed Subtitled Widescreen 1 English Subtitled French Subtitled Spanish Subtitled English Original Language French Dubbed Spanish Dubbed 4099 USD $40.99 Sony COLBR38566 2 COLBR38566 Anamorphic Widescreen DVD ABIS_DVD Sony 2011-10-11 102 173708 Sony Zookeeper (Two-Disc Blu-ray/DVD Combo) 725 USD $7.25 043396385665 043396385665 1598 USD $15.98 1050 USD $10.50 38 10 0 0 1 1 http://www.amazon.com/gp/offer-listing/B005F3XV7Q%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB005F3XV7Q New nrh%2Bm9SgSm2h9VQ4D8iAUE92tbN560NjV7vTmvSWfYu87JPMT9sxddHv0bF0fSESPVQJ4B%2FS4jx90t6Ceu3YNOk9%2Fjl5clBIT7JgFFT2T1TGcPm3lg7cRg%3D%3D 2499 USD $24.99 1600 USD $16.00 39 Usually ships in 24 hours now 0 0 1 B002ZG97TW 1103 Adam Sandler Maria Bello 1.85:1 PG-13 (Parental Guidance Suggested) DVD SONY PICTURES HOME ENT Dennis Dugan 0043396350144 0043396350144 AC-3 Closed-captioned Color Dolby Dubbed DVD Subtitled Widescreen NTSC 0 1 15 English Unknown English Subtitled French Subtitled Spanish Subtitled English Original Language French Dubbed 1999 USD $19.99 Columbia Pictures COLD35014D 1 1 COLD35014D Anamorphic Widescreen DVD ABIS_DVD Columbia Pictures 1 2010-11-09 102 043396350144BAKE Columbia Pictures Grown Ups 100 USD $1.00 043396350144 043396350144 398 USD $3.98 219 USD $2.19 51 71 0 0 1 1 http://www.amazon.com/gp/offer-listing/B002ZG97TW%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB002ZG97TW New i41wAS0Qg5jqsyAYJxN3sFSFGrSporXfS%2Bc36UJ8Qs6e0BDIX1pw6blXw5YgcM3HV91MYZh%2FVYKDQHWuvPYDiF2ftkG726wU%2BbcpV31WSdvIA5oUsy7UPqhAFevjQ9MXoDd9bsBhdEVpO8TiS9AcXw%3D%3D 969 USD $9.69 1030 USD $10.30 52 Usually ships in 24 hours now 0 0 1 B005F3XVA8 2871 Kevin James Rosario Dawson Adam Sandler Sylvester Stallone 2.40:1 PG (Parental Guidance Suggested) Blu-ray SONY PICTURES HOME ENT 0043396376700 0043396376700 AC-3 Dolby Dubbed Subtitled Widescreen 1 English Subtitled French Subtitled English Original Language French Dubbed Spanish Dubbed 3599 USD $35.99 Sony Pictures Home Entertainment COLBR37670 1 COLBR37670 Anamorphic Widescreen DVD ABIS_DVD Sony Pictures Home Entertainment 2011-10-11 102 COL BR37670 Sony Pictures Home Entertainment Zookeeper [Blu-ray] 510 USD $5.10 043396376700 043396376700 1045 USD $10.45 940 USD $9.40 32 10 0 0 1 1 http://www.amazon.com/gp/offer-listing/B005F3XVA8%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB005F3XVA8 New l54oPI5fp4i2RHmCc4EqkwTLCeHqQJ2Krsb3OqtkKGeET%2ByqZ%2Bn%2FoZ%2FTTUG2HgaaevB9O8C66HEmaai8Y441EBht%2FzRGM9AQ3iEeEEeT1MreKECEKA3JHA%3D%3D 1999 USD $19.99 1600 USD $16.00 44 Usually ships in 24 hours now 0 0 1 B000ELJAEM 3226 Adam Sandler Drew Barrymore Christine Taylor Allen Covert Matthew Glave 1.85:1 PG-13 (Parental Guidance Suggested) DVD NEW LINE HOME VIDEO 0794043102646 0794043102646 AC-3 Closed-captioned Color Dolby DTS Surround Sound DVD Special Edition Subtitled Widescreen NTSC 0 1 20 English Unknown Dolby Digital 2.0 Surround English Subtitled Spanish Subtitled English Original Language Dolby Digital 2.0 Surround 598 USD $5.98 New Line Home Video TRNDN10264D 1 1 TRNDN10264D DVD ABIS_DVD New Line Home Video 1 2006-04-25 95 2-128501 New Line Home Video The Wedding Singer - Totally Awesome Edition 100 USD $1.00 794043102646 794043102646 290 USD $2.90 218 USD $2.18 1000 USD $10.00 58 29 1 0 1 1 http://www.amazon.com/gp/offer-listing/B000ELJAEM%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB000ELJAEM New NDXuij2jQ7vC2u0ZLaLOgsCbTXVQHGL5ff1KqE8zJAw2PngpffdQoFqkpeGRJOdPET1BDK3k36kSjvMq%2FF6TVetcdJypHcEhYK26PX6Kzyt3Wz9F97meAQ%3D%3D 598 USD $5.98 Usually ships in 24 hours now 0 0 1 630529142X 3675 Adam Sandler Kathy Bates Henry Winkler Fairuza Balk Jerry Reed 1.85:1 PG-13 (Parental Guidance Suggested) DVD Buena Vista Home Video 16540 Adam Sandler Adam Sandler Ira Shuman Jack Giarraputo Michelle Holdsworth Phyllis Alia Tim Herlihy Frank Coraci 9786305291428 9786305291428 9780788814945 0717951001665 Closed-captioned Color DVD Letterboxed Widescreen NTSC 0 0 078881494X 1 0 0 0 100 0 English Unknown Dolby Digital 5.1 English Original Language Dolby Digital 5.1 French Original Language Dolby Digital 2.0 Surround 1499 USD $14.99 Walt Disney Video TM2571 1 1 TM2571 DVD ABIS_DVD Walt Disney Video 1 1999-03-16 90 00717951001665U Walt Disney Video The Waterboy 150 USD $1.50 717951001665 717951001665 591 USD $5.91 332 USD $3.32 1499 USD $14.99 36 79 5 0 1 1 http://www.amazon.com/gp/offer-listing/630529142X%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D630529142X New nrM%2Fx%2B%2FSyM8iAxdbANBwzltvHDp%2FnOB4neI1x%2Be4cIKbqmxQlj6tpcMpr6IR0FjeCM1FGRLQDScKv%2BgaE60%2Bav%2BKkgncsMbPtPk5L58nk1fjkM99W7RsOVT%2BsEISDscjjpM953Dz2iXmdsB64xV%2Fxg%3D%3D 1120 USD $11.20 379 USD $3.79 25 Usually ships in 24 hours now 0 0 1 B00000K3UU 4972 Adam Sandler Joey Lauren Adams Jon Stewart Cole Sprouse Dylan Sprouse 1.85:1 PG-13 (Parental Guidance Suggested) DVD Sony 3922 Adam Sandler Adam Sandler Allen Covert Alex Siskin Jack Giarraputo Steve Franks Tim Herlihy Dennis Dugan 9780767836241 9780767836241 0043396039223 Anamorphic Closed-captioned Color Dolby DVD Full Screen Subtitled Widescreen NTSC 0 0767836243 1 25 English Unknown Dolby Digital 2.0 Surround English Subtitled English Original Language Dolby Digital 2.0 Surround 1499 USD $14.99 Sony Pictures Home Entertainment COLD03922D 1 1 COLD03922D DVD ABIS_DVD Sony Pictures Home Entertainment 1 1999-11-02 93 A043396039223 Sony Pictures Home Entertainment Big Daddy 25 USD $0.25 043396039223 043396039223 300 USD $3.00 18 USD $0.18 592 USD $5.92 78 310 4 0 1 1 http://www.amazon.com/gp/offer-listing/B00000K3UU%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB00000K3UU New OTSXzg7ZK1Sl%2BT7DXDrMf5sDZhUCVVgQkfvsf1oKYTz6dhAIefZcEX3czHsE4H7UhaTchuWBUe6J3p1PSgMIf2Hq8kDvH2xF6uZarY%2ByzLM%3D 649 USD $6.49 850 USD $8.50 57 Usually ships in 24 hours now 0 0 1 B00000JBED Big Daddy: Music from the Motion Picture B0009X760U 4286 Adam Sandler Christopher McDonald Julie Bowen Frances Bay Allen Covert 1.85:1 PG-13 (Parental Guidance Suggested) DVD Universal Studios Adam Sandler Bernie Brillstein Brad Grey Jack Giarraputo Robert Simonds Sandy Wernick Tim Herlihy Dennis Dugan 9781417010950 9781417010950 0025192544224 AC-3 Closed-captioned Color Dolby DTS Surround Sound Dubbed DVD Special Edition Subtitled Widescreen NTSC 0 1417010959 1 25 English Unknown English Subtitled French Subtitled Spanish Subtitled English Original Language French Dubbed Spanish Dubbed 1498 USD $14.98 Universal Studios MCAD25442D 1 1 MCAD25442D DVD ABIS_DVD Universal Studios 1 2005-08-23 92 S025192544224 Universal Studios Happy Gilmore (Widescreen Special Edition) 75 USD $0.75 025192544224 025192544224 623 USD $6.23 180 USD $1.80 46 66 0 0 1 1 http://www.amazon.com/gp/offer-listing/B0009X760U%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB0009X760U New AkfN%2FR7e4Eftc6NwoMYhU7owb7QBkzsV9r5B8FdorJz9Cua9%2BteFhmxvqyLRYrETGgRC8NiaLls5EePrFWZqB%2FHCk0FZLO%2FMBenEic3THl7bzh0MdoH%2Biw%3D%3D 749 USD $7.49 749 USD $7.49 50 Usually ships in 24 hours now 0 0 1 B003Y5H52E 6804 Jennifer Aniston Adam Sandler 1.85:1 PG-13 (Parental Guidance Suggested) Blu-ray Sony Dennis Dugan 0043396381742 0043396381742 Multiple Formats 1 English Unknown English Subtitled French Subtitled Spanish Subtitled English Original Language French Dubbed Spanish Dubbed 3896 USD $38.96 Columbia Pictures COLBR38174 2 COLBR38174 Anamorphic Widescreen DVD ABIS_DVD Columbia Pictures 1 2011-06-07 117 BD-140253 Columbia Pictures Just Go with It (Two-Disc Blu-ray/DVD Combo) 485 USD $4.85 043396381742 043396381742 986 USD $9.86 861 USD $8.61 35 33 0 0 1 1 http://www.amazon.com/gp/offer-listing/B003Y5H52E%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB003Y5H52E New fwd0L7%2BUCYpzxjIVms%2F61McdCs9PE0L7IJ2kxEPThb0f6Sxka90hjvln8rnqJwkr29pXwMFmyPyxGCg%2FXhCQR%2FN292u%2FEilHzSnDyqhQVViI8rRCouIJEA%3D%3D 2399 USD $23.99 1497 USD $14.97 38 Usually ships in 24 hours now 0 0 1 Net-Amazon-0.62/t/canned/director.xml0000644666302512716660000016112011652645256017315 0ustar boumenotpg1319368 150 15 http://www.amazon.com/gp/redirect.html?camp=2025&creative=386001&location=http%3A%2F%2Fwww.amazon.com%2Fgp%2Fsearch%3Fkeywords%3DMiyazaki%26url%3Dsearch-alias%253Ddvd&linkCode=xm2&tag=blogdivebombo-20&SubscriptionId=1V5JRJ4JQCSHB3NGG902 B00005JLEU 805 1.78:1 Unrated DVD BUENA VISTA HOME VIDEO 2978103 Hayao Miyazaki 9780788844614 9780788844614 0786936213843 From one of the most celebrated filmmakers in the history of animated cinema comes the most acclaimed film of 2002. Hayao Miyazaki's latest triumph, filled with astonishing animation and epic adventure, is a dazzling masterpiece for the ages. It's a "wonderfully welcoming work of art that's as funny and entertaining as it is brilliant, beautiful, and deep" (Joe Morgenstern, Wall Street Animated Closed-captioned Color Dolby DVD Widescreen NTSC 0 078884461X 1 25 English Unknown English Subtitled English Original Language French Original Language Japanese Original Language French Dubbed Spanish Dubbed 2999 USD $29.99 Walt Disney Video 02978100 02978100 2 2 1 02978100 DVD ABIS_DVD Walt Disney Video 1 2003-04-15 125 DIS_D29781D Walt Disney Video Spirited Away 500 USD $5.00 786936213843 786936213843 1769 USD $17.69 897 USD $8.97 3250 USD $32.50 49 35 1 0 1 1 http://www.amazon.com/gp/offer-listing/B00005JLEU%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB00005JLEU New NZN9AdW9KTu9sPpm0A%2FSb0rFowdxUlZHnhjZPX2Y2Er%2BhmV7zHPoCF2ix3LMmRvvYYHwSLcNJrldLiETkZOi7PAnk3mec2QnMu5XbLYdvdI%3D 1999 USD $19.99 1000 USD $10.00 33 Usually ships in 24 hours now 0 0 1 B002ZTQV8Y 641 Hitoshi Takagi Noriko Hidaka Chika Sakamoto Shigesato Itoi Sumi Shimamoto 1.85:1 G (General Audience) DVD Buena Vista Home Video Mark Henley Hayao Miyazaki Eiko Tanaka Ned Lott Rick Dempsey Toru Hara Yasuyoshi Tokuma Hayao Miyazaki 0786936791716 0786936791716 MY NEIGHBOR TOTORO: SPECIAL EDITION (DVD MOVIE) Animated Color Dubbed DVD Special Edition Subtitled Widescreen NTSC 0 1 34 English Unknown French Subtitled English Subtitled English Original Language Japanese Original Language English Dubbed 2999 USD $29.99 Disney Presents Studio Ghibli DISD101847D 2 1 DISD101847D DVD ABIS_DVD Disney Presents Studio Ghibli 1 2010-03-02 86 674709 Disney Presents Studio Ghibli My Neighbor Totoro (Two-Disc Special Edition) 1100 USD $11.00 786936791716 786936791716 1405 USD $14.05 1198 USD $11.98 2999 USD $29.99 45 12 1 0 1 1 http://www.amazon.com/gp/offer-listing/B002ZTQV8Y%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB002ZTQV8Y New %2FaINGq%2Bs4i2RrWun1AKHnKzCY42DYzWvD3P%2FViXX1eCXgWJJDpVR%2BWIPQ%2Fdul3Auz%2FF2ysyvO8GlY0AEiaMMnBsvv2sa1B25ehUtTPAlx10KcMtfjrzo1A%3D%3D 2099 USD $20.99 900 USD $9.00 30 Usually ships in 24 hours now 0 0 1 B000CDGVOE 1317 Chieko Baishô Takuya Kimura Tatsuya Gashûin Akihiro Miwa Ryûnosuke Kamiki 1.85:1 PG (Parental Guidance Suggested) DVD Buena Vista Home Video Hayao Miyazaki Hayao Miyazaki John Lasseter Ned Lott Rick Dempsey Tomohiko Ishii Diana Wynne Jones Hayao Miyazaki 0786936296662 0786936296662 2-disc special edition features both the original Japanese soundtrack and an English language soundtrack Behind the Microphone featurette with the English language voice cast and footage from the dubbing sessions Interview with Pixar Animation Studios Director, Pete Docter Hayao Miyazaki Visits Pixar Animation Studios with Pixar director John Lasseter Complete storyboards set to the movie soundtrack Animated Closed-captioned Color Dolby DVD Widescreen NTSC 0 1 35 English Unknown Dolby Digital 5.1 English Subtitled English Original Language Dolby Digital 5.1 French Original Language Dolby Digital 5.1 Japanese Original Language Dolby Digital 5.1 French Dubbed Dolby Digital 5.1 Japanese Dubbed Dolby Digital 5.1 2999 USD $29.99 Walt Disney Home Entertainment DISD41399D 2 1 DISD41399D DVD ABIS_DVD Walt Disney Home Entertainment 1 2006-03-07 119 mon0001263726 Walt Disney Home Entertainment Howl's Moving Castle 625 USD $6.25 786936296662 786936296662 1725 USD $17.25 1200 USD $12.00 46 38 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000CDGVOE%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB000CDGVOE New p98bB6tH1z0%2FI0YlHtLFqNFxG5UggrxrPClagldnXdQR1wBa63u0Wj0QZtPEMoXmecr6ZRGh5J%2FgQQ9oj7WDavyurRL6vh9qlS3C2ABcg6rIYDb7wba2uNDJ3aFg3bqDnyda5IHYkM9iaagAvBIyAg%3D%3D 1949 USD $19.49 1050 USD $10.50 35 Usually ships in 24 hours now 0 0 1 B00003CXBK 881 1.85:1 PG-13 (Parental Guidance Suggested) DVD Buena Vista Home Video 19300 Hayao Miyazaki 9780788820618 9780788820618 0717951007414 Animated Color DVD NTSC 0 0788820613 1 20 English Unknown English Original Language Japanese Original Language French Original Language 2299 USD $22.99 Miramax DISD19300D 1 1 DISD19300D DVD ABIS_DVD Miramax 1 2000-12-19 134 00717951007414U Miramax Princess Mononoke 625 USD $6.25 717951007414 717951007414 1346 USD $13.46 1077 USD $10.77 19 32 0 0 1 1 http://www.amazon.com/gp/offer-listing/B00003CXBK%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB00003CXBK New tYu61GYxlZ5SxmTQ1APUr26Xb23RhYeNWbwVPzKhNskUt6SRP0VObhZaRyulBJBsMwz%2ByfDaLgNR%2BPuRMCtlmpgURyk4%2B5pkylmvHSGZejeIXUIjt0B5M9BfJ2uq7AyOhoDv3URTiE9eyxFnKrZ12sG9y98LDVd7 1959 USD $19.59 340 USD $3.40 15 Usually ships in 24 hours now 0 0 1 6303118240 My Neighbor Totoro [VHS] 6305173478 Kiki's Delivery Service (Widescreen Edition) [VHS] B00001U06H Princess Mononoke: Music From The Miramax Motion Picture B002ZTQVGQ 824 Noah Lindsey Cyrus Frankie Jonas Cate Blanchett Liam Neeson Tina Fey 2.35:1 G (General Audience) DVD BUENA VISTA HOME VIDEO Hayao Miyazaki 0786936791754 0786936791754 PONYO - 2-DISC DVD (DVD MOVIE) Animated Color Dolby Dubbed DVD NTSC Subtitled Widescreen 0 1 32 English Unknown English Subtitled French Subtitled Spanish Subtitled English Original Language Japanese Original Language French Original Language English Dubbed French Dubbed 2999 USD $29.99 Disney Presents Studio Ghibli DISD101854D 2 1 DISD101854D DVD ABIS_DVD 2010 Disney Presents Studio Ghibli 1 2010-03-02 103 DS796 Disney Presents Studio Ghibli Ponyo 725 USD $7.25 786936791754 786936791754 1630 USD $16.30 948 USD $9.48 2999 USD $29.99 40 15 1 0 1 1 http://www.amazon.com/gp/offer-listing/B002ZTQVGQ%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB002ZTQVGQ New RBChgBrYJX%2Brmp7gJdp6hNVOQ%2FWrP6FnsKRQIcvV1eLCpu%2BsmlDvxN1VXVxQzGc1qF3OfP3YM9P%2BxmPxjkxhnrFvNEyuC8Cuqz4B7NkeUnBBeTspgzZurA%3D%3D 1899 USD $18.99 1100 USD $11.00 37 Usually ships in 24 hours now 0 0 1 B002ZTQVLG 1133 Kirsten Dunst Minami Takayama Rei Sakuma Kappei Yamaguchi Keiko Toda 2.35:1 G (General Audience) DVD Buena Vista Home Video Hayao Miyazaki Hayao Miyazaki Eiko Tanaka Jane Schonberger Mikihiko Tsuzuki Morihisa Takagi Eiko Kadono Hayao Miyazaki 0786936791655 0786936791655 KIKI'S DELIVERY SERVICE:SPECIAL EDITION (DVD MOVIE) AC-3 Animated Color Dolby Dubbed DVD Special Edition Subtitled Widescreen NTSC 0 1 32 English Unknown French Subtitled English Original Language Japanese Original Language French Original Language Spanish Original Language English Dubbed French Dubbed Spanish Dubbed 2999 USD $29.99 Disney Presents Studio Ghibli DISD101839D 2 1 DISD101839D DVD ABIS_DVD Disney Presents Studio Ghibli 1 2010-03-02 103 753502674 Disney Presents Studio Ghibli Kiki's Delivery Service: Special Edition - 2-Disc DVD 675 USD $6.75 786936791655 786936791655 1629 USD $16.29 1449 USD $14.49 2999 USD $29.99 45 9 1 0 1 1 http://www.amazon.com/gp/offer-listing/B002ZTQVLG%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB002ZTQVLG New Da9uz9u%2FlD6WNAWIvWIf72nCk4zgSJyZsTIt1Z1udtZrfak%2BzUQTWERe8Yvxd5%2BkbZY7ufrKyYrXQSyhNtcUpWSwW01ouP8jo%2B7yEbz%2FsO8EbguATKUeWg%3D%3D 1999 USD $19.99 1000 USD $10.00 33 Usually ships in 24 hours now 0 0 1 B002ZTQVHK 1379 Mayumi Tanaka James Van Der Beek Keiko Yokozawa Kotoe Hatsui Cloris Leachman 2.35:1 PG (Parental Guidance Suggested) DVD BUENA VISTA HOME VIDEO Hirokata Takahashi Hayao Miyazaki Hideo Ogata Isao Takahata Tatsumi Yamashita Todd Olsson Yasuyoshi Tokuma Hayao Miyazaki 0786936791617 0786936791617 CASTLE IN THE SKY: SPECIAL EDITION (DVD MOVIE) AC-3 Animated Color Dolby Dubbed DVD Special Edition Subtitled Widescreen NTSC 0 1 34 English Unknown English Subtitled French Subtitled Japanese Original Language English Original Language French Original Language English Dubbed 2999 USD $29.99 Disney Presents Studio Ghibli DISD101836D 2 1 DISD101836D DVD ABIS_DVD Disney Presents Studio Ghibli 1 2010-03-02 125 ING12749 Disney Presents Studio Ghibli Castle in the Sky: Special Edition - 2 Disc DVD 525 USD $5.25 786936791617 786936791617 1599 USD $15.99 1001 USD $10.01 2999 USD $29.99 43 14 2 0 1 1 http://www.amazon.com/gp/offer-listing/B002ZTQVHK%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB002ZTQVHK New w8MtVLk6bbDWZiV1PVB6kwRo%2BVv9sEjw2jlCbVr%2BYOMEusWTUTlqfVmDWt2rfdHMAchn1T6mhvLqrDImixovV95n46zr3Paw3aQA5v%2FKcQMXWnYsdE2rmQ%3D%3D 1999 USD $19.99 1000 USD $10.00 33 Usually ships in 24 hours now 0 0 1 B004CRR9G0 4107 Uma Thurman Patrick Stewart Shia LeBeouf 1.85:1 PG (Parental Guidance Suggested) Blu-ray BUENA VISTA HOME VIDEO Hayao Miyazaki 0786936810042 0786936810042 Multiple Formats 0 1 English Subtitled French Subtitled Japanese Original Language English Original Language French Original Language French Dubbed Japanese Dubbed 3999 USD $39.99 Walt Disney Studios Home Entertainment DISBR106207 2 DISBR106207 DVD ABIS_DVD Walt Disney Studios Home Entertainment 1 2011-03-08 118 ZB004CRR9G0Z2 Walt Disney Studios Home Entertainment Nausicaa of the Valley of the Wind (Two-Disc Blu-ray/DVD Combo) 1275 USD $12.75 786936810042 786936810042 2388 USD $23.88 2279 USD $22.79 26 4 0 0 1 1 http://www.amazon.com/gp/offer-listing/B004CRR9G0%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB004CRR9G0 New frSqDU66fadn1nXVgnLzspiSip8ko%2FGuALDPhA1jTi%2BV8SJME2K4wjAa0XKQi%2B8YxlXLHKvqGuTs4E6GG0AZD0yLypFTFNtXuM%2BmelDD4nzO2TB5TjUAvg%3D%3D 2399 USD $23.99 1600 USD $16.00 40 Usually ships in 24 hours now 0 0 1 B0001XAPZ6 2103 Sumi Shimamoto Mahito Tsujimura Hisako Kyôda Gorô Naya Ichirô Nagai 1.85:1 PG (Parental Guidance Suggested) DVD Buena Vista Home Video Hayao Miyazaki Isao Takahata Michio Kondô Ned Lott Rick Dempsey Toru Hara Yasuyoshi Tokuma Hayao Miyazaki 9780788824005 9780788824005 0786936175240 From one of the most celebrated filmmakers in the history of animation and the creator of the Academy Award(R)-winning SPIRITED AWAY (Best Animated Featured Film, 2002) comes Hayao Miyazaki's epic masterpiece NAUSICA OF THE VALLEY OF THE WIND. A thousand years after a global war, a seaside kingdom known as the Valley Of The Wind remains one of only a few areas still populated. Led by the coura Anamorphic Animated Color Dubbed DVD Widescreen NTSC 0 0788824007 1 40 English Unknown Dolby Digital 2.1 English Subtitled English Original Language Dolby Digital 2.1 Japanese Original Language Dolby Digital 2.1 Japanese Dubbed Dolby Digital 2.1 2999 USD $29.99 Walt Disney Home Entertainment DISD25344D 2 1 DISD25344D DVD ABIS_DVD Walt Disney Home Entertainment 1 2005-02-22 117 ZG04045-786936175240 Walt Disney Home Entertainment Nausicaa of the Valley of the Wind 700 USD $7.00 786936175240 786936175240 1795 USD $17.95 1299 USD $12.99 2999 USD $29.99 46 25 3 0 1 1 http://www.amazon.com/gp/offer-listing/B0001XAPZ6%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB0001XAPZ6 New 5ohXYkg9W7tyrZbPj7UEgZqo9U0tIXcGoVI482wzwb2077wAVagIhZ4AVUgNh4rgHhCe%2BWZyCGa9LV77fl6qpKXza8VsP5LbKz3EuYhGHio%3D 1999 USD $19.99 1000 USD $10.00 33 Usually ships in 24 hours now 0 0 1 B002ZTQVBQ 5854 Noah Lindsey Cyrus Frankie Jonas Cate Blanchett Liam Neeson Tina Fey 1.85:1 G (General Audience) Blu-ray Buena Vista Home Video Hayao Miyazaki 0786936791761 0786936791761 PONYO - 2-DISC BLU-RAY (BLU-RAY DISC) Multiple Formats 0 1 28 English Unknown English Subtitled French Subtitled Spanish Subtitled English Original Language Japanese Original Language French Original Language English Dubbed French Dubbed 3999 USD $39.99 Walt Disney Studios Home Entertainment DISBR101856 2 1 DISBR101856 DVD ABIS_DVD Walt Disney Studios Home Entertainment 1 2010-03-02 103 1MX3KQ000792 Walt Disney Studios Home Entertainment Ponyo (Two-Disc Blu-ray/DVD Combo) 840 USD $8.40 786936791761 786936791761 2200 USD $22.00 1487 USD $14.87 30 12 0 0 1 1 http://www.amazon.com/gp/offer-listing/B002ZTQVBQ%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB002ZTQVBQ New vxg7p0U45754aupplgOFFTQPqJ6b2gdqmhoDszvBni%2FhK1OMWTxrp8Jm5SzgH99%2B%2BDopizJUxe0pb%2BgZzBBPC7oyGVnVxR8S8pNXgW3su2UAdaGme1fiLQ%3D%3D 2599 USD $25.99 1400 USD $14.00 35 Usually ships in 24 hours now 0 0 1 Net-Amazon-0.62/t/canned/asin_cdm.xml0000644666302512716660000001162411652645233017255 0ustar boumenotpg1319368 B00005A46I 40321 Anne Sofie von Otter Elvis Costello Audio CD VON OTTER,ANNE SOFI 469530 0028946953020 0028946953020 500 50 24 575 English Original Language 1798 USD $17.98 Deutsche Grammophon 1 1 Music ABIS_MUSIC Deutsche Grammophon 2001-04-10 jp-bk-B00005A46I-2-1 Deutsche Grammophon For the Stars 028946953020 028946953020 563 USD $5.63 1 USD $0.01 48 71 0 0 1 1 http://www.amazon.com/gp/offer-listing/B00005A46I%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB00005A46I New QRZAsfNhtqQNI9ADf8nu5kDllU8kGf%2FLQv2K9IGZWelrhF6TlDolkuGtH5AlVOI%2FxbItDLC3SZK6mSfr5wQKLVSXB3NZohCkGdCToa8KY8A%3D 1337 USD $13.37 461 USD $4.61 26 Usually ships in 24 hours now 0 0 1 No Wonder Baby Plays Around Go Leave Rope Don't Talk (Put Your Head On My Shoulder) Broken Bicycles / Junk The Other Woman Like An Angel Passing Through My Room Green Song April After All You Still Believe In Me I Want To Vanish For No One Shamed Into Love Just A Curio This House Is Empty Now Take It With Me For The Stars Net-Amazon-0.62/t/canned/isbn.xml0000644666302512716660000000426711253707751016441 0ustar boumenotpg1319368 0439784549 232 J.K. Rowling Hardcover Mary GrandPré 9780439784542 0439784549 2999 USD $29.99 Scholastic, Inc. 1 652 187 978 235 636 Book 2005-07-16 Scholastic, Inc. Ages 9-12 2005-07-16 Scholastic, Inc. Harry Potter and the Half-Blood Prince (Book 6) 998 USD $9.98 226 USD $2.26 2999 USD $29.99 136 301 73 0 Net-Amazon-0.62/t/canned/asin_mua.xml0000644666302512716660000001244211652645234017274 0ustar boumenotpg1319368 0201633612 2230 Erich Gamma Richard Helm Ralph Johnson John Vlissides Hardcover 9780201633610 0785342633610 9780201633610 1 0201633612 1 2.37 2 1.87 English Unknown English Original Language English Published 5999 USD $59.99 Addison-Wesley Professional 1 416 Book ABIS_BOOK 1994-11-10 Addison-Wesley Professional 1MX3BH001N56 Addison-Wesley Professional Design Patterns: Elements of Reusable Object-Oriented Software 1800 USD $18.00 785342633610 785342633610 2497 USD $24.97 1700 USD $17.00 61 98 0 0 1 1 http://www.amazon.com/gp/offer-listing/0201633612%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D0201633612 New KKQfloznSz9jtfoKy%2BmyuLsHMw4fCOLzT0g9%2B62Ok0wnnIJYp%2FzH1y8aEuiNxEFIXs2OCD2YGjdfToClC7fDx6slV7GElXIPjdauOkMpA%2FU%3D 3829 USD $38.29 2170 USD $21.70 36 Usually ships in 24 hours now 0 0 1 0131489062 Applying UML and Patterns: An Introduction to Object-Oriented Analysis and Design and Iterative Development (3rd Edition) 0321247140 Design Patterns Explained: A New Perspective on Object-Oriented Design (2nd Edition) 0201485672 Refactoring: Improving the Design of Existing Code 0136135161 SOA Design Patterns (The Prentice Hall Service-Oriented Computing Series from Thomas Erl) 0321509366 Emergent Design: The Evolutionary Nature of Professional Software Development Net-Amazon-0.62/t/canned/author.xml0000644666302512716660000002364411652645236017012 0ustar boumenotpg1319368 3 1 http://www.amazon.com/gp/redirect.html?camp=2025&creative=386001&location=http%3A%2F%2Fwww.amazon.com%2Fgp%2Fsearch%3Fkeywords%3DMichael%2BSchilli%26url%3Dsearch-alias%253Dstripbooks&linkCode=xm2&tag=blogdivebombo-20&SubscriptionId=1V5JRJ4JQCSHB3NGG902 0201360683 2831243 http://ecx.images-amazon.com/images/I/516Y2ENTVFL._SL75_.jpg 75 54 http://ecx.images-amazon.com/images/I/516Y2ENTVFL._SL160_.jpg 160 116 http://ecx.images-amazon.com/images/I/516Y2ENTVFL.jpg 475 345 Michael Schilli Paperback AL07005145 9780201360684 9780201360684 0201360683 English Unknown English Original Language English Published 3999 USD $39.99 Addison-Wesley Professional 1 464 Book ABIS_BOOK 1998-12-16 Addison-Wesley Professional 3_0201360683 Addison-Wesley Professional Perl Power!: A JumpStart Guide to Programming with Perl 5 200 USD $2.00 80 USD $0.80 11 17 0 0 0 0 0 3827313783 http://ecx.images-amazon.com/images/I/41DCASXRYML._SL75_.jpg 75 53 http://ecx.images-amazon.com/images/I/41DCASXRYML._SL160_.jpg 160 112 http://ecx.images-amazon.com/images/I/41DCASXRYML.jpg 500 351 Michael Schilli Hardcover 9783827313782 9783827313782 3827313783 German Unknown German Original Language German Published Book ABIS_BOOK MAK_MNT_9783827313782 Go To Perl 5 . 3934 USD $39.34 0 3 0 0 0 0 0 3540284028 10717237 http://ecx.images-amazon.com/images/I/41Ba1lx1inL._SL75_.jpg 75 49 http://ecx.images-amazon.com/images/I/41Ba1lx1inL._SL160_.jpg 160 106 http://ecx.images-amazon.com/images/I/41Ba1lx1inL.jpg 420 277 August-Wilhelm Scheer Manfred Boczanski Michael Muth Willi-Gerd Schmitz Uwe Segelbacher Hardcover A. Cocchi C. Herzog I. Kern H. Okruch A. Schadenberger B. Schilli M. Stürken 9783540284024 9783540284024 1 3540284028 German Unknown German Original Language German Published 7995 USD $79.95 Springer 1 276 Book ABIS_BOOK 2005-10-05 Springer MUK3540284028 Springer Prozessorientiertes Product Lifecycle Management (German Edition) 6504 USD $65.04 9326 USD $93.26 12 5 0 0 1 1 http://www.amazon.com/gp/offer-listing/3540284028%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D3540284028 New vxAQXieuYbzqnQpUSyamoEFoCefPp2%2Fvei1rtCowbEVhzhryssRVF0wM6rF8FtuucBcmw3YHJJqiNHlxMAAWqhnKz8qezoJUlqOaHSNvd4oZt0T87y60CQ%3D%3D 7995 USD $79.95 Temporarily out of stock. Order now and we'll deliver when available. We'll e-mail you with an estimated delivery date as soon as we have more information. Your credit card will not be charged until we ship the item. unknown 672 1008 1 Net-Amazon-0.62/t/canned/title.xml0000644666302512716660000005214511652645276016633 0ustar boumenotpg1319368 277 28 http://www.amazon.com/gp/redirect.html?camp=2025&creative=386001&location=http%3A%2F%2Fwww.amazon.com%2Fgp%2Fsearch%3Fkeywords%3Dcagliostro%26url%3Dsearch-alias%253Dstripbooks&linkCode=xm2&tag=blogdivebombo-20&SubscriptionId=1V5JRJ4JQCSHB3NGG902 1905857829 173824 Philippa Faulks Robert L D Cooper Hardcover 9781905857821 9781905857821 1905857829 1 English Unknown English Original Language English Published 2495 USD $24.95 Watkins 1 368 Book ABIS_BOOK 2008-10-07 Watkins 5946918-n Watkins The Masonic Magician: The Life and Death of Count Cagliostro and His Egyptian Rite 274 USD $2.74 1380 USD $13.80 1095 USD $10.95 2500 USD $25.00 24 22 1 0 1 1 http://www.amazon.com/gp/offer-listing/1905857829%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D1905857829 New BBX1cv0QIkEHTmiZ%2BTs8QE2%2FQKCIyInNA8RJwKtCvDIfAh0MKzp2bIxwQMinwA34rBtH3maS%2BDBsawVVtTJFDY%2FfBPQf6jnTKepnpig60Yk%3D 1663 USD $16.63 832 USD $8.32 33 Usually ships in 24 hours now 0 0 1 B004UO64ES Heinrich Conrad Kindle Edition Kindle eBook German Published 0 USD $0.00 1 eBooks ABIS_EBOOKS 2011-03-31 2011-03-31 Der Graf Cagliostro (German Edition) B0006ARXZE 1041960 Harry C Schnur Hardcover B0006ARXZE English Published Beechhurst Press 316 Book ABIS_BOOK 1949 Beechhurst Press NB-428584 Beechhurst Press Mystic rebels; Apollonius Tyaneus, Jan van Leyden, Sabbatai Zevi, Cagliostro 695 USD $6.95 2750 USD $27.50 0 14 1 0 0 0 0 B0007NLUU4 982742 Iain McCalman Hardcover 1st Bargain Price 2595 USD $25.95 1 288 Book ABIS_BOOK 2003-06-01 mon0000229382 The Last Alchemist: Count Cagliostro, Master of Magic in the Age of Reason 1130 USD $11.30 311 USD $3.11 529 USD $5.29 4 8 1 0 0 0 0 B004WLCTZ2 Friedrich Oppeln-Bronikowski von Kindle Edition Kindle eBook German Published 0 USD $0.00 1 eBooks ABIS_EBOOKS 2011-04-13 2011-04-13 Der Schwarzkünstler Cagliostro (German Edition) B0007E456O 2092653 W. R. H Trowbridge Hardcover B0007E456O English Unknown University Books 312 Book ABIS_BOOK 1961 University Books B0007E456O-4-DEN-UI30701508 University Books Cagliostro; Savant or Scoundrel?: The true role of this splendid, tragic figure 995 USD $9.95 1188 USD $11.88 0 5 2 0 0 0 0 1935558323 134878 Maurice Leblanc Paperback Jean-Marc Lofficier Randy Lofficier 9781935558323 9781935558323 1935558323 English Unknown English Original Language English Published 2295 USD $22.95 Hollywood Comics 1 336 Book ABIS_BOOK 2010-05-31 Hollywood Comics I9781935558323 Hollywood Comics Arsene Lupin vs Countess Cagliostro 2086 USD $20.86 2067 USD $20.67 12 1 0 0 1 1 http://www.amazon.com/gp/offer-listing/1935558323%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D1935558323 New IsHiUHo2f8SyXiQsbHLaIL2FnHTbkxoaimBCzeBPbTggi1RcmSOfzB6AjwG%2B3j9B2miLW%2BTXsa4Yx%2FdQzjmD%2FxmKlpnS8cx06ijZxr8Q%2BHHBPR3ECFmc3g%3D%3D 2295 USD $22.95 futureDate 0 0 1 0913866709 1804689 Bruno Sigon Paperback 9780913866702 9780913866702 0913866709 English Unknown English Original Language English Published 1800 USD $18.00 U.S. Games Systems 1 78 Book ABIS_BOOK 1993-01 U.S. Games Systems 3_0913866709 U.S. Games Systems Cagliostro Tarot Deck 10000 USD $100.00 5820 USD $58.20 8 13 0 0 0 0 0 1593934769 1536395 Philip Riley Paperback 9781593934767 9781593934767 1593934769 English Unknown English Original Language English Published 2495 USD $24.95 BearManor Media 1 160 Book ABIS_BOOK 2009-11-02 BearManor Media M1593934769 BearManor Media Cagliostro 2195 USD $21.95 2095 USD $20.95 11 2 0 0 1 1 http://www.amazon.com/gp/offer-listing/1593934769%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D1593934769 New tI7PBzWnH2io%2BnzxSNIgmEXHWtTS3RNbeg2nZeiDbrtDmLBufggHmA5OUeB3I1Mke1lupdq0%2BA8CX5BYodoKi6yuSPG%2BxATxHyJHCEGaFse5P3wE%2BXI90A%3D%3D 2495 USD $24.95 Usually ships in 24 hours now 0 0 1 B00085JNPA 2488893 Harry Stephen Keeler Hardcover B00085JNPA 1ST English Unknown English Published E.P. Dutton & Co 384 Book ABIS_BOOK 1929 E.P. Dutton & Co 5142841310 E.P. Dutton & Co The spectacles of Mr. Cagliostro 2370 USD $23.70 0 4 0 0 0 0 0 Net-Amazon-0.62/t/canned/seller.xml0000644666302512716660000002016711652650722016767 0ustar boumenotpg1319368 1735 174 Y11M5526205M1732079 1221T896306 0376055723 19 0 0 National Parks of the West by Sunset Books; Sunset Magazine & Book 405 USD $4.05 2008-09-19 Open 1 used good A23JJ2BNHZMFCO brick_road_books Y11M4112817M6890583 1221R251778 0762188731 40 0 0 The Moonstone (The Best Mysteries of All Time) by Collins, Wilkie 630 USD $6.30 2008-09-19 Open 1 used mint A23JJ2BNHZMFCO brick_road_books Y11M1456061M8942330 1221L671212 0061014591 41 0 0 The Terrible Hours [Mass Market Paperback] by Maas, Peter 293 USD $2.93 2008-09-19 Open 1 used verygood A23JJ2BNHZMFCO brick_road_books Y11M1082685M7692543 1221L897533 0140150552 53 0 0 The Portable Henry James (Viking Portable Library) by James, Henry 585 USD $5.85 2008-09-19 Open 1 used good A23JJ2BNHZMFCO brick_road_books Y11M3628209M1816687 1221A221024 0743436210 66 0 0 Hearts in Atlantis by King, Stephen 158 USD $1.58 2008-09-19 Open 1 used mint A23JJ2BNHZMFCO brick_road_books Y11M4422098M8344962 1221K898760 0679429220 72 0 0 Midnight in the Garden of Good and Evil [Hardcover] by Berendt, John 473 USD $4.73 2008-09-19 Open 1 used verygood A23JJ2BNHZMFCO brick_road_books Y11M1651048M1070096 1221H254232 0590435140 79 0 0 When No One Was Looking...Someone Died by Wells, Rosemary 199 USD $1.99 2008-09-19 Open 1 used good A23JJ2BNHZMFCO brick_road_books Y11M1512807M4322331 1221L351402 1559583495 85 0 0 Romance Writer's Pink Pages: The Insider's Guide to Getting Your Romance Nove... 215 USD $2.15 2008-09-19 Open 1 used verygood A23JJ2BNHZMFCO brick_road_books Y11M5448158M7125215 1221L804044 0436209519 100 0 0 Meyer Meyer by Hudson, Helen 1350 USD $13.50 2008-09-19 Open 1 used verygood A23JJ2BNHZMFCO brick_road_books Y11M3246682M5419966 1221B674893 0553210130 98 0 0 Canterbury Tales by Chaucer, Geoffrey 261 USD $2.61 2008-09-19 Open 1 used good A23JJ2BNHZMFCO brick_road_books Net-Amazon-0.62/t/canned/power_empty.xml0000644666302512716660000000202211652645270020043 0ustar boumenotpg1319368 True 1 author: randal schwartz and author: mike schilli Large Books salesrank AWS.ECommerceService.NoExactMatches We did not find any matches for your request. 0 0 http://www.amazon.com/gp/redirect.html?camp=2025&creative=386001&location=http%3A%2F%2Fwww.amazon.com%2Fgp%2Fsearch%3Furl%3Dsearch-alias%253Dstripbooks&linkCode=xm2&tag=blogdivebombo-20&SubscriptionId=1V5JRJ4JQCSHB3NGG902 Net-Amazon-0.62/t/canned/mp3downloads.xml0000644666302512716660000006127411652645265020125 0ustar boumenotpg1319368 104 11 http://www.amazon.com/gp/redirect.html?camp=2025&creative=386001&location=http%3A%2F%2Fwww.amazon.com%2Fgp%2Fsearch%3Fkeywords%3DHand%2Bin%2BMy%2BPocket%26url%3Dsearch-alias%253Ddigital-music&linkCode=xm2&tag=blogdivebombo-20&SubscriptionId=1V5JRJ4JQCSHB3NGG902 B001OG3VSW 2145 MP3 Download Alanis Morissette pop-music Maverick Digital Music Track DOWNLOADABLE_MUSIC_TRACK Maverick 2008-12-23 221 Maverick Hand In My Pocket 4 99 USD $0.99 1 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B001OG3VSW%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB001OG3VSW New laDll7yWZf5nUuorVqBzt7Rxbb0deTA%2B06lO8hmkJjk%2BQ%2F4%2FZ55tgpThiRM5aJdb7%2F%2F1n8DjMhpwsLc7e9C%2BCn0PdBSQfEtw5fg8cilDC9zsIBd5pxar7CJ1KYHyNZX%2FRDnIGRWPGdCREfZXFGPKbpc5tKMW9WBa 99 USD $0.99 Usually ships in 1-2 business days now 24 48 0 B00122HP62 13297 MP3 Download Alanis Morissette adult-alternative-pop-music Maverick Digital Music Track DOWNLOADABLE_MUSIC_TRACK Maverick 2005-11-15 219 Maverick Hand In My Pocket 18 99 USD $0.99 1 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B00122HP62%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB00122HP62 New 6a96hBV7c5zwRcoob8pD8MxTUBeQ8ZfQZLPuqIg%2FGJswmKG5KE6C%2Fcm5X%2FBXSos%2F4ab7Hf6Oo%2B6f5wQb1aLsmlU7T%2FeUvIjkZIyyfMVQUnqm%2BuNo9kSeitk1%2BooHmwdMSPJ%2BgHZLOJUsVfVrPA2U9mfvdzD09dGJ 99 USD $0.99 Usually ships in 1-2 business days now 24 48 0 B00122KUY6 166097 MP3 Download Alanis Morissette pop-music Maverick Digital Music Track DOWNLOADABLE_MUSIC_TRACK 2005-07-23 Maverick 2005-07-26 270 Maverick Hand In My Pocket (Acoustic Album Version) 4 99 USD $0.99 1 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B00122KUY6%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB00122KUY6 New VT9S4sg5dFb57mXSZpFtTmMfsHVVj%2FsfWrUfzvbkE9ofGgU4ETih7n3rUvVXMZjI9kqqiec6Q0FiEpEhm6wYM15d0WC2rlTyVw5mctAqNivQa3jLKUDQC%2BBzH6tz0nfCZhbeJTsPsD5sHpgBPBrkZmuNy40%2FOxLM 99 USD $0.99 Usually ships in 1-2 business days now 24 48 0 B005FAJQ5U 328840 MP3 Download Sunfly Karaoke alternative-music Sunfly Music Group Digital Music Track DOWNLOADABLE_MUSIC_TRACK Sunfly Music Group 2009-08-10 233 Sunfly Music Group Hand in My Pocket in the Style of Alanis Morissette 3 99 USD $0.99 1 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B005FAJQ5U%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB005FAJQ5U New bdG4uKWHIaQJ%2BIOy%2Fi%2FFwhzXlDU7QvHSQH%2FjklSPvh09%2FDUiiSKwtd2v8XQYctyeZrRf4Fe%2BDPwQ3Mlmzvwzp4y1kdF59sFE3TzVSxMxW4fnz%2Bm6c8iRqBd0EHBvgYyh%2BMEU7horJF3FKDSafMX21mieV3511tKw 99 USD $0.99 Usually ships in 1-2 business days now 24 48 0 B0032K3PPW 1221198 MP3 Download Mirrors alternative-music Overground Records Digital Music Track DOWNLOADABLE_MUSIC_TRACK Overground Records 2007-08-06 138 Overground Records Hands In My Pockets 1 89 USD $0.89 1 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B0032K3PPW%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB0032K3PPW New AvNT4AwBRSR73TGvs1ek9WfBNvsIz5E%2FA5jm%2B9HQ%2FUO2rIWmIIBjfqc9%2FZMRXrOWvhhBleKILqJObBH1d0CTz1WtrViLjyWoJB4yAEnoUB98512xhOhGpOY%2BTXjJol7EUG3C8d3%2FJbY876PGC7%2BNij%2BzZcFTjORp 89 USD $0.89 Usually ships in 1-2 business days now 24 48 0 B0029B4OWS 79679 MP3 Download APM Karaoke pop-music APM Music Digital Music Track DOWNLOADABLE_MUSIC_TRACK APM Music 2008-05-01 221 APM Music Hand In My Pocket 3 89 USD $0.89 1 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B0029B4OWS%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB0029B4OWS New Uuu7g4tXtfRA9skIGlcpbMhBWcO8k7qlq%2F5Bofyxz7w1LouzjnqqpEdCH6JVsMzSs3Ac1R5zuRzBek9yjhiAiZjGOujDGBy7zEd22ak6bFQztvMSIAk3ri5oYQZpUeIK1jwupb%2Fs9z6ad2xTXLQjz1Rnn5eglKD2 89 USD $0.89 Usually ships in 1-2 business days now 24 48 0 B000SF06JM 1219949 MP3 Download Vitamin String Quartet pop-music Vitamin Records Digital Music Track DOWNLOADABLE_MUSIC_TRACK Vitamin Records 2007-03-27 215 Vitamin Records Hand In My Pocket 4 99 USD $0.99 1 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000SF06JM%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB000SF06JM New i8FB6HRDHjDQlfhCNJ6GpIK9pisLIu8TDKsJltbDh0F9sX9IwywH3kHqBmD4xgWbVM%2B5v8O3tQ2f1HcG4KcmzBMaz5DF2D7ZiFhF%2F0H%2FXT9IpgxHfSeBEnc6MYY02mvfNIcm4A9lN87vH162dc8ReQ3shKtgOlcL 99 USD $0.99 Usually ships in 1-2 business days now 24 48 0 B002STGO4C 1277322 MP3 Download Rolf Harris pop-music CAROLINE WORLD SERVICE CATALOG Digital Music Track DOWNLOADABLE_MUSIC_TRACK 2009-09-08 CAROLINE WORLD SERVICE CATALOG 2009-11-03 291 CAROLINE WORLD SERVICE CATALOG One Hand In My Pocket 2 99 USD $0.99 1 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B002STGO4C%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB002STGO4C New ekmuQxQ6PyyP5ogjjaY2xWXRgpzsyKrmYci9Ay%2FvKbg3wqsOywkQkPqIg2vYT6GcJGEFKSDITg%2BTenF6OZZ%2FXTlk9ZbnqSPGoBBFXp3NIB%2FZioOhnsF%2FOF%2F63oHKqhHQk9uQzB9%2F9PkUNMmd0Ydq5Jw%2FXzbv7gIt 99 USD $0.99 Usually ships in 1-2 business days now 24 48 0 B004FXAH4M 1934557 MP3 Download The Karaoke Channel pop-music Stingray Music (Karaoke) Digital Music Track DOWNLOADABLE_MUSIC_TRACK Stingray Music (Karaoke) 2010-12-03 215 Stingray Music (Karaoke) Hand In My Pocket (in the style of Alanis Morissette) (Karaoke Version) 3 99 USD $0.99 1 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B004FXAH4M%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB004FXAH4M New K%2Fvy2vSP8ucKkPwPLj%2FflHoDNJR2kg9dS5xpaPb8bsIe2WHoO3R4Uqq6xVJPKLzBN3Ih7Y0z9lLg8iUW0YTULwVUf06gSVAJTapjw%2FnTk2OylRanDr%2B0y7D9%2BUJt7r%2B8RTkBitv8PghMcXlK6E1IKYoZu6qJ4G2Z 99 USD $0.99 Usually ships in 1-2 business days now 24 48 0 B0026OHU88 1441232 MP3 Download Pictomusic Karaoke pop-music Pictomusic Digital Music Track DOWNLOADABLE_MUSIC_TRACK Pictomusic 2008-07-01 220 Pictomusic Hand In My Pocket (Instrumental Version) [Karaoke Version In The Style Of Alanis Morissette] 1 89 USD $0.89 1 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B0026OHU88%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB0026OHU88 New ibbVzUx%2F0vzwK0SctRCzQ6rf13vqdHcKSgiQc3wk1RzaoEVGjqUpEXZFnwtRnUjt2DM%2FSlm3ZCER5Zjjn%2BEQbNzj89zsuzVJKu1g7FOVDB8PC2LvDg1jemega2MgAInIW%2FglbLxFt320vd0uywMDcqJDNblj91es 89 USD $0.89 Usually ships in 1-2 business days now 24 48 0 Net-Amazon-0.62/t/canned/browse.xml0000644666302512716660000011727711652645254017017 0ustar boumenotpg1319368 6 1 http://www.amazon.com/gp/redirect.html?camp=2025&creative=386001&location=http%3A%2F%2Fwww.amazon.com%2Fgp%2Fsearch%3Fnode%3D4025%26keywords%3Dcourse%26url%3Dsearch-alias%253Dstripbooks&linkCode=xm2&tag=blogdivebombo-20&SubscriptionId=1V5JRJ4JQCSHB3NGG902 0619034408 1038781 Diane Zak Paperback 9780619034405 9780619034405 1 0619034408 English Unknown English Original Language English Published 11295 USD $112.95 Course Technology 1 384 Book ABIS_BOOK 2001-08-09 Course Technology AB-11966328 Course Technology CGI/Perl (Web Warrior Series) 1895 USD $18.95 15 USD $0.15 20 45 0 0 1 1 http://www.amazon.com/gp/offer-listing/0619034408%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D0619034408 New 85u9NQYfypmAjCTiD%2FasgXY%2BDWQyDMVURjOzIbJ5VVBsx6MprJYD7Qm5ox%2FIvNSszQF3xdqv5Rv2df%2BB%2B2rLvVO8Lnxr7LShE5L9dwE7tyE%3D 11295 USD $112.95 Usually ships in 24 hours now 0 0 1 3740 Networks, Protocols & APIs 3652 Networking 5 Computers & Internet 1000 Subjects 1 283155 Books 3952 Languages & Tools 379359011 Ajax 3954 Assembly Language Programming 3955 Borland Delphi 697342 C# 379357011 CSS 3970 Compiler Design 3971 Compilers 3977 Fortran 3981 Lisp 3987 Prolog 285856 Python 3996 Visual Basic 285859 XHTML 4052 XML 3839 Programming 5 Computers & Internet 1000 Subjects 1 283155 Books 4053 Software 5 Computers & Internet 1000 Subjects 1 283155 Books 3600 Programming 3510 Web Development 5 Computers & Internet 1000 Subjects 1 283155 Books 491302 Networking 468204 Computer Science 465600 New & Used Textbooks 2349030011 Specialty Boutique 283155 Books 491314 Programming Languages 468204 Computer Science 465600 New & Used Textbooks 2349030011 Specialty Boutique 283155 Books 1288264011 All product 1267878011 Products 1 1267877011 1294449011 Books 1267878011 Products 1 1267877011 1297818011 Books 1294322011 Deep discounts 1267879011 Special Features 1267877011 1562439588 Paperback 9781562439583 9781562439583 1562439588 English Unknown English Original Language English Published 2200 USD $22.00 D D C Pub Book ABIS_BOOK 2000-11 D D C Pub D D C Pub Mastering Cgi/Perl One-Day Course 0 0 0 0 0 0 0 3952 Languages & Tools 379359011 Ajax 3954 Assembly Language Programming 3955 Borland Delphi 697342 C# 379357011 CSS 3970 Compiler Design 3971 Compilers 3977 Fortran 3981 Lisp 3987 Prolog 285856 Python 3996 Visual Basic 285859 XHTML 4052 XML 3839 Programming 5 Computers & Internet 1000 Subjects 1 283155 Books 1585770671 Paperback 9781585770670 9781585770670 1585770671 English Unknown English Original Language English Published 3000 USD $30.00 D D C Pub Book ABIS_BOOK 2001-12-01 D D C Pub D D C Pub Developing Cgi Scripts Using Perl One-Day Course 0 0 0 0 0 0 0 3952 Languages & Tools 379359011 Ajax 3954 Assembly Language Programming 3955 Borland Delphi 697342 C# 379357011 CSS 3970 Compiler Design 3971 Compilers 3977 Fortran 3981 Lisp 3987 Prolog 285856 Python 3996 Visual Basic 285859 XHTML 4052 XML 3839 Programming 5 Computers & Internet 1000 Subjects 1 283155 Books 0619073675 Spiral-bound 9780619073671 9780619073671 0619073675 10000 USD $100.00 Course Technology 1 160 Book ABIS_BOOK 2001-11 Course Technology Course Technology Course Ilt: Cgi/Perl 10000 USD $100.00 1 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/0619073675%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D0619073675 New 0xuYm3pWw%2Bi3S9vHF8IoQyd%2BbX4lN4gqQiim5jEL4Odog9J3%2FCIy%2BtEc1ibEJJS9Nr39o4CPDpO6qaOGaOkyCpmgEm4EVeXAwczk%2B16cwcw%3D 10000 USD $100.00 Usually ships in 1 to 3 weeks now 144 360 1 3952 Languages & Tools 379359011 Ajax 3954 Assembly Language Programming 3955 Borland Delphi 697342 C# 379357011 CSS 3970 Compiler Design 3971 Compilers 3977 Fortran 3981 Lisp 3987 Prolog 285856 Python 3996 Visual Basic 285859 XHTML 4052 XML 3839 Programming 5 Computers & Internet 1000 Subjects 1 283155 Books 0130930415 Harvey M. Deitel Paperback 9780130930415 9780130930415 0130930415 English Unknown English Original Language English Published Prentice-Hall 1 Book ABIS_BOOK 2001-09-05 Prentice-Hall Prentice-Hall Complete Perl and CGI Web Edition Training Course 0 0 0 0 0 0 0 3952 Languages & Tools 379359011 Ajax 3954 Assembly Language Programming 3955 Borland Delphi 697342 C# 379357011 CSS 3970 Compiler Design 3971 Compilers 3977 Fortran 3981 Lisp 3987 Prolog 285856 Python 3996 Visual Basic 285859 XHTML 4052 XML 3839 Programming 5 Computers & Internet 1000 Subjects 1 283155 Books 4053 Software 5 Computers & Internet 1000 Subjects 1 283155 Books 1571691014 10594064 Reuven Lerner Hardcover 9781571691019 9781571691019 1571691014 English Unknown English Original Language English Published 4999 USD $49.99 Waite Group Pr Book ABIS_BOOK 1997-10 Waite Group Pr Waite Group Pr Cgi Programming Interactive Course 0 0 0 0 0 0 0 3652 Networking 377893011 Home Networks 3711 Intranets & Extranets 377894011 Network Administration 377895011 Network Programming 3746 Network Security 3740 Networks, Protocols & APIs 377896011 Telephony 3722 Wireless Networks 5 Computers & Internet 1000 Subjects 1 283155 Books 3952 Languages & Tools 379359011 Ajax 3954 Assembly Language Programming 3955 Borland Delphi 697342 C# 379357011 CSS 3970 Compiler Design 3971 Compilers 3977 Fortran 3981 Lisp 3987 Prolog 285856 Python 3996 Visual Basic 285859 XHTML 4052 XML 3839 Programming 5 Computers & Internet 1000 Subjects 1 283155 Books Net-Amazon-0.62/t/canned/blendedm.xml0000644666302512716660000052452011652645252017257 0ustar boumenotpg1319368 3619 1213 B003NZG936 212 Six Star Sales 0652695401350 0652695401350 This is just for a Bulk bag 8 ounces of Clear polymer pearls, they are created by simply adding water, the displays are not included. This is not a small 10 gram little package-it is 8 ounces = 225 grams- will make up to 6 gallons or 24 quarts of Pearls depending on water used. The "purer" the water, the larger the crystals will grow. Distilled water is the best Olor is by using Submersible lights-Water Pearls are clear. The Pearl balls are very tiny beads when you receive. Material: non-toxic super absorbent cross-linked polymer. How long does it last: It is reusable and can last for up to 4 months as long as you keep adding water Six Star Sales CL/WaterPearls/8oz CL/WaterPearls/8oz CL/WaterPearls/8oz Single Detail Page Misc MISC_OTHER Six Star Sales Six Star Sales Water Pearls-CLEAR-Centerpiece Wedding Tower Vase Filler-makes 6 gallons (8 oz pack) 652695401350 652695401350 790 USD $7.90 5 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B003NZG936/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New 3Av5h4QKcJEVtlmtTyUCwWKm3qDOySPfK2MZROyJt4tLtrXskrBqUNb9vRs5VCsEh1Hv9pJboB92zMDXQXQ15DyFKIpxFt5xUiIUQMGGB4KjhfhZe0Ga3fVJ4Q8%2Bb4bI2xk580UQ5yY3F7Zrsbm6%2FA%3D%3D 889 USD $8.89 Usually ships in 1-2 business days now 24 48 0 B000ASPCN2 5043 Kitchen Persil Persil Megaperls Color is a high-efficiency concentrated laundry detergent specially formulated to protect dark and bright colors. It ensures the best cleaning performance while being gentle on your clothes and the environment. Persil Megaperls Color will keep colors bright and clothes looking new longer. 45 loads per box. Use about 1/4 cup per load. PMC45E 1 PMC45E Health and Beauty HOME IX-9R01-1OUA Miele / Henkel : Persil Megaperls Color European Laundry Detergent - 45 loads 4298 USD $42.98 7 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000ASPCN2/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New bNoQHC7BRCI67i5i6eDmrbhcUrpPKBqwk1j64m%2BB9KCV5uJkaojmhc%2B3nothv7jC9iFRnaOEfNRcoh7z7ypxWn6qdMWJMAaM%2Bl9%2BQxnZuMNmCqUSTAm3jJjTxpTHTT2OZSJku5UBeeC6pYASyYo0rBpPDI4g0OvX 4298 USD $42.98 Usually ships in 1-2 business days now 24 48 0 B000ASNBN0 7018 Kitchen Persil by Henkel Persil Megaperls is specially formulated to protect whites and lighter colors. High-efficiency heavy-duty laundry detergent for use with most types of fabrics. Great for whites, light colors and colorfast fabrics. Cleans in temperatures as low as 68 degrees Fahrenheit Not suitable for wool or silk. Henkel AG & CO Health and Beauty HOME Henkel AG & CO HJ-QDUD-F5Q8 Henkel AG & CO Miele / Henkel : Persil Megaperls Universal European Laundry Detergent - 45 loads 4298 USD $42.98 8 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000ASNBN0/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New WFHQr6XD3ux2v9MQkm0Fohy7tTogNjhchi5xAbR%2BVmaWz8udlOelO4%2FFSfHTVS6che65medXJp%2FvnSIXKMyM770eVw%2F1C1BH8sIROLh%2BjyPYLxNpE8ciErEUGVRZRK5cQAycNJ6zK1wmaUOxGPrsQMvx3sAaPTBi 4298 USD $42.98 Usually ships in 1-2 business days now 24 48 0 B00005A1V9 51768 Angie Dickinson Dennis Weaver Robert Wagner Lesley Ann Warren Tiana Alexandra NR (Not Rated) VHS Tape 21169 Gayne Rescher Donald R. Rode Frank Konigsberg Sam Manners Stirling Silliphant 9780790760674 9780790760674 0085392116935 Closed-captioned Color NTSC 0790760673 English Unknown 1998 USD $19.98 Warner Home Video 2 Video ABIS_VIDEO Warner Home Video 2001-05-08 278 0-R-4-0004 Warner Home Video Pearl (The Miniseries) [VHS] 085392116935 085392116935 2366 USD $23.66 494 USD $4.94 2260 USD $22.60 7 18 2 0 0 0 http://www.amazon.com/gp/offer-listing/B00005A1V9/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 0792839935 88475 Godfrey Cambridge Raymond St. Jacques Calvin Lockhart Judy Pace Redd Foxx R (Restricted) VHS Tape 207380 Gerald Hirschfeld Robert Q. Lovett Samuel Goldwyn Jr. Arnold Perl Chester Himes Ossie Davis 9780792839934 9780792839934 0027616738035 Closed-captioned Color HiFi Sound Original recording reissued NTSC 0792839935 English Unknown 994 USD $9.94 MGM (Video & DVD) 1 Video ABIS_VIDEO MGM (Video & DVD) 2001-01-09 97 vhsuAGA006af-8z MGM (Video & DVD) Cotton Comes to Harlem [VHS] 027616738035 027616738035 945 USD $9.45 270 USD $2.70 1599 USD $15.99 3 16 1 0 1 1 http://www.amazon.com/gp/offer-listing/0792839935/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New OWT79uZrDU4JQTXOMgB%2B0IWJPDcX2MV7JeeR8SXAKMhrsnlAPMOmkRW9uAubKtR6J3Dzw9z1MooketG0Jgc2PxWknMj%2BVBjTgOA%2FH03Y3Mmn9WvxbQSK%2B%2FZy6HYkB1k9BeZntYgD4pqzfB1IhfWf5udJsOJSxGoM 947 USD $9.47 47 USD $0.47 5 Usually ships in 1-2 business days now 24 48 0 B000244FPK 202965 Unrated VHS Tape Aviva Slesin 9780794204990 9780794204990 0720917018553 Black & White Color NTSC 0794204996 English Unknown English Original Language 1998 USD $19.98 Fox Lorber 1 Video ABIS_VIDEO Fox Lorber 2004-07-20 72 G47v2-73406 Fox Lorber Secret Lives - Hidden Children and Their Rescuers During WWII [VHS] 720917018553 720917018553 1333 USD $13.33 0 4 0 0 0 0 http://www.amazon.com/gp/offer-listing/B000244FPK/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B000JOT2TW 10070 Misc. Neiko 01138A 0837013011385 0837013011385 Hex driver impact sockets in drop forged black Chrome-Molybdenum steel Set with 8 sockets in T-sizes in 1/2" drive: T30, T40, T45, T47, T50, T55, T60 and T70 Size markings engraved on each individual impact socket Heavy duty carrying/storage case included 0 0 9999 USD $99.99 Neiko RI-01138A 01138A 1 01138A Home Improvement TOOLS Neiko Neiko Neiko Super Heavy-Duty Torx Driver Impact Socket Set - 1/2" Inch Drive 837013011385 837013011385 2995 USD $29.95 5 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000JOT2TW/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New ByPelNwNQkrcfEDIUzoUsYtqaio5olynPbhq89GrFqiDWSV95wBdkGLwaaAoaAGni9eG6orpCOGgfZcKrSVMUE6FvIByyYtMmnT6Eu8gQqoXO8TIWYp54P5SaLgjZyMwA%2BAMNKw9kZ%2B%2FgekYjKlpGkt9PTaR0g%2F0 3699 USD $36.99 6300 USD $63.00 63 Usually ships in 24 hours now 0 0 1 B00007BHYP 7722 Tools & Home Improvement Pearl Abrasive BR7001C 0662333053872 0662333053872 No tools required For use on wood, concrete, marble, and much more Dramatically increases cutting speed and control Greater versatility and efficiency Fits most popular direct drive circular saws 2.80 6600 USD $66.00 Pearl Abrasive BR7001C BR7001C BR7001C Home Improvement TOOLS Pearl Abrasive Pearl Abrasive Pearl Abrasive Company BR7001C Blade Roller Sidewinder for Most Circular Saws 662333053872 662333053872 90 Days 4508 USD $45.08 1 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B00007BHYP/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New o9NM5b7xPvyAhTtCfhjlahKcLKLpd%2BQ%2FYjBRNob5RqHccFTtQ3sGA2tAJPP86IlBZgyISqXR8penLKTnXHWQXzBl03QsMOFyHBcO6zWj6zE%3D 4508 USD $45.08 2092 USD $20.92 32 Usually ships in 24 hours now 0 0 1 B000ILXPTO This Old House 1561587923 Creating a New Old House: Yesterday's Character for Today's Home (American Institute Architects) B001706YMU 11284 Misc. PEARL Protected Primed White 0874902003250 0874902003250 In-wall Permanent Ladder, fixed emergency escape, fire escape ladder, home fire escape 1650 1450 3000 338 29995 USD $299.95 PEARL Protected PP-23 PP-23 PP-23 Home Improvement TOOLS PEARL Protected 74900 PEARL Protected PEARL Protected Permanent Escape Ladder 874902003250 874902003250 23899 USD $238.99 6 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B001706YMU/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New k1zsMkqYsM8T8V6W683j4wda192MMcRG2cBRdU%2Fp1fAZDOVdZI77LNWSckbpFi%2B7dNilUB3ceZeamTHvSwN1EjyZHqT%2Bif1AZx06JG%2BJklswcSRgPa%2BK9kII1CS2NPd4aUyZ2rZHoVE%3D 25899 USD $258.99 4096 USD $40.96 14 Usually ships in 1-2 business days now 24 48 0 B000N6UERA 2569 Johnny Depp Geoffrey Rush Orlando Bloom Keira Knightley Jonathan Pryce 2.35:1 PG-13 (Parental Guidance Suggested) Blu-ray Buena Vista Home Video Bruce Hendricks Chad Oman Jerry Bruckheimer Jay Wolpert Stuart Beattie Ted Elliott Terry Rossio Gore Verbinski 0786936724790 0786936724790 PIRATES OF THE CARIBBEAN: THE CURSE OF THE BLACK PEARL pulses with heart pounding excitement in a Blu-ray 2 disc-set created from the original digital source files. Starring Johnny Depp, Disney's action-packed thrill ride delivers more mile-a-minute adventure than ever in this mind-boggling format. Climb aboard as legendary pirate Captain Jack Sparrow and young sword-maker Will Turner join for Anamorphic Color Dolby Subtitled Widescreen 0 1 30 English Unknown Dolby Digital 5.1 English Subtitled French Subtitled Spanish Subtitled English Original Language Dolby Digital 5.1 French Original Language Dolby Digital 5.1 Spanish Original Language Dolby Digital 5.1 French Dubbed Spanish Dubbed 2999 USD $29.99 Walt Disney Pictures DIS53455BLU 2 1 DIS53455BLU DVD ABIS_DVD Walt Disney Pictures 0 2007-05-22 143 Y02-035 Walt Disney Pictures Pirates of the Caribbean: The Curse of the Black Pearl [Blu-ray] 786936724790 786936724790 975 USD $9.75 803 USD $8.03 825 USD $8.25 49 32 3 0 1 1 http://www.amazon.com/gp/offer-listing/B000N6UERA/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New 6BvdbWJq19MSUgTUUOw0g7hyRhrgQbZSy9aj2JxgzgxU8m4zyZhbwZ2CefMnyiwOwk315FtO9PVkV11FOoIVltafqQUq6nBXDGLsTYc2lEHp4fCYDVZo52WN7U2vGMFZHGryr8ta%2FMwoGQEcMMyiAPBt6xY6e0id 1197 USD $11.97 1802 USD $18.02 60 Usually ships in 24 hours now 0 0 1 B00003CXTG 1742 Ben Affleck Kate Beckinsale Josh Hartnett Alec Baldwin Jaime King 2.35:1 PG-13 (Parental Guidance Suggested) DVD BUENA VISTA HOME VIDEO 2388903 23889 Barry H. Waldman Bruce Hendricks Chad Oman Jennifer Klein Jerry Bruckheimer K.C. Hodenfield Randall Wallace Michael Bay 9780788831218 9780788831218 0786936164282 Special feature: "Journey to the screen: the Making of Pearl Harbor" "Unsung Heroes" Historical Documentary Faith Hill Music Video "There You'll Be". Closed-captioned Color Dolby DTS Surround Sound DVD Widescreen NTSC 0 0788831216 1 45 English Unknown English Original Language Unknown 1499 USD $14.99 Touchstone / Disney DISD23889D 2 1 DISD23889D DVD ABIS_DVD Touchstone / Disney 1 2001-12-04 183 786936164282_AUDVIDDG_US Touchstone / Disney Pearl Harbor (Two-Disc 60th Anniversary Commemorative Edition) 786936164282 786936164282 529 USD $5.29 2 USD $0.02 1225 USD $12.25 70 504 18 0 1 1 http://www.amazon.com/gp/offer-listing/B00003CXTG/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New e6VUDu6%2BMcQixiIzZA5TFMqYcYxJHRrfopZ88mBpO0d77OJZEwNgtVL4JHN4uuh6wKbhNZvwaP9zN3p%2FZ%2Fi5sap4gRg85s8S26xyMDoyaI%2BJnNvDR0Ttt09leSR4Ia8MnmNsRfLE0dX5vKE1XVOKlw%3D%3D 1130 USD $11.30 369 USD $3.69 25 Usually ships in 24 hours now 0 0 1 B003D6IROY 195698 Amazon Instant Video Sesame Workshop Emily Perl Kingsley Kevin Clash 4 Childrens Television TV Series Episode Video on Demand DOWNLOADABLE_TV_EPISODE 2010-03-19 23 Sesame Workshop Happy Healthy Ready for School: Fun at Home 0 USD $0.00 1 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B003D6IROY/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New BPrxHPaT7VC36LC2b6K6B5A8T8Mr4E2DJt3bDmFYmZRGMwslRMAhE7FCp8P4VK50oMbK%2BIBekAe8roXM9v2aHey7S2%2BW5qQIqo0Z4LldpoPMiTvJil2YCe4MD%2FHh752hnesm5nBH88eouISVJBRGuv05UeO1egJr 0 USD $0.00 Usually ships in 1-2 business days now 24 48 0 B0012N5EHS Health and Beauty Enzymatic Enzymatic Therapy 1 Health and Beauty HEALTH_PERSONAL_CARE Enzymatic Therapy P29791 Enzymatic Therapy Enzymatic Therapy Acidophilus Pearls 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B0012N5EHS/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B0051IHLDU Acidophilus and Bifidus 8 Billion B0011023KS 1742 Health and Beauty Integrative Therapeutics 871791000025 HealthMisc 0871791000025 0871791000025 Probiotics support digestive, immune, and skin health. Probiotics help support healthy skin from the inside out: they help manage and eliminate free radicals and toxins. They survive the stomach to thrive in the intestines 488 150 8 425 *These statements have not been evaluated by the Food and Drug Administration. This product is not intended to diagnosetreatcureor prevent any disease. 4534 USD $45.34 Integrative Therapeutics 871791000025 1 1 871791000025 Health and Beauty HEALTH_PERSONAL_CARE 2011-01-09 Integrative Therapeutics 90 capsules 871791000025 Integrative Therapeutics Integrative Therapeutics Probiotic Pearls, 90-Count 871791000025 871791000025 2399 USD $23.99 18 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B0011023KS/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New TfulpNEtBDn9hW0v6ky5C%2Bjhs4Y6B%2BxMJeEnsnCaXXfsF3pcxT731L%2Bf7O5aGq4HkKqFhhoYOJTvwVGfdrQdrDq3vWG0SBs4wxBBhXEwcW5cqJ%2F5HmW9yGrWQ%2F8dRGa0XSoJ0XgzZb4uwarLvYxFbQ%3D%3D 2399 USD $23.99 2135 USD $21.35 47 Usually ships in 24 hours now 0 0 1 B002GFUX1I Health and Beauty Enzymatic Enzymatic Therapy 1 Health and Beauty HEALTH_PERSONAL_CARE Enzymatic Therapy P70693 Enzymatic Therapy Enzymatic Therapy Pearls YB 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B002GFUX1I/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B0051IHLDU Acidophilus and Bifidus 8 Billion B003L2N2R2 4205 Electronics BlackBerry 0803896628019 0803896628019 Compatible with BlackBerry Pearl 3G 9100 and 9105 Clear protective film produces no haziness, less glare and no bubbles Custom-tailored to exact dimensions of the BlackBerry Pearl 3G's screen Easy to apply and easily removable without leaving residue 140 EZC SP-BB-9100 1 SP-BB-9100 CE OFFICE_ELECTRONICS EZC IC-SP-BB-9100 EZC BlackBerry Pearl 3G Screen Protector (BlackBerry 9100) 803896628019 803896628019 1 USD $0.01 9 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B003L2N2R2/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New oj3HayJQruVfNt54g3F1DQc%2FH46%2B7Tq2BMbTvkh%2BYH8DhaqpmTXd5cX9giRs8esd0cgG4OaLsVHqyRSbG9gYyQ6nhRGlXwPMrIC2HEWl2%2BvGkrzrFqVqV93bLOefmKZlL4vuLF7SLMxPNPOIUdTI6Uv0lO8utDmB 210 USD $2.10 Usually ships in 1-2 business days now 24 48 0 B000OLC64I 4784 SanDisk 2GB memory card factory direct from SanDisk 2999 USD $29.99 SanDisk 2 GB MicroSD 1 Single Detail Page Misc MISC_OTHER SanDisk 2G TF San 0A .2213 SanDisk SanDisk 2GB microSDHC memory card (Bulk Pack) 28 USD $0.28 3900 USD $39.00 10 1 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000OLC64I/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New Pm%2FoUtM8vZT0nuY%2BRKUtZqxau617gZCLr6EATEI%2F%2F%2FfUFdcEzvqDF%2BqVxbMk8LEUEePnEjwjk5otlH6Hxwo1U%2B3s8Yp6a7uB9HYbGWjS2ADErT9RuAj5CtJaJgtcsKNlzi6Imqr8nw6B%2BWEZSAD5NQ%3D%3D 459 USD $4.59 2540 USD $25.40 85 Usually ships in 1-2 business days now 24 48 0 B0017QQQAE Personal Computers Creative Labs SB1090 70SB109000000 0054651146488 0054651146488 X-Fi Crystalizer technology restores the detail and vibrance to your compressed music and movies. Slip on your headphones and X-Fi CMSS-3D technology moves the sound away from your ears and into the space around you. Expand your stereo music and movies into surround sound with X-Fi CMSS-3D technology. Voices are centered in front of you. Realistic sound effects in games Bullets whiz past your head. Explosions shake the room. Cinematic surround sound from DVD movies Watch your DVDs in cinematic surround sound with PowerDVD software 0 0 630 894 65 240 5999 USD $59.99 Creative 70SB10900000 70SB109000000 1 1 70SB109000000 Windows XP CE SOUND_CARD Creative PR1708-2 Creative Creative Labs USB Sound Blaster X-Fi Surround 5.1 Audio System SB1090 054651146488 054651146488 8495 USD $84.95 3519 USD $35.19 5499 USD $54.99 4 3 0 1 1 1 http://www.amazon.com/gp/offer-listing/B0017QQQAE/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New 9wTJd23TZsZZvqnViP3zMgJ6oVSJ9yKl%2FrnJeGHl%2Fy49D2j%2BHg7OwHB3GYzQwwj%2FCo9MXNTbOGUAOgYjuy7ZdCa93%2FVvZfl4YPTeNARcs%2FykotcnxaNPUBVWiXho0QWPyX9JP2fitswK96lXknXGNkL9INV074Kc 8495 USD $84.95 Usually ships in 1-2 business days now 24 48 0 B000EMAZPO 1974 Grocery Lipton 10041000210874 0041000210877 0041000210877 Grown on the highest elevation tea estates of Sri Lanka, this tea has a clean, smooth flavor and lip-smacking delicious taste Pack of six 20-count tea bag boxes (total 120 tea bags) Contains 130 mg of flavonoids per 8 fluid ounce serving, is 100% natural, no preservatives or coloring Unique pyramid-shaped bags allow the tea to flow freely for a truly authentic tea infusion Enjoy this exceptionally pure tea flavor and aroma, hot or iced 2237 USD $22.37 Lipton 6 6 Grocery GROCERY Lipton 2006-02-13 Lipton Lipton Black Tea, Black Pearl Pure Long Leaf, Premium Pyramid Tea Bags, 20-Count Boxes (Pack of 6) 041000210877 041000210877 1612 USD $16.12 6 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000EMAZPO/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New 4Zlmb0E8XK8Isfu%2FX8c5DYpkpUfBTBnYrzYn%2FLFGLgJLG%2FmgIl1fqbUIZ%2B22B%2B1tSnY61kMBmk0v1XdOt%2BrQOOYbMDqkiZYIRLxAV9Hckns%3D 1612 USD $16.12 625 USD $6.25 28 Usually ships in 24 hours now 0 0 1 B000EM6PTO Lipton White Tea, Island Mango & Peach, Premium Pyramid Tea Bags, 18-Count Boxes (Pack of 6) B000FN1TPM Klean Kanteen with Loop Cap, (40 oz) B0001N7RLQ 6496 Misc. Bubble Tea Supply National Best Taste Award Winner 2002-2004 All U.S. orders shipped DHL 3 Day Easy to Prepare Recipes Included Save by Making Bubble Tea at Home 200 1043 USD $10.43 Bubble Tea Supply Grocery GROCERY Bubble Tea Supply Bubble Tea Supply Bubble Tea Black Tapioca Pearl (2.2 lbs) 684 USD $6.84 4 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B0001N7RLQ/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New wnvXXfL9goKVOvzDO%2FAl%2BAZReKPGKrtZZ1LrToOFPjKdwAZZT%2B1UPNABQHyYA1EgjFO8GyJzDypGtHTlbZi2%2FVEClzmb2bSlAddlJ8b3PU22QllSnR3Zd%2F38DoBD1mUReKlnKkpRqBbyWJiV1mYz0ORnYD0H%2FUSv 1488 USD $14.88 Usually ships in 24 hours now 0 0 1 B001LDAE4C 5019 Unknown Binding Lars Own 0654523002203 0654523002203 Pearl sugar is granulated white sugar that is processed into small grains. The grains are then polished to a pearl like finish. Lars Own Pearl Sugar is used to make traditional Belgian Waffles. When added to the dough, the sugar caramelizes and creates pockets of sweetness. Pearled sugar adds a decorative touch to baked goods, especially when food coloring is added. This distinctive and especially sweet sugar does not melt when baked, and retains it's appearance after baking. Imported from Belguim. 50 799 USD $7.99 Lars Own 1 1 Grocery GOURMET_FOOD Lars Own Lars Own Lars Own Imported Belgian Pearl Sugar - 2 pouches weighing 8 ounces each 654523002203 654523002203 1250 USD $12.50 5 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B001LDAE4C/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New qJ78sxPpTUkCpth0wA2rh6h2xqwIjL%2BlbZ9IkLLEinJBNpJ2JRxMml4TZunx8SqCgBF5WztB9O%2BI6ndxaYDDnLy1zc%2BR0svV04tGq6FznRxfkHwQJCEfRMqw8cHnWNdfKuCDvaDx%2BXVK2WC%2BjKX2eg%3D%3D 1797 USD $17.97 Usually ships in 24 hours now 0 0 1 B0057XTEP2 79347 Apparel 99 Volts womens Machine wash and dry Babydoll fit is VERY petite. Fits like a juniors shirt. Women's regular fit is available in a separate ad. Please see measurement chart. 1 Apparel SHIRT zhrtnerdw I Heart (Love) Nerds Women's Babydoll Petite Fit Tee Shirt in 6 Colors Small thru XL 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B0057XTEP2/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B001E2O7P2 31643 Apparel 99 Volts womens Machine wash and dry Babydoll fit is VERY petite. Please see measurement chart. 1 Apparel SHIRT Ztalknerdytomew Talk Nerdy To Me Women's Tee Shirt in 6 Colors Small thru XXL 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B001E2O7P2/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B001E2PJ86 68186 Apparel 99 Volts mens Machine wash and dry 1 Apparel SHIRT zctraltdelm CTRL ALT DELETE Computer Keyboard Buttons Logo Men's Tee Shirt in 12 colors Small thru 6XL 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B001E2PJ86/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B004ZFF3CQ 17 Toy LEGO 4611544 0673419145039 0673419145039 TBD 804 9999 USD $99.99 LEGO 192 108 4611544 Toy TOYS_AND_GAMES LEGO wa864184-673419145039 LEGO LEGO Pirates of the Caribbean Black Pearl 4184 673419145039 673419145039 8499 USD $84.99 27 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B004ZFF3CQ/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New KSSoL4%2FnhmHdysTnav0JcTpKH5OgxGnA%2BSJtd0q7qZngU1HgPPmjPg%2BsPkz6AEaoQhtqfxaRqRSl5q4mH4pY9YRnYbhxP6tPdBFLovWsjqh2pCdAksGSjg%3D%3D 8499 USD $84.99 1500 USD $15.00 15 Usually ships in 24 hours now 0 0 1 B000WCYMSW 28933 Toy Pok?mon 50 Pokemon Diamond Pearl Trading Cards Lot The perfect collection for deck builder Ship in ziplock bag with no packaged 100 Pokemon USA 1188 12 IX-7OQK-11NQ IX-7OQK-11NQ Toy TOYS_AND_GAMES Pokemon USA 1755620301-1190688574645 Pokemon USA 50 Pokemon Diamond Pearl Trading Cards Lot 750 USD $7.50 5 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000WCYMSW/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New VHL7s6ucpPjg6%2FZ%2BUEJ30aCVdZvdO%2FADTdEIt92v2eVkA15PlA5U8pdyV56ahfZJQiiZQ4pursuc0tdbe737pwvMa%2F7pP9YsA%2B2tpmLm84PfDFyPZy0eUIb%2FJC7eJvE6%2BNituCC0brxJiYep0FkfYw%3D%3D 750 USD $7.50 Usually ships in 1-2 business days now 24 48 0 B003LMWM1Y 53639 Toy Bandai BAN163113 4543112631138 4543112631138 Official Licensed Gundam Model Kit Imported from Japan 300 Bandai 163113 163113 Toy TOYS_AND_GAMES Bandai QZ-J005-P89K Bandai MG Master Grade 1/100 Gundam Wing Zero Custom Pearl Gloss Version 5495 USD $54.95 7 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B003LMWM1Y/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New yX1bKhH8GyTdJ2DNmks3RS7OvWV0XeBFEZQdtRer6NnDF5iIuhdxYnQWRruYTZeYKvG8NKCEjTrAinFoE3I6T%2F%2BAC2aJpk86WnbdeUwQ3s3aFPtsWMFS4y9Zphl1EZ2iHrtb4PTNXBpxB%2FMYX6J6%2Fw%3D%3D 5995 USD $59.95 Usually ships in 24 hours now 0 0 1 B000HNHA12 Electronics ADS Tech 65867G 498959 RDX155EF PAFI4 RDX-155 RDX-155-EF H28695 RDX-155-EF 297697 white 0007578871551 0007578871551 0757887155131 0757887151133 Discover Music ¿ Find Song Title, Artist and Other Information Record Radio Programming ¿ Listen to the Entire Radio Playlist or Individual     Songs  Playback Recordings on PC or Portable Music Players Receive RDS/RBDS ¿ Display Radio Text from FM Stations (only with Instant     Radio application, not in Snaptune) Retractable Antenna Included 0 0 830 275 13 675 3999 USD $39.99 ADS Technologies RDX-155-EF RDX-155-EF 1 1 RDX-155-EF Network Media Player MP3_PLAYER ADS Technologies SY2444721 ADS Technologies ADS RDX-155-EF Instant FM Music 757887155131 757887155131 007578871551 757887151133 1 yr parts/labor 699 USD $6.99 6 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000HNHA12/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New VjMf2rVhYDP%2BrCPWKXsMBk3a%2FmTuv7aWFNLSlTcJ3vBH%2BAFGeKkgCmIlO2YpByD7kRPMqqGt8dIgMlRhSO6e8JMU%2FrD8H9V26yxoMGLieGJwyY5QDZ3mqtd6T89M3KlE%2FqfPW6DA%2BySLYsk7r9v9S%2FPGaEFbHVXw 1099 USD $10.99 2900 USD $29.00 73 Usually ships in 24 hours now 0 0 1 B002GZ1IRG Bose Mobile In-Ear Headset B002AR5XIK Monster iCable 800 MP3 Player to Auxiliary Input Cord (3 Feet) B0007WZLDC Etymotic ER-4P Portable In-Ear Earphones B000QSOP0M Belkin AC Wall and USB Charger for iPod with Dock Connector (White) B000BQSGMM Etymotic Research ER6i Isolator In-Ear Earphones (Black) B000V0G3XM 5396 Automotive Einszett 981405 EIN-981405 5412763814056 5412763814056 Cleans and protects in one step Advanced polymer waxes protect and add a high gloss shine No residue or spotting Won't harm sensitive wax finishes 130 1000 USD $10.00 einszett 981405 981405 1 981405 Automotive Parts and Accessories AUTO_ACCESSORY einszett 500 ml / 16.9 fl oz einszett einszett 981405 Perls Shampoo - 16.9 fl. oz. 900 USD $9.00 3 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000V0G3XM/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New DJBYLgLP1Ymt%2BXTWmGum5oTn1jfxXM3c%2B%2FnHXjMn9FQYg%2Bm2FqoqJSBJuxmtz05rmC9W9%2BxnRUbF2acxRK3KcanFC6MgOWFp%2BqIm6C5IZXsBjRZBL3f%2Bgw%3D%3D 900 USD $9.00 100 USD $1.00 10 Usually ships in 24 hours now 0 0 1 1439169217 625 Pearl Jam Hardcover Cameron Crowe 9781439169216 9781439169216 1439169217 1 1150 125 365 975 4000 USD $40.00 Simon & Schuster 1 384 Book ABIS_BOOK 2011-09-13 Simon & Schuster 2011-09-13 KA9781439169216 Simon & Schuster Pearl Jam Twenty 1880 USD $18.80 1769 USD $17.69 5499 USD $54.99 44 15 1 0 1 1 http://www.amazon.com/gp/offer-listing/1439169217/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New UIXHd8OacpthiVRmxJqbTZGOquDZ1vC9EKGjiuPf1bdmtCy3CLVLwG9T26gU98zpCqwO4JEV9TOrC4icDcynXxviotJ1iw1Qx28TkeF4uoSC%2BJUAwScChg%3D%3D 2454 USD $24.54 1546 USD $15.46 39 Usually ships in 24 hours now 0 0 1 0470442204 2584 Joshua Rosenbaum Joshua Pearl Hardcover Joseph R. Perella 9780470442203 9780470442203 1 0470442204 1 130 1000 165 700 8000 USD $80.00 Wiley 1 304 Book ABIS_BOOK 2009-05-04 Wiley 0470442204-11-XBZN Wiley Investment Banking: Valuation, Leveraged Buyouts, and Mergers and Acquisitions (Wiley Finance) 4099 USD $40.99 4090 USD $40.90 58 38 0 0 1 1 http://www.amazon.com/gp/offer-listing/0470442204/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New ZEWDuhyTw3zGt9PGmWI27bcfRCrfgQBeV1%2F1PsEq%2F9pBz7%2FRvdwDz%2FRFq6UlcbEyPmcNOsemSI4a4vwz2ZnYZ0MhKe3rImUPS2l6e2y%2Fk60%3D 4170 USD $41.70 3830 USD $38.30 48 Usually ships in 24 hours now 0 0 1 1892112604 5062 Debi Pearl Paperback 9781892112606 9781892112606 1892112604 1495 USD $14.95 No Greater Joy Ministries 1 297 Book ABIS_BOOK 2004-12-01 No Greater Joy Ministries mon0000103916 No Greater Joy Ministries Created to Be His Help Meet: Discover How God Can Make Your Marriage Glorious 849 USD $8.49 450 USD $4.50 998 USD $9.98 62 81 2 0 1 1 http://www.amazon.com/gp/offer-listing/1892112604/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New VIfwP8Tlsgom3ZQEfcdDm09rJp%2FRkCUXoPIvtUkqSCM6VGE8ywr%2BHj9romavS933HGg4y4kqlMSQ0oaQtLlxr13Eq8xBcj9hRqHiHUh2MJs%3D 898 USD $8.98 597 USD $5.97 40 Usually ships in 24 hours now 0 0 1 B003LL3UGQ 29667 Apparel Mephisto Agacia 6 B(M) US Chestnut Calf womens Women's Mephisto, Agacia A cushioned soft snake printed leather thong sandal Smooth linings and covered toe post for added comfort Lightweight suede covered Air Relax cork and latex footbed is specially contoured for a foot cradling effect This sandal provides proper heel, arch, and foot support when walking 18000 USD $180.00 Mephisto Agacia 883891201301 1 1 883891201301 Shoes SHOES Mephisto 6 B(M) US AGACIA_DKBRNBOA Mephisto Mephisto Women's Agacia Thong Sandal 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B003LL3UGQ/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B003US44LK Clarks Women's Un.Drizzle Thong Sandal B001HEN9JM Orthaheel Women's Tide Thong Sandals B004N5FVMA Orthaheel Women's Allegre Thong Sandals B004N5AGG6 Orthaheel Women's Lori Thong Sandals B004KGAF82 Spenco Women's PolySorb Total Support Thong Sandals B003LN0HP6 288001 Apparel Mephisto Pakita womens 32000 USD $320.00 Mephisto Pakita Shoes SHOES Mephisto 5133724 Mephisto Mephisto Women's Pakita Flat 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B003LN0HP6/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B0042X15DM 44129 Apparel Mephisto Laser Perf * * womens Women's Mephisto, Laser Perf A cushioned soft leather lace up walking casual shoe Air-Jet circulation system keeps feet cool and refreshed leather-covered cushioned insole is removable to accomodate orthotics padded tongue and collar 19500 USD $195.00 Mephisto Laser Perf 1 1 Shoes SHOES Mephisto * SBMPOS_LASER_PERF Mephisto Mephisto Women's Laser Perforated Sneaker 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B0042X15DM/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B000MJB0H6 601 Video Game Nintendo 045496738495 NIN-NTRPADAE NTRPADAE EP9822852 1828346 0065030830294 0065030830294 0045496738495 Everyone Worldwide battles and trading using WiFi. Real-time clock feature changes the time of day based on the DS clock. The Pokemon you can catch vary based on the region and the time of day. Also, certain Pokemon moves' power changes based on time. More elaborate Pokemon Contests. Players can use the accessories and dress up their Pokemon. Players make "Poffin" out of Berries to raise their Pokemon's contest stats. New dual-type Pokemon, new/altered moves, and new special abilities add to the already deep strategy of Pokemon battling. 3-D enviornments and updated graphics. role_playing_games nintendo_ds 0 1 0 50 500 25 550 3499 USD $34.99 Nintendo 1828346 1 Nintendo DS 1 1828346 Nintendo DS Video Games CONSOLE_VIDEO_GAMES 2007-04 Nintendo 2007-04-22 mon0000029366 Nintendo Pokemon - Diamond Version 045496738495 045496738495 065030830294 3290 USD $32.90 1127 USD $11.27 1998 USD $19.98 12 104 11 0 1 1 http://www.amazon.com/gp/offer-listing/B000MJB0H6/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New Fl%2FHFZPQwmrKVEC6ED2P9cry6pQjFFd8rsgEqszT287viP9P4AKwj3la9fVhibItx%2B5b0lXURFUigp6CCXsE7qQSfgNwcoT%2BexwL3XNAiKV%2F%2FZCBKikoHZEg8Uowdz378SbUjmtbAG%2BwU9J6lS%2F0kA%3D%3D 3875 USD $38.75 Usually ships in 1-2 business days now 24 48 0 0822332876 Pikachu's Global Adventure: The Rise and Fall of Pokémon 1598120182 Official Nintendo Pokemon Diamond Version & Pearl Version Player's Guide 0761556354 Pokemon Diamond & Pearl Pokedex: Prima Official Game Guide Vol. 2 (Prima Official Game Guides) 0761556346 Pokemon Diamond & Pearl (Prima Official Game Guide) B000MJB1WU 1001 Video Game Nintendo NTRPAPAE 045496738518 NIN-NTRPAPAE 1828446 0045496738518 0045496738518 Everyone Worldwide battles and trading using WiFi. Real-time clock feature changes the time of day based on the DS clock. The Pokemon you can catch vary based on the region and the time of day. Also, certain Pokemon moves' power changes based on time. More elaborate Pokemon Contests. Players can use the accessories and dress up their Pokemon. Players make "Poffin" out of Berries to rasie their Pokemon's contest stats. New dual-type Pokemon, new/altered moves, and new special abilities add to the already deep strategy of Pokemon battling. 3-D enviornments and updated graphics. role_playing_games nintendo_ds 0 1 0 50 500 28 550 3499 USD $34.99 Nintendo 1828446 1 Nintendo DS 1 1828446 Nintendo DS Video Games CONSOLE_VIDEO_GAMES 2007-04 Nintendo 2007-04-22 NDS-133981 Nintendo Pokemon Pearl Version 045496738518 045496738518 3295 USD $32.95 1299 USD $12.99 2300 USD $23.00 18 71 12 0 1 1 http://www.amazon.com/gp/offer-listing/B000MJB1WU/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New cJr37Mq5djKJM54S1InGRK44b%2B6%2BqRcJd%2BKYshC287sfaAj1bovyjaGfJkeAm7Pm%2BaVv20dsCaSPjC69fkPmOoX%2Fy9Xjqm%2BsH%2BZt4JtRZSI6Xxf%2BVipWDGiYg6PhOPYqWMkKIJsZkK76n0YU1EpM%2BE1ULLYd1pQo 4399 USD $43.99 Usually ships in 1-2 business days now 24 48 0 0822332876 Pikachu's Global Adventure: The Rise and Fall of Pokémon 1598120182 Official Nintendo Pokemon Diamond Version & Pearl Version Player's Guide 0761556346 Pokemon Diamond & Pearl (Prima Official Game Guide) 0761556354 Pokemon Diamond & Pearl Pokedex: Prima Official Game Guide Vol. 2 (Prima Official Game Guides) B002CZ756I 685 Video Game Sony 98514 Pearl White 0711719851400 0711719851400 Standard Rating Pending The ability to download games, movies, TV and other media directly from the PlayStation Network to your PSP Go. 16GB of built-in flash memory for file storage and removable memory expansion via memory stick. Bluetooth support for skype headsets and other devices. Slide out control design to maximize the ultra-crisp 3.8" LCD screen functionality. No UMD design makes for a quieter, more energy efficient device. CD Action Video Games Sony PSP 0 1 0 230 690 133 540 19999 USD $199.99 Sony 98514 98514 1 Sony PSP 1 98514 Sony PSP Video Games VIDEO_GAME_HARDWARE Sony 2009-10-01 DH98514 Sony PSPgo - Pearl White 711719851400 711719851400 15800 USD $158.00 10200 USD $102.00 20 35 0 0 1 1 http://www.amazon.com/gp/offer-listing/B002CZ756I/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New LRtI0nHEwhkuRZdBGaQz9EREVBx7x%2FL7p64WkYCIY5giYSV8vh%2Fg6mkVcFp7GFODPTkib24MisZ4cDbgjoshotwRinSr65EeKnzigNh60a12MKNIuMmVbGsYRBdPIcX0ZMqLQfikM6vMZ25SNHX0oQ%3D%3D 16599 USD $165.99 3400 USD $34.00 17 Usually ships in 24 hours now 0 0 1 B002EQFXQE 4GB Memory Stick Micro Media + M2 Duo Adaptor B002EQE58Q PSPgo Cradle B002EQFXJ6 2GB Memory Stick Micro Media + M2 Duo Adaptor B002P69VAC 8GB Memory Stick Micro Media + M2 Duo Adaptor B002LH4UB0 PSPgo Component AV Cable B000RIVWLG 24861 CD-ROM Take 2 852898000804 Windows 0852898000804 0852898000804 Teen Intuitive controls - Simple, straightforward control scheme lets anyone pick up a controller and play Choose your side - Become dashing Douglas Knox of the USAF or fighter pilot Zenji Yamada of the Imperial Japanese Navy Air Service Take off from the deck of an aircraft carrier in the most prolific fighters, bombers and torpedo-bearing aircraft of the WWII Pacific Theatre Fight the same battles that determined the outcome of the war including Doolittle Raid, Pearl Harbor, The Battle of Midway and Iwo Jima The campaign is advanced through graphic novel- inspired animation panels which bring an exciting and refreshing feel to the game CD-ROM flying-game-genre Pc 1.25 7.5 0.65 5.25 2999 USD $29.99 Take 2 852898000804 PCSTK200080 Windows XP 1 PCSTK200080 Windows XP Video Games SOFTWARE_GAMES Take 2 2007-07-30 PCDS_B000RIVWLG Take 2 Attack on Pearl Harbor 852898000804 852898000804 1999 USD $19.99 499 USD $4.99 3 2 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000RIVWLG/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New %2FFqLDfSrzeIjaYn4bKbYS4rWW%2Fp%2B6et8P66gwCxN1xJ112OFi5NsCajMoS%2BFCRuYO%2BShZy55hWB5SLB1jKaxuRU3mXTn%2FCO7VzjrJmbok0sI9qoDD1F3swtQ7813SNZ98E%2BY%2BSEyl6AtWg1ezYSgcQ%3D%3D 1999 USD $19.99 1000 USD $10.00 33 Usually ships in 1-2 business days now 24 48 0 B000NDESM0 PC Gamer [with CD] (1-year) B003WT11H2 28533 DVD-ROM LYNDA.COM 155446 0670557028767 0670557028767 In Perl 5 Essential Training, author Bill Weinman explains the fundamentals of programming in Perl, a flexible and powerful programming language that s well suited for projects as varied as simple scripts to complex web applications. This course covers the details of the language, from conditionals, loops, and data structures to regular expressions, functions, and object-oriented programming. A qu CD-ROM Pc 20 9995 USD $99.95 LYNDA.COM 02876 02876 Windows XP Home Edition 1 02876 Windows Vista Windows 7 Windows 2000 Windows XP Mac OS X Software ABIS_SOFTWARE LYNDA.COM NE_8064163 LYNDA.COM LYNDA.COM 02876 PERL 5 ESSENTIAL TRAINING 670557028767 670557028767 9995 USD $99.95 1 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B003WT11H2/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B0052BF6YW 12145 CD-ROM DVDxDVD Inc DVD-ROM DVDxDVD Inc Linux, Windows 7, Windows Vista, Windows XP, Windows 2000, Windows Software SOFTWARE DVDxDVD Inc DVDxDVD Inc Programming Training for a Beginner in Java, C, C++, Perl and PHP, 3 DVDs of Complete Courseware and Linux Tools, ed.2011 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B0052BF6YW/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B00188ON38 4011 Apparel Pearl iZUMi 9125 mens Pearl Izumi Cyclone Toe Cover designed for road shoes with external cleats provides protection from wind and rain With soft Microfleece lining for warmth and AmFIB stretch and block insulating cover to protect from wind and rain Covers feature durable rubber sole with cleat cutaway, finger loop for easy on and off, and reflective element for nighttime visibility Made of 65 percent polyester, 30 percent nylon, and 5 percent spandex Lifetime warranty against defects in materials and workmanship 2000 USD $20.00 Pearl iZUMi 9125 9125 1 9125 Apparel ACCESSORY Pearl iZUMi P9125 Pearl iZUMi Pearl iZUMi Cyclone Toe Cover 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B00188ON38/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B000JYH8B6 Louis Garneau 2007/08 Men's Airgel 2 Cycling Shorts - Black - 1050221-020 B000KX900I Giordana 2008 Silverline Short Sleeve Cycling Jersey - Orange - (GI-SSJY-SILV-ORAN) B000JX1G7Y Retro Cicli Olympia Men's Short Sleeve Cycling Jersey B000IBO3HC Giordana 2009/10 Neoprene Pullover Shoe Cover - Black - GI-SHCO-NEOP-BLCK B000U6KHSE Pearl Izumi 2009 AmFIB Mountain Cycling Shoe Covers - Black - 9197 B00188SEB0 28662 Apparel Pearl iZUMi 235 * * mens Pearl Izumi Tri Cycling Short with shorter, 6.5-inch inseam, designed for swim, run, and ride triathlons Ultrasensor moisture wicking fabric, composed of a nylon/Lycra blend offers superior fit and dries quickly Triathlon-specific, reduced size Ultrasensor chamois pad with quick-dry fabric Unique panel design for ergonomic performance, spandex leg grippers, and internal drawstring closure at waist Lifetime warranty against defects in materials and workmanship, Tri Cycling Short is not recommended for use in chlorinated pools 0 USD $0.00 Pearl iZUMi 235 0235 1 0235 Apparel SHORTS Pearl iZUMi One Size P0235 Pearl iZUMi Pearl iZUMi Men's Triathalon Tri Cycling Short 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B00188SEB0/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B001TYN5M6 Zoot Sports 2009 Men's ULTRA TX Racesuit - S9MTS02 B001G0N8DE Pearl iZUMi Elite Tri Cycling Short B0014H18EU Pearl Izumi 2008 Men's Noosa Triathlon Race Top - Shadow Grey/Lemon - 1819-2IS B0017U1YC0 Descente 2008 Men's Aero-XT Triathlon Short Short - Black - 80101bk B000TEE8LE Pearl Izumi 2007/08 Men's Triathlon Speed Suit - Moonlight/Diablo Red - 1062-029 B004MSU88K 3601 Watch Invicta 2WW-INVICTA-6895 6895 Invicta 0843836068956 0843836068956 Precise Swiss-quartz movement Mineral crystal; 18k gold-plated and stainless steel case and bracelet Date function with magnified window White mother of pearl dial with gold tone hands and hour markers; luminous; 18k gold-plated unidirectional bezel and crown Water-resistant to 330 feet (100 M) 39500 USD $395.00 Invicta 6895 6895 1 1 6895 Watch WATCH Invicta B004MSU88K Invicta Invicta Women's 6895 Pro Diver Mother-of-Pearl Dial Two-Tone Stainless Steel Watch 843836068956 843836068956 7999 USD $79.99 7500 USD $75.00 1 1 0 0 1 1 http://www.amazon.com/gp/offer-listing/B004MSU88K/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New RbZQpXD%2F82fZ%2Ffx2JBvGOBeaJDDT8Wgh1R4sgPO%2BRuTa7gwtnPaKQN1AL1Fh%2B2E7186CjMg%2BbL9%2B3gHt6T737gasfHuZg%2BFXKteCqWzaVIvPeGM9B5imseV2HZnGbipm58GJtV86dGI%3D 7999 USD $79.99 31501 USD $315.01 80 Usually ships in 1-2 business days now 24 48 0 B005EGONFS 92 Pearl Jam Audio CD 0886979603523 0886979603523 31 2198 USD $21.98 Columbia 2 1 Music ABIS_MUSIC 2011-09-20 Columbia 2011-09-20 K5 30916018 Columbia Pearl Jam Twenty (Original Motion Picture Soundtrack) 886979603523 886979603523 1256 USD $12.56 1247 USD $12.47 67 8 0 0 1 1 http://www.amazon.com/gp/offer-listing/B005EGONFS/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New ZDPsi2Vbrlo3dpE5GByuTNW%2FaSg4U7E1k7D4zUNStXA6C38VlJHif21admLkW8zaK4exLB%2FOhJ%2BOk2OMlLisGzbmHGdsVoh%2FU%2FYverMI9aK2oV%2Baj7w7MQ%3D%3D 1599 USD $15.99 599 USD $5.99 27 Usually ships in 24 hours now 0 0 1 Release (Arena Di Verona - Verona, Italy 9/16/2006) Alive (Mookie Blaylock - The Moore Theatre - Seattle, WA 12/22/1990) Garden (Albani Bar Of Music - Winterthur, Zurich, Switzerland 2/19/1992) Why Go (Markthalle - Hamburg, Germany 3/10/1992) Black (Kaufman Astoria Studios - MTV Unplugged - New York, NY 3/16/1992) Blood (Mt. Smart Stadium - Auckland, New Zealand 3/25/1995) Last Exit (Taipei International Convention Center - Taipei, Taiwan 2/24/1995) Not For You (Folk Arts Theater - Manila, Philippines 2/26/1995) Do The Evolution (Monkeywrench Radio - Seattle, WA 1/31/1998) Thumbing My Way (Chop Suey, Seattle, WA 9/6/2002) Crown Of Thorns (10th Anniversary Show - MGM Grand - Las Vegas, NV 10/22/2000) Let Me Sleep (It's Christmas Time) (Arena Di Verona Steps - Verona, Italy 9/16/2006) Walk With Me (Bridge School - Shoreline Amphitheatre - Mountain View, CA 10/23/2010) Just Breathe (30 Rock, Studio 8H - Saturday Night Live - New York, NY 3/13/2010) Say Hello 2 Heaven (Temple Of The Dog Demo 1990) Times Of Trouble (Demo 1990) Acoustic #1 (Demo 1991) It Ain't Like That (Demo 1990) Need To Know (Matt Cameron Demo 2007) Be Like Wind (Mike McCready Score 2010) Given To Fly (Mike McCready Acoustic Instrumental 7/29/2010) Nothing As It Seems (Jeff Ament Montana Demo 1999) Nothing As It Seems (Key Arena, Seattle, WA 10/22/2001) Indifference (Pala Malaguti - Bologna, Italy 9/14/2006) Of The Girl (Instrumental 2000) Faithfull (Duomo Square - Pistoia, Italy - Soundcheck 9/20/2006) Bu$hleaguer (Nassau Coliseum - Uniondale, NY 4/30/2003) Better Man (Madison Square Garden - New York, NY 5/21/2010) Rearviewmirror (Gibson Amphitheatre, Universal City, CA 10/01/2009) B000669GAI 590 Pearl Jam Audio CD 0827969353523 0827969353523 19 999 USD $9.99 Epic/Sony 827969353523 2 1 827969353523 Music ABIS_MUSIC Epic/Sony 2004-11-16 BBM-B000669GAI-2- Epic/Sony Rearviewmirror: Greatest Hits 1991-2003 827969353523 827969353523 742 USD $7.42 612 USD $6.12 799 USD $7.99 49 23 3 0 1 1 http://www.amazon.com/gp/offer-listing/B000669GAI/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New fW5QiWGi7HNOE%2B63DX%2BhfK9WFdQ7IJBFh1BkOLOqL5%2BVpMJpebSK4LOH7ajlGZ%2FtNc5dZ199tWpNf6klFDQszj0n6yo38xgXw6rxBX63jGs%3D 1008 USD $10.08 Usually ships in 24 hours now 0 0 1 Once (Brendan O'Brien Remix) Alive (Brendan O'Brien Remix) Even Flow Jeremy State of Love and Trust Animal Go Dissident Rearviewmirror Spin the Black Circle Corduroy Not for You I Got Id Hail Hail Do the Evolution Save You Black (Brendan O'Brien Remix) Breath Daughter Elderly Woman Behind the Counter in a Small Town Immortality Betterman Nothingman Who You Are Off He Goes Given to Fly Wishlist Last Kiss Nothing as it Seems Light Years I am Mine Man of the Hour Yellow Ledbetter B0000027RL 443 Pearl Jam Audio CD PEARL JAM 47857 0733606127320 0733606127320 0661868158229 0661868158328 0008455372123 0744687200925 0086625010426 0074644785722 0075992573924 0 22 898 USD $8.98 Columbia 733606127320 1 1 733606127320 Music ABIS_MUSIC Columbia 1991-08-27 1VY3QK000CNB Columbia Ten 661868158229 661868158229 075992573924 086625010426 008455372123 661868158328 744687200925 733606127320 074644785722 428 USD $4.28 48 USD $0.48 475 USD $4.75 42 368 13 0 1 1 http://www.amazon.com/gp/offer-listing/B0000027RL/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New NNgwW2KuKz%2BaQNoF9vdYdrQYFO7s2%2FonyyhMvOdzbgfqnGrQ3eMvhhOIByrZFmmN8bRIG6OnuuxB1EZMOdUL7DZ2%2Fn9aSqHXronz9EpRxzo%3D 698 USD $6.98 200 USD $2.00 22 Usually ships in 24 hours now 0 0 1 Once Even Flow Alive Why Go Black Jeremy Oceans Porch Garden Deep Release Master/Slave B004748YPS 702 Wireless Phone Accessory BlackBerry BB 9100 BLK Black 0843163064249 0843163064249 This unlocked cell phone is compatible with GSM carriers like AT&T and T-Mobile. Not all carrier features may be supported. It will not work with CDMA carriers like Verizon Wireless, Alltel and Sprint Unlocked Quad-Band GSM cell phone compatible with 850/900/1800/1900MHz frequencies and 3G HSDPA 900/1700/2100 plus GPRS/EDGE data capabilities 3.1 MP Camera, 2048x1536 pixels, autofocus, LED flash; auto-focus; BlackBerry OS; Social feeds; BlackBerry maps; Document viewer (Word, Excel, PowerPoint); Talk time up to 5 hours - Standby up to 430 hs. 3.2mp camera Card slot Gps Qwerty Wifi 1 200 420 65 50 39900 USD $399.00 BlackBerry Pearl 3G 9100 1 Wireless WIRELESS_ACCESSORY BlackBerry BlackBerry Blackberry 9100 Pearl 3G Unlocked Phone with 3 MP Camera, Wi-Fi, Bluetooth, Optical Trackpad and GPS - International Warranty - Black 843163064249 843163064249 1 Year Manufacture Warranty with RIM BlackBerry 22656 USD $226.56 9 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B004748YPS/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New eTU7amsCVntloVWi70Vb1mLeTYnHku3J47hn96zBAIKIqmZV%2FIbSy1NTdYqmqOrG2Ydwx4EO0k0zYQ%2BhCUyUxvxC78cqpuTUacFXvbRhkaen1S15%2BgGsCOMq6OiPunEzr3l97us1LE9E0VhGqWf6pw%3D%3D 23699 USD $236.99 16201 USD $162.01 41 Usually ships in 24 hours now 0 0 1 B00136GT0U 708 Electronics BlackBerry 264589 0804879107552 0804879107552 Blackberry Best Replacement Repairt Part Trackball / Pearl Included + Ring with Clips Two Items Combo Included 2 499 USD $4.99 BlackBerry 40262-A-2773 1 40262-A-2773 CE CONSUMER_ELECTRONICS BlackBerry S6-1YH7-84L7 BlackBerry Blackberry Trackball / Joystick / Navigate / Pearl / Ring Repair Replacement Fix Fixing for Rim Blackberry Pearl 804879107552 804879107552 1 USD $0.01 34 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B00136GT0U/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New c9yFo5ldJ%2B2zwLBk9XrM1ZPuPHqYgiNZX8d4tNuFKcATgWkheyAF%2BBcmnelwkfYA%2FEHeY8xo6SIwPWgLpmBc20Ibw%2BLsXwcFD9b6vxGvl7ieZUlif8wkiRGJVTc3bHY31qckVomfzqAsBYrEaWP89hIGOz9V7UuL 175 USD $1.75 324 USD $3.24 65 Usually ships in 1-2 business days now 24 48 0 B002MZZQQE 917 Wireless Phone Accessory BlackBerry BB-C-M2 Yellow 0837654596029 0837654596029 Genuine battery protects your phone with built-in overcharging protection Easy to carry, it can be recharged while in the phone Dependable: Meets all regulatory compliance requirements Safe: Built in overcharging protection Compatible with: Blackberry Pearl 8100, 8110, 8120, 8130 1699 USD $16.99 BlackBerry C-M2 C-M2-A 1 C-M2-A Wireless WIRELESS_ACCESSORY BlackBerry BLA243 BlackBerry BlackBerry Li-Ion Battery for BlackBerry Pearl 8100, 8110, 8120, 8130 (Yellow) 837654596029 837654596029 1 year manufacturer limited warranty 192 USD $1.92 395 USD $3.95 14 0 0 1 1 1 http://www.amazon.com/gp/offer-listing/B002MZZQQE/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New bz6XAfcLWV19bMFLGu775YbGZWKYCNDCwBO4H3ta6%2Fp3Ao1Xc13jMqiu340zlyL4X5yEm%2BJJj1n0BA1%2F%2Fm5xJ7mAyo3XWQB2EjUmP6yEXjdn318u9jG3UX42HrJnYbQ%2FBJ5WKQYm0ogcrs4l%2Bi8aNC4d1TdBiJ4z 349 USD $3.49 1350 USD $13.50 79 Usually ships in 1-2 business days now 24 48 0 B001CE4W6Q BlackBerry DoubleTalk Travel-Car Charger 8100 Pearl Net-Amazon-0.62/t/canned/blended1.xml0000644666302512716660000052446211652645245017172 0ustar boumenotpg1319368 3619 1213 B003NZG936 212 Six Star Sales 0652695401350 0652695401350 This is just for a Bulk bag 8 ounces of Clear polymer pearls, they are created by simply adding water, the displays are not included. This is not a small 10 gram little package-it is 8 ounces = 225 grams- will make up to 6 gallons or 24 quarts of Pearls depending on water used. The "purer" the water, the larger the crystals will grow. Distilled water is the best Olor is by using Submersible lights-Water Pearls are clear. The Pearl balls are very tiny beads when you receive. Material: non-toxic super absorbent cross-linked polymer. How long does it last: It is reusable and can last for up to 4 months as long as you keep adding water Six Star Sales CL/WaterPearls/8oz CL/WaterPearls/8oz CL/WaterPearls/8oz Single Detail Page Misc MISC_OTHER Six Star Sales Six Star Sales Water Pearls-CLEAR-Centerpiece Wedding Tower Vase Filler-makes 6 gallons (8 oz pack) 652695401350 652695401350 790 USD $7.90 5 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B003NZG936/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New 16pU5A04kckUAuo0yVUeK68LXyMuyEU2Z6QFd3oGdBow7k8flrm%2FmgnAYsvDdosgHKvX%2BDkCLbqemHX4TEKawuG3BB8Aosy1bZfKzV5V9SIdFLodQdOGJ8jf8%2FfG%2Byx8QUmehW7mTui4ZQt5T%2FGf5A%3D%3D 889 USD $8.89 Usually ships in 1-2 business days now 24 48 0 B000ASPCN2 5043 Kitchen Persil Persil Megaperls Color is a high-efficiency concentrated laundry detergent specially formulated to protect dark and bright colors. It ensures the best cleaning performance while being gentle on your clothes and the environment. Persil Megaperls Color will keep colors bright and clothes looking new longer. 45 loads per box. Use about 1/4 cup per load. PMC45E 1 PMC45E Health and Beauty HOME IX-9R01-1OUA Miele / Henkel : Persil Megaperls Color European Laundry Detergent - 45 loads 4298 USD $42.98 7 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000ASPCN2/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New gxWKQ3pE7NRWU2FMDpxxoMZ2HLfA0ZvP0eEn05wNvrn7j9hIqM2ADhcjC1vxAGdoqeOE5m2PErTbT2yeLW%2BHZvH8TiRZbg1QB7yMowW1hvFgWoMvoHM3EgDnvXX4y0UzD6KFMoIACetTL8ySE4%2F3J%2F886JvwfPhc 4298 USD $42.98 Usually ships in 1-2 business days now 24 48 0 B000ASNBN0 7018 Kitchen Persil by Henkel Persil Megaperls is specially formulated to protect whites and lighter colors. High-efficiency heavy-duty laundry detergent for use with most types of fabrics. Great for whites, light colors and colorfast fabrics. Cleans in temperatures as low as 68 degrees Fahrenheit Not suitable for wool or silk. Henkel AG & CO Health and Beauty HOME Henkel AG & CO HJ-QDUD-F5Q8 Henkel AG & CO Miele / Henkel : Persil Megaperls Universal European Laundry Detergent - 45 loads 4298 USD $42.98 8 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000ASNBN0/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New 1hhuahGRBRu6EEc8YUpv0Ld8g%2Fd44r7znJkkRG7QaFElcfbChENtm1SHEAJCrlNPzHfpd0TT5letrxOynDybamgkp02SxTietW8vprfDYPy1ys9IQSH1WD6j9KVXPPCfSLEePZWubECBuxOLBTnFJxImRnZrIKJR 4298 USD $42.98 Usually ships in 1-2 business days now 24 48 0 B005EGONFS 92 Pearl Jam Audio CD 0886979603523 0886979603523 31 2198 USD $21.98 Columbia 2 1 Music ABIS_MUSIC 2011-09-20 Columbia 2011-09-20 K5 30916018 Columbia Pearl Jam Twenty (Original Motion Picture Soundtrack) 886979603523 886979603523 1256 USD $12.56 1247 USD $12.47 67 8 0 0 1 1 http://www.amazon.com/gp/offer-listing/B005EGONFS/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New ZDPsi2Vbrlo3dpE5GByuTNW%2FaSg4U7E1k7D4zUNStXA6C38VlJHif21admLkW8zaK4exLB%2FOhJ%2BOk2OMlLisGzbmHGdsVoh%2FU%2FYverMI9aK2oV%2Baj7w7MQ%3D%3D 1599 USD $15.99 599 USD $5.99 27 Usually ships in 24 hours now 0 0 1 Release (Arena Di Verona - Verona, Italy 9/16/2006) Alive (Mookie Blaylock - The Moore Theatre - Seattle, WA 12/22/1990) Garden (Albani Bar Of Music - Winterthur, Zurich, Switzerland 2/19/1992) Why Go (Markthalle - Hamburg, Germany 3/10/1992) Black (Kaufman Astoria Studios - MTV Unplugged - New York, NY 3/16/1992) Blood (Mt. Smart Stadium - Auckland, New Zealand 3/25/1995) Last Exit (Taipei International Convention Center - Taipei, Taiwan 2/24/1995) Not For You (Folk Arts Theater - Manila, Philippines 2/26/1995) Do The Evolution (Monkeywrench Radio - Seattle, WA 1/31/1998) Thumbing My Way (Chop Suey, Seattle, WA 9/6/2002) Crown Of Thorns (10th Anniversary Show - MGM Grand - Las Vegas, NV 10/22/2000) Let Me Sleep (It's Christmas Time) (Arena Di Verona Steps - Verona, Italy 9/16/2006) Walk With Me (Bridge School - Shoreline Amphitheatre - Mountain View, CA 10/23/2010) Just Breathe (30 Rock, Studio 8H - Saturday Night Live - New York, NY 3/13/2010) Say Hello 2 Heaven (Temple Of The Dog Demo 1990) Times Of Trouble (Demo 1990) Acoustic #1 (Demo 1991) It Ain't Like That (Demo 1990) Need To Know (Matt Cameron Demo 2007) Be Like Wind (Mike McCready Score 2010) Given To Fly (Mike McCready Acoustic Instrumental 7/29/2010) Nothing As It Seems (Jeff Ament Montana Demo 1999) Nothing As It Seems (Key Arena, Seattle, WA 10/22/2001) Indifference (Pala Malaguti - Bologna, Italy 9/14/2006) Of The Girl (Instrumental 2000) Faithfull (Duomo Square - Pistoia, Italy - Soundcheck 9/20/2006) Bu$hleaguer (Nassau Coliseum - Uniondale, NY 4/30/2003) Better Man (Madison Square Garden - New York, NY 5/21/2010) Rearviewmirror (Gibson Amphitheatre, Universal City, CA 10/01/2009) B000669GAI 590 Pearl Jam Audio CD 0827969353523 0827969353523 19 999 USD $9.99 Epic/Sony 827969353523 2 1 827969353523 Music ABIS_MUSIC Epic/Sony 2004-11-16 BBM-B000669GAI-2- Epic/Sony Rearviewmirror: Greatest Hits 1991-2003 827969353523 827969353523 742 USD $7.42 612 USD $6.12 799 USD $7.99 49 23 3 0 1 1 http://www.amazon.com/gp/offer-listing/B000669GAI/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New fW5QiWGi7HNOE%2B63DX%2BhfK9WFdQ7IJBFh1BkOLOqL5%2BVpMJpebSK4LOH7ajlGZ%2FtNc5dZ199tWpNf6klFDQszj0n6yo38xgXw6rxBX63jGs%3D 1008 USD $10.08 Usually ships in 24 hours now 0 0 1 Once (Brendan O'Brien Remix) Alive (Brendan O'Brien Remix) Even Flow Jeremy State of Love and Trust Animal Go Dissident Rearviewmirror Spin the Black Circle Corduroy Not for You I Got Id Hail Hail Do the Evolution Save You Black (Brendan O'Brien Remix) Breath Daughter Elderly Woman Behind the Counter in a Small Town Immortality Betterman Nothingman Who You Are Off He Goes Given to Fly Wishlist Last Kiss Nothing as it Seems Light Years I am Mine Man of the Hour Yellow Ledbetter B0000027RL 443 Pearl Jam Audio CD PEARL JAM 47857 0733606127320 0733606127320 0661868158229 0661868158328 0008455372123 0744687200925 0086625010426 0074644785722 0075992573924 0 22 898 USD $8.98 Columbia 733606127320 1 1 733606127320 Music ABIS_MUSIC Columbia 1991-08-27 1VY3QK000CNB Columbia Ten 661868158229 661868158229 075992573924 086625010426 008455372123 661868158328 744687200925 733606127320 074644785722 428 USD $4.28 48 USD $0.48 475 USD $4.75 42 368 13 0 1 1 http://www.amazon.com/gp/offer-listing/B0000027RL/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New NNgwW2KuKz%2BaQNoF9vdYdrQYFO7s2%2FonyyhMvOdzbgfqnGrQ3eMvhhOIByrZFmmN8bRIG6OnuuxB1EZMOdUL7DZ2%2Fn9aSqHXronz9EpRxzo%3D 698 USD $6.98 200 USD $2.00 22 Usually ships in 24 hours now 0 0 1 Once Even Flow Alive Why Go Black Jeremy Oceans Porch Garden Deep Release Master/Slave B00005A1V9 51768 Angie Dickinson Dennis Weaver Robert Wagner Lesley Ann Warren Tiana Alexandra NR (Not Rated) VHS Tape 21169 Gayne Rescher Donald R. Rode Frank Konigsberg Sam Manners Stirling Silliphant 9780790760674 9780790760674 0085392116935 Closed-captioned Color NTSC 0790760673 English Unknown 1998 USD $19.98 Warner Home Video 2 Video ABIS_VIDEO Warner Home Video 2001-05-08 278 0-R-4-0004 Warner Home Video Pearl (The Miniseries) [VHS] 085392116935 085392116935 2366 USD $23.66 494 USD $4.94 2260 USD $22.60 7 18 2 0 0 0 http://www.amazon.com/gp/offer-listing/B00005A1V9/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 0792839935 88475 Godfrey Cambridge Raymond St. Jacques Calvin Lockhart Judy Pace Redd Foxx R (Restricted) VHS Tape 207380 Gerald Hirschfeld Robert Q. Lovett Samuel Goldwyn Jr. Arnold Perl Chester Himes Ossie Davis 9780792839934 9780792839934 0027616738035 Closed-captioned Color HiFi Sound Original recording reissued NTSC 0792839935 English Unknown 994 USD $9.94 MGM (Video & DVD) 1 Video ABIS_VIDEO MGM (Video & DVD) 2001-01-09 97 vhsuAGA006af-8z MGM (Video & DVD) Cotton Comes to Harlem [VHS] 027616738035 027616738035 945 USD $9.45 270 USD $2.70 1599 USD $15.99 3 16 1 0 1 1 http://www.amazon.com/gp/offer-listing/0792839935/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New y6mDH9a%2B%2FlODiFYYt6wF3HmQ0Nppx6N7yozkCq9YicaBv7aKLBn2JA304MvnKWqFpswLuqWNUJSlMsf70UVJcL0pbz0P2CCzjOHWiaGWGPeAgPkgjnF2mtLooHlnzsaXXp9rRk3rM7LQJFl9JUKhE3n9YF%2FEqWF6 947 USD $9.47 47 USD $0.47 5 Usually ships in 1-2 business days now 24 48 0 B000244FPK 202965 Unrated VHS Tape Aviva Slesin 9780794204990 9780794204990 0720917018553 Black & White Color NTSC 0794204996 English Unknown English Original Language 1998 USD $19.98 Fox Lorber 1 Video ABIS_VIDEO Fox Lorber 2004-07-20 72 G47v2-73406 Fox Lorber Secret Lives - Hidden Children and Their Rescuers During WWII [VHS] 720917018553 720917018553 1333 USD $13.33 0 4 0 0 0 0 http://www.amazon.com/gp/offer-listing/B000244FPK/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B000JOT2TW 10070 Misc. Neiko 01138A 0837013011385 0837013011385 Hex driver impact sockets in drop forged black Chrome-Molybdenum steel Set with 8 sockets in T-sizes in 1/2" drive: T30, T40, T45, T47, T50, T55, T60 and T70 Size markings engraved on each individual impact socket Heavy duty carrying/storage case included 0 0 9999 USD $99.99 Neiko RI-01138A 01138A 1 01138A Home Improvement TOOLS Neiko Neiko Neiko Super Heavy-Duty Torx Driver Impact Socket Set - 1/2" Inch Drive 837013011385 837013011385 2995 USD $29.95 5 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000JOT2TW/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New 3MH2mw8uku89E4qQgzxQT1U5mkrWzyN8wHgUSdR4H61mGqd3quGuBOR5bbIYWbcVzqfXTzYCEaCtDB7BG6Z11x4RAbGGVSBg26PwjS76AIyxyzwUrK0UAacZHL6DC23qC3cpalW58c3Y6uwxvLRkS74hLVbagcr8 3699 USD $36.99 6300 USD $63.00 63 Usually ships in 24 hours now 0 0 1 B00007BHYP 7722 Tools & Home Improvement Pearl Abrasive BR7001C 0662333053872 0662333053872 No tools required For use on wood, concrete, marble, and much more Dramatically increases cutting speed and control Greater versatility and efficiency Fits most popular direct drive circular saws 2.80 6600 USD $66.00 Pearl Abrasive BR7001C BR7001C BR7001C Home Improvement TOOLS Pearl Abrasive Pearl Abrasive Pearl Abrasive Company BR7001C Blade Roller Sidewinder for Most Circular Saws 662333053872 662333053872 90 Days 4508 USD $45.08 1 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B00007BHYP/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New YpIOps3lxRBO1GzsmP8aGbB8CbTfr6AU8uhLkqi0Oz3Uz34W0yzi7tYzX96DU6u9dnkCAS%2BvUAanyFW7Ew7xk07bKz%2FsoR7W71oJ%2B6FdPgE%3D 4508 USD $45.08 2092 USD $20.92 32 Usually ships in 24 hours now 0 0 1 B000ILXPTO This Old House 1561587923 Creating a New Old House: Yesterday's Character for Today's Home (American Institute Architects) B001706YMU 11284 Misc. PEARL Protected Primed White 0874902003250 0874902003250 In-wall Permanent Ladder, fixed emergency escape, fire escape ladder, home fire escape 1650 1450 3000 338 29995 USD $299.95 PEARL Protected PP-23 PP-23 PP-23 Home Improvement TOOLS PEARL Protected 74900 PEARL Protected PEARL Protected Permanent Escape Ladder 874902003250 874902003250 23899 USD $238.99 6 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B001706YMU/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New k1zsMkqYsM8T8V6W683j4wda192MMcRG2cBRdU%2Fp1fAZDOVdZI77LNWSckbpFi%2B7dNilUB3ceZeamTHvSwN1EjyZHqT%2Bif1AZx06JG%2BJklswcSRgPa%2BK9kII1CS2NPd4aUyZ2rZHoVE%3D 25899 USD $258.99 4096 USD $40.96 14 Usually ships in 1-2 business days now 24 48 0 B000N6UERA 2569 Johnny Depp Geoffrey Rush Orlando Bloom Keira Knightley Jonathan Pryce 2.35:1 PG-13 (Parental Guidance Suggested) Blu-ray Buena Vista Home Video Bruce Hendricks Chad Oman Jerry Bruckheimer Jay Wolpert Stuart Beattie Ted Elliott Terry Rossio Gore Verbinski 0786936724790 0786936724790 PIRATES OF THE CARIBBEAN: THE CURSE OF THE BLACK PEARL pulses with heart pounding excitement in a Blu-ray 2 disc-set created from the original digital source files. Starring Johnny Depp, Disney's action-packed thrill ride delivers more mile-a-minute adventure than ever in this mind-boggling format. Climb aboard as legendary pirate Captain Jack Sparrow and young sword-maker Will Turner join for Anamorphic Color Dolby Subtitled Widescreen 0 1 30 English Unknown Dolby Digital 5.1 English Subtitled French Subtitled Spanish Subtitled English Original Language Dolby Digital 5.1 French Original Language Dolby Digital 5.1 Spanish Original Language Dolby Digital 5.1 French Dubbed Spanish Dubbed 2999 USD $29.99 Walt Disney Pictures DIS53455BLU 2 1 DIS53455BLU DVD ABIS_DVD Walt Disney Pictures 0 2007-05-22 143 Y02-035 Walt Disney Pictures Pirates of the Caribbean: The Curse of the Black Pearl [Blu-ray] 786936724790 786936724790 975 USD $9.75 803 USD $8.03 825 USD $8.25 49 32 3 0 1 1 http://www.amazon.com/gp/offer-listing/B000N6UERA/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New 6BvdbWJq19MSUgTUUOw0g7hyRhrgQbZSy9aj2JxgzgxU8m4zyZhbwZ2CefMnyiwOwk315FtO9PVkV11FOoIVltafqQUq6nBXDGLsTYc2lEHp4fCYDVZo52WN7U2vGMFZHGryr8ta%2FMwoGQEcMMyiAPBt6xY6e0id 1197 USD $11.97 1802 USD $18.02 60 Usually ships in 24 hours now 0 0 1 B00003CXTG 1742 Ben Affleck Kate Beckinsale Josh Hartnett Alec Baldwin Jaime King 2.35:1 PG-13 (Parental Guidance Suggested) DVD BUENA VISTA HOME VIDEO 2388903 23889 Barry H. Waldman Bruce Hendricks Chad Oman Jennifer Klein Jerry Bruckheimer K.C. Hodenfield Randall Wallace Michael Bay 9780788831218 9780788831218 0786936164282 Special feature: "Journey to the screen: the Making of Pearl Harbor" "Unsung Heroes" Historical Documentary Faith Hill Music Video "There You'll Be". Closed-captioned Color Dolby DTS Surround Sound DVD Widescreen NTSC 0 0788831216 1 45 English Unknown English Original Language Unknown 1499 USD $14.99 Touchstone / Disney DISD23889D 2 1 DISD23889D DVD ABIS_DVD Touchstone / Disney 1 2001-12-04 183 786936164282_AUDVIDDG_US Touchstone / Disney Pearl Harbor (Two-Disc 60th Anniversary Commemorative Edition) 786936164282 786936164282 529 USD $5.29 2 USD $0.02 1225 USD $12.25 70 504 18 0 1 1 http://www.amazon.com/gp/offer-listing/B00003CXTG/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New e6VUDu6%2BMcQixiIzZA5TFMqYcYxJHRrfopZ88mBpO0d77OJZEwNgtVL4JHN4uuh6wKbhNZvwaP9zN3p%2FZ%2Fi5sap4gRg85s8S26xyMDoyaI%2BJnNvDR0Ttt09leSR4Ia8MnmNsRfLE0dX5vKE1XVOKlw%3D%3D 1130 USD $11.30 369 USD $3.69 25 Usually ships in 24 hours now 0 0 1 B003D6IROY 195698 Amazon Instant Video Sesame Workshop Emily Perl Kingsley Kevin Clash 4 Childrens Television TV Series Episode Video on Demand DOWNLOADABLE_TV_EPISODE 2010-03-19 23 Sesame Workshop Happy Healthy Ready for School: Fun at Home 0 USD $0.00 1 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B003D6IROY/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New BPrxHPaT7VC36LC2b6K6B5A8T8Mr4E2DJt3bDmFYmZRGMwslRMAhE7FCp8P4VK50oMbK%2BIBekAe8roXM9v2aHey7S2%2BW5qQIqo0Z4LldpoPMiTvJil2YCe4MD%2FHh752hnesm5nBH88eouISVJBRGuv05UeO1egJr 0 USD $0.00 Usually ships in 1-2 business days now 24 48 0 B0012N5EHS Health and Beauty Enzymatic Enzymatic Therapy 1 Health and Beauty HEALTH_PERSONAL_CARE Enzymatic Therapy P29791 Enzymatic Therapy Enzymatic Therapy Acidophilus Pearls 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B0012N5EHS/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B0051IHLDU Acidophilus and Bifidus 8 Billion B0011023KS 1742 Health and Beauty Integrative Therapeutics 871791000025 HealthMisc 0871791000025 0871791000025 Probiotics support digestive, immune, and skin health. Probiotics help support healthy skin from the inside out: they help manage and eliminate free radicals and toxins. They survive the stomach to thrive in the intestines 488 150 8 425 *These statements have not been evaluated by the Food and Drug Administration. This product is not intended to diagnosetreatcureor prevent any disease. 4534 USD $45.34 Integrative Therapeutics 871791000025 1 1 871791000025 Health and Beauty HEALTH_PERSONAL_CARE 2011-01-09 Integrative Therapeutics 90 capsules 871791000025 Integrative Therapeutics Integrative Therapeutics Probiotic Pearls, 90-Count 871791000025 871791000025 2399 USD $23.99 18 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B0011023KS/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New TfulpNEtBDn9hW0v6ky5C%2Bjhs4Y6B%2BxMJeEnsnCaXXfsF3pcxT731L%2Bf7O5aGq4HkKqFhhoYOJTvwVGfdrQdrDq3vWG0SBs4wxBBhXEwcW5cqJ%2F5HmW9yGrWQ%2F8dRGa0XSoJ0XgzZb4uwarLvYxFbQ%3D%3D 2399 USD $23.99 2135 USD $21.35 47 Usually ships in 24 hours now 0 0 1 B002GFUX1I Health and Beauty Enzymatic Enzymatic Therapy 1 Health and Beauty HEALTH_PERSONAL_CARE Enzymatic Therapy P70693 Enzymatic Therapy Enzymatic Therapy Pearls YB 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B002GFUX1I/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B0051IHLDU Acidophilus and Bifidus 8 Billion B003L2N2R2 4205 Electronics BlackBerry 0803896628019 0803896628019 Compatible with BlackBerry Pearl 3G 9100 and 9105 Clear protective film produces no haziness, less glare and no bubbles Custom-tailored to exact dimensions of the BlackBerry Pearl 3G's screen Easy to apply and easily removable without leaving residue 140 EZC SP-BB-9100 1 SP-BB-9100 CE OFFICE_ELECTRONICS EZC IC-SP-BB-9100 EZC BlackBerry Pearl 3G Screen Protector (BlackBerry 9100) 803896628019 803896628019 1 USD $0.01 9 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B003L2N2R2/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New oj3HayJQruVfNt54g3F1DQc%2FH46%2B7Tq2BMbTvkh%2BYH8DhaqpmTXd5cX9giRs8esd0cgG4OaLsVHqyRSbG9gYyQ6nhRGlXwPMrIC2HEWl2%2BvGkrzrFqVqV93bLOefmKZlL4vuLF7SLMxPNPOIUdTI6Uv0lO8utDmB 210 USD $2.10 Usually ships in 1-2 business days now 24 48 0 B000OLC64I 4784 SanDisk 2GB memory card factory direct from SanDisk 2999 USD $29.99 SanDisk 2 GB MicroSD 1 Single Detail Page Misc MISC_OTHER SanDisk 2G TF San 0A .2213 SanDisk SanDisk 2GB microSDHC memory card (Bulk Pack) 28 USD $0.28 3900 USD $39.00 10 1 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000OLC64I/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New Pm%2FoUtM8vZT0nuY%2BRKUtZqxau617gZCLr6EATEI%2F%2F%2FfUFdcEzvqDF%2BqVxbMk8LEUEePnEjwjk5otlH6Hxwo1U%2B3s8Yp6a7uB9HYbGWjS2ADErT9RuAj5CtJaJgtcsKNlzi6Imqr8nw6B%2BWEZSAD5NQ%3D%3D 459 USD $4.59 2540 USD $25.40 85 Usually ships in 1-2 business days now 24 48 0 B0017QQQAE Personal Computers Creative Labs SB1090 70SB109000000 0054651146488 0054651146488 X-Fi Crystalizer technology restores the detail and vibrance to your compressed music and movies. Slip on your headphones and X-Fi CMSS-3D technology moves the sound away from your ears and into the space around you. Expand your stereo music and movies into surround sound with X-Fi CMSS-3D technology. Voices are centered in front of you. Realistic sound effects in games Bullets whiz past your head. Explosions shake the room. Cinematic surround sound from DVD movies Watch your DVDs in cinematic surround sound with PowerDVD software 0 0 630 894 65 240 5999 USD $59.99 Creative 70SB10900000 70SB109000000 1 1 70SB109000000 Windows XP CE SOUND_CARD Creative PR1708-2 Creative Creative Labs USB Sound Blaster X-Fi Surround 5.1 Audio System SB1090 054651146488 054651146488 8495 USD $84.95 3519 USD $35.19 5499 USD $54.99 4 3 0 1 1 1 http://www.amazon.com/gp/offer-listing/B0017QQQAE/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New 9wTJd23TZsZZvqnViP3zMgJ6oVSJ9yKl%2FrnJeGHl%2Fy49D2j%2BHg7OwHB3GYzQwwj%2FCo9MXNTbOGUAOgYjuy7ZdCa93%2FVvZfl4YPTeNARcs%2FykotcnxaNPUBVWiXho0QWPyX9JP2fitswK96lXknXGNkL9INV074Kc 8495 USD $84.95 Usually ships in 1-2 business days now 24 48 0 B000EMAZPO 1974 Grocery Lipton 10041000210874 0041000210877 0041000210877 Grown on the highest elevation tea estates of Sri Lanka, this tea has a clean, smooth flavor and lip-smacking delicious taste Pack of six 20-count tea bag boxes (total 120 tea bags) Contains 130 mg of flavonoids per 8 fluid ounce serving, is 100% natural, no preservatives or coloring Unique pyramid-shaped bags allow the tea to flow freely for a truly authentic tea infusion Enjoy this exceptionally pure tea flavor and aroma, hot or iced 2237 USD $22.37 Lipton 6 6 Grocery GROCERY Lipton 2006-02-13 Lipton Lipton Black Tea, Black Pearl Pure Long Leaf, Premium Pyramid Tea Bags, 20-Count Boxes (Pack of 6) 041000210877 041000210877 1612 USD $16.12 6 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000EMAZPO/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New 4Zlmb0E8XK8Isfu%2FX8c5DYpkpUfBTBnYrzYn%2FLFGLgJLG%2FmgIl1fqbUIZ%2B22B%2B1tSnY61kMBmk0v1XdOt%2BrQOOYbMDqkiZYIRLxAV9Hckns%3D 1612 USD $16.12 625 USD $6.25 28 Usually ships in 24 hours now 0 0 1 B000EM6PTO Lipton White Tea, Island Mango & Peach, Premium Pyramid Tea Bags, 18-Count Boxes (Pack of 6) B000FN1TPM Klean Kanteen with Loop Cap, (40 oz) B0001N7RLQ 6496 Misc. Bubble Tea Supply National Best Taste Award Winner 2002-2004 All U.S. orders shipped DHL 3 Day Easy to Prepare Recipes Included Save by Making Bubble Tea at Home 200 1043 USD $10.43 Bubble Tea Supply Grocery GROCERY Bubble Tea Supply Bubble Tea Supply Bubble Tea Black Tapioca Pearl (2.2 lbs) 684 USD $6.84 4 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B0001N7RLQ/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New eMm2nKNPrSf%2Bl8eccgorVYGKoyz5wgDHbEWinjnzHUHG2r6o%2FMtNcR5Y%2BB7oOcJFWO1TRZTrThj08oPTNIIqGEt8Ak0fJ%2B14lpne%2BZ1k6jEZ8OH7gnWA7%2B%2Bn%2BBqF4AV6b4mxq%2FZv0gWAz%2Biy3J83PVFU%2BTRHyNV5 1488 USD $14.88 Usually ships in 24 hours now 0 0 1 B001LDAE4C 5019 Unknown Binding Lars Own 0654523002203 0654523002203 Pearl sugar is granulated white sugar that is processed into small grains. The grains are then polished to a pearl like finish. Lars Own Pearl Sugar is used to make traditional Belgian Waffles. When added to the dough, the sugar caramelizes and creates pockets of sweetness. Pearled sugar adds a decorative touch to baked goods, especially when food coloring is added. This distinctive and especially sweet sugar does not melt when baked, and retains it's appearance after baking. Imported from Belguim. 50 799 USD $7.99 Lars Own 1 1 Grocery GOURMET_FOOD Lars Own Lars Own Lars Own Imported Belgian Pearl Sugar - 2 pouches weighing 8 ounces each 654523002203 654523002203 1250 USD $12.50 5 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B001LDAE4C/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New KHy%2FQwTE5xhy1jTA1%2FDrvTda%2BvSNYK9%2BRW%2FSDSQL73pdLDu3rRl9UJekXKxx%2BIriLi68fnt260yA6PkTajDRD5UEMZ2Kc1cfDInPLkLKBa0NMXI1eeoqLIw6rQ4FBx%2BV8cJmoFfwvQGUk0ycsy0cnw%3D%3D 1797 USD $17.97 Usually ships in 24 hours now 0 0 1 B0057XTEP2 79347 Apparel 99 Volts womens Machine wash and dry Babydoll fit is VERY petite. Fits like a juniors shirt. Women's regular fit is available in a separate ad. Please see measurement chart. 1 Apparel SHIRT zhrtnerdw I Heart (Love) Nerds Women's Babydoll Petite Fit Tee Shirt in 6 Colors Small thru XL 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B0057XTEP2/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B001E2O7P2 31643 Apparel 99 Volts womens Machine wash and dry Babydoll fit is VERY petite. Please see measurement chart. 1 Apparel SHIRT Ztalknerdytomew Talk Nerdy To Me Women's Tee Shirt in 6 Colors Small thru XXL 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B001E2O7P2/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B001E2PJ86 68186 Apparel 99 Volts mens Machine wash and dry 1 Apparel SHIRT zctraltdelm CTRL ALT DELETE Computer Keyboard Buttons Logo Men's Tee Shirt in 12 colors Small thru 6XL 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B001E2PJ86/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B004ZFF3CQ 17 Toy LEGO 4611544 0673419145039 0673419145039 TBD 804 9999 USD $99.99 LEGO 192 108 4611544 Toy TOYS_AND_GAMES LEGO wa864184-673419145039 LEGO LEGO Pirates of the Caribbean Black Pearl 4184 673419145039 673419145039 8499 USD $84.99 27 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B004ZFF3CQ/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New nF2djHF4aulrLZ7Om8PLvop1lsm34GOCdDIt6KPxefDKt2PcpmVAWbIXBt%2BK0%2FHnN%2F9%2B8YhrTJbeT6y5QQl9xdWswJkO5M7sDpLEdGskn9tDlYQX3Bi55A%3D%3D 8499 USD $84.99 1500 USD $15.00 15 Usually ships in 24 hours now 0 0 1 B000WCYMSW 28933 Toy Pok?mon 50 Pokemon Diamond Pearl Trading Cards Lot The perfect collection for deck builder Ship in ziplock bag with no packaged 100 Pokemon USA 1188 12 IX-7OQK-11NQ IX-7OQK-11NQ Toy TOYS_AND_GAMES Pokemon USA 1755620301-1190688574645 Pokemon USA 50 Pokemon Diamond Pearl Trading Cards Lot 750 USD $7.50 5 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000WCYMSW/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New eJBORNQQQPumOhaIxyMaruQvnbxbFD655kPaWQirRxyKC9Ta%2BFD79NrD9osEUFML5JMEFmYiziB0QWDwSVDO57TCzwPfeYuKk75QD3q2PaBLUixA9gFEOMf70NCU%2Fm9b7rm9z31Fm7Tk9%2FvQP%2BgwDw%3D%3D 750 USD $7.50 Usually ships in 1-2 business days now 24 48 0 B003LMWM1Y 53639 Toy Bandai BAN163113 4543112631138 4543112631138 Official Licensed Gundam Model Kit Imported from Japan 300 Bandai 163113 163113 Toy TOYS_AND_GAMES Bandai QZ-J005-P89K Bandai MG Master Grade 1/100 Gundam Wing Zero Custom Pearl Gloss Version 5495 USD $54.95 7 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B003LMWM1Y/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New dGS8D6YXbGNqMzDUVnQUClmq02J4yQEPHkWhhdkXZ71kzkEUsKL%2BlUP3LpFEXK2bsbueNKB%2BQdBlSBQXQf1X4r7ztvDmursetor1uVuMfpUtqB287TI4em%2FzHR7gPAZYXL3gJhDkWTY4rjfvEmY4DQ%3D%3D 5995 USD $59.95 Usually ships in 24 hours now 0 0 1 B000HNHA12 Electronics ADS Tech 65867G 498959 RDX155EF PAFI4 RDX-155 RDX-155-EF H28695 RDX-155-EF 297697 white 0007578871551 0007578871551 0757887155131 0757887151133 Discover Music ¿ Find Song Title, Artist and Other Information Record Radio Programming ¿ Listen to the Entire Radio Playlist or Individual     Songs  Playback Recordings on PC or Portable Music Players Receive RDS/RBDS ¿ Display Radio Text from FM Stations (only with Instant     Radio application, not in Snaptune) Retractable Antenna Included 0 0 830 275 13 675 3999 USD $39.99 ADS Technologies RDX-155-EF RDX-155-EF 1 1 RDX-155-EF Network Media Player MP3_PLAYER ADS Technologies SY2444721 ADS Technologies ADS RDX-155-EF Instant FM Music 757887155131 757887155131 007578871551 757887151133 1 yr parts/labor 699 USD $6.99 6 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000HNHA12/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New h5RpHXoGdX7lcE1H7C9IKKKYtmyl6Lm86IvFM%2FqTwG%2BfDXt1LZ3fZBjWnh0pHat9rwBLhGpf463N4gSF7s4FA0rVPE4zMB0BBbvgZqAiRugVVc35X9Py6Z7tM6Y%2FyDDGP0MQxbCLr%2FLiubaB33cHlKfC%2Fkl4cOlh 1099 USD $10.99 2900 USD $29.00 73 Usually ships in 24 hours now 0 0 1 B002GZ1IRG Bose Mobile In-Ear Headset B002AR5XIK Monster iCable 800 MP3 Player to Auxiliary Input Cord (3 Feet) B0007WZLDC Etymotic ER-4P Portable In-Ear Earphones B000QSOP0M Belkin AC Wall and USB Charger for iPod with Dock Connector (White) B000BQSGMM Etymotic Research ER6i Isolator In-Ear Earphones (Black) B000V0G3XM 5396 Automotive Einszett 981405 EIN-981405 5412763814056 5412763814056 Cleans and protects in one step Advanced polymer waxes protect and add a high gloss shine No residue or spotting Won't harm sensitive wax finishes 130 1000 USD $10.00 einszett 981405 981405 1 981405 Automotive Parts and Accessories AUTO_ACCESSORY einszett 500 ml / 16.9 fl oz einszett einszett 981405 Perls Shampoo - 16.9 fl. oz. 900 USD $9.00 3 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000V0G3XM/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New y8NoR9aJxVndVhGJV9zMsP1LWSdRHmw3a4tc1kPHkwmXoEqC%2F7TlmvTWtkmdZbrueuoOCEG9w%2FykWBS%2FjT9RaHak3FT%2BuLB%2FRk%2BQDN0APacJjbHZb2UWAg%3D%3D 900 USD $9.00 100 USD $1.00 10 Usually ships in 24 hours now 0 0 1 1439169217 625 Pearl Jam Hardcover Cameron Crowe 9781439169216 9781439169216 1439169217 1 1150 125 365 975 4000 USD $40.00 Simon & Schuster 1 384 Book ABIS_BOOK 2011-09-13 Simon & Schuster 2011-09-13 KA9781439169216 Simon & Schuster Pearl Jam Twenty 1880 USD $18.80 1769 USD $17.69 5499 USD $54.99 44 15 1 0 1 1 http://www.amazon.com/gp/offer-listing/1439169217/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New BtfVzm0UVWkDX82hV1knMrMPI4RB%2Fn2S8o7K4Yfw34uJNBGdtN8ftS9BSm1FSTddYr9kJXEycHLI%2BV5AOtAAUBqRKtkea8SeEhxLAUALYPaquM1trfZzHA%3D%3D 2454 USD $24.54 1546 USD $15.46 39 Usually ships in 24 hours now 0 0 1 0470442204 2584 Joshua Rosenbaum Joshua Pearl Hardcover Joseph R. Perella 9780470442203 9780470442203 1 0470442204 1 130 1000 165 700 8000 USD $80.00 Wiley 1 304 Book ABIS_BOOK 2009-05-04 Wiley 0470442204-11-XBZN Wiley Investment Banking: Valuation, Leveraged Buyouts, and Mergers and Acquisitions (Wiley Finance) 4099 USD $40.99 4090 USD $40.90 58 38 0 0 1 1 http://www.amazon.com/gp/offer-listing/0470442204/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New JLO72ezRnfdFc%2BQbH72oNiNTbd5VMZorHz0bBM5%2BFOfMscbM4%2BC29grUbi4GEy%2F2UFuBgTd8DnPB4Ic6PvCL%2BMrnblo8gphKIfKPDo94m%2FY%3D 4170 USD $41.70 3830 USD $38.30 48 Usually ships in 24 hours now 0 0 1 1892112604 5062 Debi Pearl Paperback 9781892112606 9781892112606 1892112604 1495 USD $14.95 No Greater Joy Ministries 1 297 Book ABIS_BOOK 2004-12-01 No Greater Joy Ministries mon0000103916 No Greater Joy Ministries Created to Be His Help Meet: Discover How God Can Make Your Marriage Glorious 849 USD $8.49 450 USD $4.50 998 USD $9.98 62 81 2 0 1 1 http://www.amazon.com/gp/offer-listing/1892112604/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New VtCquTeNGLthErVW2kXHJ8S5UrT%2BEnJtuudPgPkZx2x5FooytVO%2FC4VfdT0iSFwzZYdJEnn9v6MP54PNnlSvNzKoq6D%2FTWdkFksOcIY2KDM%3D 898 USD $8.98 597 USD $5.97 40 Usually ships in 24 hours now 0 0 1 B003LL3UGQ 29667 Apparel Mephisto Agacia 6 B(M) US Chestnut Calf womens Women's Mephisto, Agacia A cushioned soft snake printed leather thong sandal Smooth linings and covered toe post for added comfort Lightweight suede covered Air Relax cork and latex footbed is specially contoured for a foot cradling effect This sandal provides proper heel, arch, and foot support when walking 18000 USD $180.00 Mephisto Agacia 883891201301 1 1 883891201301 Shoes SHOES Mephisto 6 B(M) US AGACIA_DKBRNBOA Mephisto Mephisto Women's Agacia Thong Sandal 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B003LL3UGQ/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B003US44LK Clarks Women's Un.Drizzle Thong Sandal B001HEN9JM Orthaheel Women's Tide Thong Sandals B004N5FVMA Orthaheel Women's Allegre Thong Sandals B004N5AGG6 Orthaheel Women's Lori Thong Sandals B004KGAF82 Spenco Women's PolySorb Total Support Thong Sandals B003LN0HP6 288001 Apparel Mephisto Pakita womens 32000 USD $320.00 Mephisto Pakita Shoes SHOES Mephisto 5133724 Mephisto Mephisto Women's Pakita Flat 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B003LN0HP6/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B0042X15DM 44129 Apparel Mephisto Laser Perf * * womens Women's Mephisto, Laser Perf A cushioned soft leather lace up walking casual shoe Air-Jet circulation system keeps feet cool and refreshed leather-covered cushioned insole is removable to accomodate orthotics padded tongue and collar 19500 USD $195.00 Mephisto Laser Perf 1 1 Shoes SHOES Mephisto * SBMPOS_LASER_PERF Mephisto Mephisto Women's Laser Perforated Sneaker 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B0042X15DM/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B000MJB0H6 601 Video Game Nintendo 045496738495 NIN-NTRPADAE NTRPADAE EP9822852 1828346 0065030830294 0065030830294 0045496738495 Everyone Worldwide battles and trading using WiFi. Real-time clock feature changes the time of day based on the DS clock. The Pokemon you can catch vary based on the region and the time of day. Also, certain Pokemon moves' power changes based on time. More elaborate Pokemon Contests. Players can use the accessories and dress up their Pokemon. Players make "Poffin" out of Berries to raise their Pokemon's contest stats. New dual-type Pokemon, new/altered moves, and new special abilities add to the already deep strategy of Pokemon battling. 3-D enviornments and updated graphics. role_playing_games nintendo_ds 0 1 0 50 500 25 550 3499 USD $34.99 Nintendo 1828346 1 Nintendo DS 1 1828346 Nintendo DS Video Games CONSOLE_VIDEO_GAMES 2007-04 Nintendo 2007-04-22 mon0000029366 Nintendo Pokemon - Diamond Version 045496738495 045496738495 065030830294 3290 USD $32.90 1127 USD $11.27 1998 USD $19.98 12 104 11 0 1 1 http://www.amazon.com/gp/offer-listing/B000MJB0H6/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New njjc3kxZy19ApUfy6LAExPUdyuH9YeYKosrnN%2F2TQq8fJyCc53oLRaEGNjj6eWMxs3nP5ul2wNbmOr7Ifa4HuEHTjgf65EdO1ijEmQy3GqAycIOpWEYw0XbEAZtGhMsrB956nzFlUs7v1B5eZWCA1Q%3D%3D 3875 USD $38.75 Usually ships in 1-2 business days now 24 48 0 0822332876 Pikachu's Global Adventure: The Rise and Fall of Pokémon 1598120182 Official Nintendo Pokemon Diamond Version & Pearl Version Player's Guide 0761556354 Pokemon Diamond & Pearl Pokedex: Prima Official Game Guide Vol. 2 (Prima Official Game Guides) 0761556346 Pokemon Diamond & Pearl (Prima Official Game Guide) B000MJB1WU 1001 Video Game Nintendo NTRPAPAE 045496738518 NIN-NTRPAPAE 1828446 0045496738518 0045496738518 Everyone Worldwide battles and trading using WiFi. Real-time clock feature changes the time of day based on the DS clock. The Pokemon you can catch vary based on the region and the time of day. Also, certain Pokemon moves' power changes based on time. More elaborate Pokemon Contests. Players can use the accessories and dress up their Pokemon. Players make "Poffin" out of Berries to rasie their Pokemon's contest stats. New dual-type Pokemon, new/altered moves, and new special abilities add to the already deep strategy of Pokemon battling. 3-D enviornments and updated graphics. role_playing_games nintendo_ds 0 1 0 50 500 28 550 3499 USD $34.99 Nintendo 1828446 1 Nintendo DS 1 1828446 Nintendo DS Video Games CONSOLE_VIDEO_GAMES 2007-04 Nintendo 2007-04-22 NDS-133981 Nintendo Pokemon Pearl Version 045496738518 045496738518 3295 USD $32.95 1299 USD $12.99 2300 USD $23.00 18 71 12 0 1 1 http://www.amazon.com/gp/offer-listing/B000MJB1WU/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New 1aSZZfgw4wCBKUJ7y2BmJ03YxDc2T5Bkgri40hfPNbTtQnA%2FeFI2Rs5hM5uwxi7ezi6Rim6MlzvUqxpDckD7A90xpZ6DaVrvvVyNYW36UvIH%2BnlLaoDQm6%2BPUxcKw6LZLBy4QmGgonczqKajkVhvqpH2S7w2Iw5U 4399 USD $43.99 Usually ships in 1-2 business days now 24 48 0 0822332876 Pikachu's Global Adventure: The Rise and Fall of Pokémon 1598120182 Official Nintendo Pokemon Diamond Version & Pearl Version Player's Guide 0761556346 Pokemon Diamond & Pearl (Prima Official Game Guide) 0761556354 Pokemon Diamond & Pearl Pokedex: Prima Official Game Guide Vol. 2 (Prima Official Game Guides) B002CZ756I 685 Video Game Sony 98514 Pearl White 0711719851400 0711719851400 Standard Rating Pending The ability to download games, movies, TV and other media directly from the PlayStation Network to your PSP Go. 16GB of built-in flash memory for file storage and removable memory expansion via memory stick. Bluetooth support for skype headsets and other devices. Slide out control design to maximize the ultra-crisp 3.8" LCD screen functionality. No UMD design makes for a quieter, more energy efficient device. CD Action Video Games Sony PSP 0 1 0 230 690 133 540 19999 USD $199.99 Sony 98514 98514 1 Sony PSP 1 98514 Sony PSP Video Games VIDEO_GAME_HARDWARE Sony 2009-10-01 DH98514 Sony PSPgo - Pearl White 711719851400 711719851400 15800 USD $158.00 10200 USD $102.00 20 35 0 0 1 1 http://www.amazon.com/gp/offer-listing/B002CZ756I/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New MiQ3HUqoAdOALTckDf4eVnUOxF2A8OyJsYlIQJ6%2FD0WNpEzwOOq6sqwyWnLvFt5lIzMhi7UAq5o2zn4SVtCpoD3QuGSuP1Ccr5wR9mGQTwa6YdhKKlfG3no1vdVpE710lDi7WW6D9qoyYGRy1%2FSdWg%3D%3D 16599 USD $165.99 3400 USD $34.00 17 Usually ships in 24 hours now 0 0 1 B002EQFXQE 4GB Memory Stick Micro Media + M2 Duo Adaptor B002EQE58Q PSPgo Cradle B002EQFXJ6 2GB Memory Stick Micro Media + M2 Duo Adaptor B002P69VAC 8GB Memory Stick Micro Media + M2 Duo Adaptor B002LH4UB0 PSPgo Component AV Cable B000RIVWLG 24861 CD-ROM Take 2 852898000804 Windows 0852898000804 0852898000804 Teen Intuitive controls - Simple, straightforward control scheme lets anyone pick up a controller and play Choose your side - Become dashing Douglas Knox of the USAF or fighter pilot Zenji Yamada of the Imperial Japanese Navy Air Service Take off from the deck of an aircraft carrier in the most prolific fighters, bombers and torpedo-bearing aircraft of the WWII Pacific Theatre Fight the same battles that determined the outcome of the war including Doolittle Raid, Pearl Harbor, The Battle of Midway and Iwo Jima The campaign is advanced through graphic novel- inspired animation panels which bring an exciting and refreshing feel to the game CD-ROM flying-game-genre Pc 1.25 7.5 0.65 5.25 2999 USD $29.99 Take 2 852898000804 PCSTK200080 Windows XP 1 PCSTK200080 Windows XP Video Games SOFTWARE_GAMES Take 2 2007-07-30 PCDS_B000RIVWLG Take 2 Attack on Pearl Harbor 852898000804 852898000804 1999 USD $19.99 499 USD $4.99 3 2 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000RIVWLG/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New %2FFqLDfSrzeIjaYn4bKbYS4rWW%2Fp%2B6et8P66gwCxN1xJ112OFi5NsCajMoS%2BFCRuYO%2BShZy55hWB5SLB1jKaxuRU3mXTn%2FCO7VzjrJmbok0sI9qoDD1F3swtQ7813SNZ98E%2BY%2BSEyl6AtWg1ezYSgcQ%3D%3D 1999 USD $19.99 1000 USD $10.00 33 Usually ships in 1-2 business days now 24 48 0 B000NDESM0 PC Gamer [with CD] (1-year) B003WT11H2 28533 DVD-ROM LYNDA.COM 155446 0670557028767 0670557028767 In Perl 5 Essential Training, author Bill Weinman explains the fundamentals of programming in Perl, a flexible and powerful programming language that s well suited for projects as varied as simple scripts to complex web applications. This course covers the details of the language, from conditionals, loops, and data structures to regular expressions, functions, and object-oriented programming. A qu CD-ROM Pc 20 9995 USD $99.95 LYNDA.COM 02876 02876 Windows XP Home Edition 1 02876 Windows Vista Windows 7 Windows 2000 Windows XP Mac OS X Software ABIS_SOFTWARE LYNDA.COM NE_8064163 LYNDA.COM LYNDA.COM 02876 PERL 5 ESSENTIAL TRAINING 670557028767 670557028767 9995 USD $99.95 1 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B003WT11H2/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B0052BF6YW 12145 CD-ROM DVDxDVD Inc DVD-ROM DVDxDVD Inc Linux, Windows 7, Windows Vista, Windows XP, Windows 2000, Windows Software SOFTWARE DVDxDVD Inc DVDxDVD Inc Programming Training for a Beginner in Java, C, C++, Perl and PHP, 3 DVDs of Complete Courseware and Linux Tools, ed.2011 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B0052BF6YW/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B00188ON38 4011 Apparel Pearl iZUMi 9125 mens Pearl Izumi Cyclone Toe Cover designed for road shoes with external cleats provides protection from wind and rain With soft Microfleece lining for warmth and AmFIB stretch and block insulating cover to protect from wind and rain Covers feature durable rubber sole with cleat cutaway, finger loop for easy on and off, and reflective element for nighttime visibility Made of 65 percent polyester, 30 percent nylon, and 5 percent spandex Lifetime warranty against defects in materials and workmanship 2000 USD $20.00 Pearl iZUMi 9125 9125 1 9125 Apparel ACCESSORY Pearl iZUMi P9125 Pearl iZUMi Pearl iZUMi Cyclone Toe Cover 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B00188ON38/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B000JYH8B6 Louis Garneau 2007/08 Men's Airgel 2 Cycling Shorts - Black - 1050221-020 B000KX900I Giordana 2008 Silverline Short Sleeve Cycling Jersey - Orange - (GI-SSJY-SILV-ORAN) B000JX1G7Y Retro Cicli Olympia Men's Short Sleeve Cycling Jersey B000IBO3HC Giordana 2009/10 Neoprene Pullover Shoe Cover - Black - GI-SHCO-NEOP-BLCK B000U6KHSE Pearl Izumi 2009 AmFIB Mountain Cycling Shoe Covers - Black - 9197 B00188SEB0 28662 Apparel Pearl iZUMi 235 * * mens Pearl Izumi Tri Cycling Short with shorter, 6.5-inch inseam, designed for swim, run, and ride triathlons Ultrasensor moisture wicking fabric, composed of a nylon/Lycra blend offers superior fit and dries quickly Triathlon-specific, reduced size Ultrasensor chamois pad with quick-dry fabric Unique panel design for ergonomic performance, spandex leg grippers, and internal drawstring closure at waist Lifetime warranty against defects in materials and workmanship, Tri Cycling Short is not recommended for use in chlorinated pools 0 USD $0.00 Pearl iZUMi 235 0235 1 0235 Apparel SHORTS Pearl iZUMi One Size P0235 Pearl iZUMi Pearl iZUMi Men's Triathalon Tri Cycling Short 0 0 0 0 0 0 http://www.amazon.com/gp/offer-listing/B00188SEB0/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 B001TYN5M6 Zoot Sports 2009 Men's ULTRA TX Racesuit - S9MTS02 B001G0N8DE Pearl iZUMi Elite Tri Cycling Short B0014H18EU Pearl Izumi 2008 Men's Noosa Triathlon Race Top - Shadow Grey/Lemon - 1819-2IS B0017U1YC0 Descente 2008 Men's Aero-XT Triathlon Short Short - Black - 80101bk B000TEE8LE Pearl Izumi 2007/08 Men's Triathlon Speed Suit - Moonlight/Diablo Red - 1062-029 B004MSU88K 3601 Watch Invicta 2WW-INVICTA-6895 6895 Invicta 0843836068956 0843836068956 Precise Swiss-quartz movement Mineral crystal; 18k gold-plated and stainless steel case and bracelet Date function with magnified window White mother of pearl dial with gold tone hands and hour markers; luminous; 18k gold-plated unidirectional bezel and crown Water-resistant to 330 feet (100 M) 39500 USD $395.00 Invicta 6895 6895 1 1 6895 Watch WATCH Invicta B004MSU88K Invicta Invicta Women's 6895 Pro Diver Mother-of-Pearl Dial Two-Tone Stainless Steel Watch 843836068956 843836068956 7999 USD $79.99 7500 USD $75.00 1 1 0 0 1 1 http://www.amazon.com/gp/offer-listing/B004MSU88K/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New RbZQpXD%2F82fZ%2Ffx2JBvGOBeaJDDT8Wgh1R4sgPO%2BRuTa7gwtnPaKQN1AL1Fh%2B2E7186CjMg%2BbL9%2B3gHt6T737gasfHuZg%2BFXKteCqWzaVIvPeGM9B5imseV2HZnGbipm58GJtV86dGI%3D 7999 USD $79.99 31501 USD $315.01 80 Usually ships in 1-2 business days now 24 48 0 B004748YPS 702 Wireless Phone Accessory BlackBerry BB 9100 BLK Black 0843163064249 0843163064249 This unlocked cell phone is compatible with GSM carriers like AT&T and T-Mobile. Not all carrier features may be supported. It will not work with CDMA carriers like Verizon Wireless, Alltel and Sprint Unlocked Quad-Band GSM cell phone compatible with 850/900/1800/1900MHz frequencies and 3G HSDPA 900/1700/2100 plus GPRS/EDGE data capabilities 3.1 MP Camera, 2048x1536 pixels, autofocus, LED flash; auto-focus; BlackBerry OS; Social feeds; BlackBerry maps; Document viewer (Word, Excel, PowerPoint); Talk time up to 5 hours - Standby up to 430 hs. 3.2mp camera Card slot Gps Qwerty Wifi 1 200 420 65 50 39900 USD $399.00 BlackBerry Pearl 3G 9100 1 Wireless WIRELESS_ACCESSORY BlackBerry BlackBerry Blackberry 9100 Pearl 3G Unlocked Phone with 3 MP Camera, Wi-Fi, Bluetooth, Optical Trackpad and GPS - International Warranty - Black 843163064249 843163064249 1 Year Manufacture Warranty with RIM BlackBerry 22656 USD $226.56 9 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B004748YPS/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New eTU7amsCVntloVWi70Vb1mLeTYnHku3J47hn96zBAIKIqmZV%2FIbSy1NTdYqmqOrG2Ydwx4EO0k0zYQ%2BhCUyUxvxC78cqpuTUacFXvbRhkaen1S15%2BgGsCOMq6OiPunEzr3l97us1LE9E0VhGqWf6pw%3D%3D 23699 USD $236.99 16201 USD $162.01 41 Usually ships in 24 hours now 0 0 1 B00136GT0U 708 Electronics BlackBerry 264589 0804879107552 0804879107552 Blackberry Best Replacement Repairt Part Trackball / Pearl Included + Ring with Clips Two Items Combo Included 2 499 USD $4.99 BlackBerry 40262-A-2773 1 40262-A-2773 CE CONSUMER_ELECTRONICS BlackBerry S6-1YH7-84L7 BlackBerry Blackberry Trackball / Joystick / Navigate / Pearl / Ring Repair Replacement Fix Fixing for Rim Blackberry Pearl 804879107552 804879107552 1 USD $0.01 34 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/B00136GT0U/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New c9yFo5ldJ%2B2zwLBk9XrM1ZPuPHqYgiNZX8d4tNuFKcATgWkheyAF%2BBcmnelwkfYA%2FEHeY8xo6SIwPWgLpmBc20Ibw%2BLsXwcFD9b6vxGvl7ieZUlif8wkiRGJVTc3bHY31qckVomfzqAsBYrEaWP89hIGOz9V7UuL 175 USD $1.75 324 USD $3.24 65 Usually ships in 1-2 business days now 24 48 0 B002MZZQQE 917 Wireless Phone Accessory BlackBerry BB-C-M2 Yellow 0837654596029 0837654596029 Genuine battery protects your phone with built-in overcharging protection Easy to carry, it can be recharged while in the phone Dependable: Meets all regulatory compliance requirements Safe: Built in overcharging protection Compatible with: Blackberry Pearl 8100, 8110, 8120, 8130 1699 USD $16.99 BlackBerry C-M2 C-M2-A 1 C-M2-A Wireless WIRELESS_ACCESSORY BlackBerry BLA243 BlackBerry BlackBerry Li-Ion Battery for BlackBerry Pearl 8100, 8110, 8120, 8130 (Yellow) 837654596029 837654596029 1 year manufacturer limited warranty 192 USD $1.92 395 USD $3.95 14 0 0 1 1 1 http://www.amazon.com/gp/offer-listing/B002MZZQQE/?SubscriptionId=1V5JRJ4JQCSHB3NGG902&ie=UTF8&tag=blogdivebombo-20&creative=386001&camp=2025&linkCode=xm2 New bz6XAfcLWV19bMFLGu775YbGZWKYCNDCwBO4H3ta6%2Fp3Ao1Xc13jMqiu340zlyL4X5yEm%2BJJj1n0BA1%2F%2Fm5xJ7mAyo3XWQB2EjUmP6yEXjdn318u9jG3UX42HrJnYbQ%2FBJ5WKQYm0ogcrs4l%2Bi8aNC4d1TdBiJ4z 349 USD $3.49 1350 USD $13.50 79 Usually ships in 1-2 business days now 24 48 0 B001CE4W6Q BlackBerry DoubleTalk Travel-Car Charger 8100 Pearl Net-Amazon-0.62/t/canned/all.xml0000644666302512716660000010744711652645230016256 0ustar boumenotpg1319368 5379 538 http://www.amazon.com/gp/redirect.html?camp=2025&creative=386001&location=http%3A%2F%2Fwww.amazon.com%2Fgp%2Fsearch%3Fkeywords%3Dperl%26url%3Dsearch-alias%253Daws-amazon-aps&linkCode=xm2&tag=blogdivebombo-20&SubscriptionId=1V5JRJ4JQCSHB3NGG902 1449303587 9187 Randal L. Schwartz brian d foy Tom Phoenix Paperback 9781449303587 9781449303587 Sixth Edition 1449303587 1 English Unknown English Original Language English Published 3999 USD $39.99 O'Reilly Media 1 390 Book ABIS_BOOK 2011-07-01 O'Reilly Media A13410363 O'Reilly Media Learning Perl 970 USD $9.70 2199 USD $21.99 2099 USD $20.99 36 14 0 0 1 1 http://www.amazon.com/gp/offer-listing/1449303587%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D1449303587 New UX5FqnIPaNpdK%2FiraUUYAkYqSChjLhGGVQjailwz4sG3ifHcEPPEDx9v03Yi%2FX40TYkFGMqde1ics6lAkhqrnk8yQhKpnCATxM0QH%2FYXOU4q3hQRWnay8w%3D%3D 2399 USD $23.99 1600 USD $16.00 40 Usually ships in 24 hours now 0 0 1 0596520107 49046 Randal Schwartz Tom Phoenix brian d foy Paperback 9780596520106 9780596520106 5th 0596520107 1 74 921 105 709 English Unknown English Original Language English Published 3999 USD $39.99 O'Reilly Media 1 352 Book ABIS_BOOK 2008-07-04 O'Reilly Media 0596520107BAK O'Reilly Media Learning Perl, 5th Edition 893 USD $8.93 7485 USD $74.85 792 USD $7.92 9 34 0 0 0 0 0 0596000278 20572 Larry Wall Tom Christiansen Jon Orwant Paperback 9780596000271 9780596000271 3rd 0596000278 175 917 304 701 English Unknown English Original Language English Published 4999 USD $49.99 O'Reilly Media 1 1092 Book ABIS_BOOK 2000-07-21 O'Reilly Media 6885074 O'Reilly Media Programming Perl (3rd Edition) 1495 USD $14.95 129 USD $1.29 59 108 0 0 1 1 http://www.amazon.com/gp/offer-listing/0596000278%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D0596000278 New AfVWFi1k54AVThH7yB%2BvrRMMRvPxtry%2FbX9m8sdc6cwFZfHuLHPqhdhRQDA9pbve6aYMhJDYdeGae64uDgGKQG%2Fxt3As3BDbUYYlUiRVNkk%3D 3149 USD $31.49 1850 USD $18.50 37 Usually ships in 24 hours now 0 0 1 0321496949 240267 Joseph N. Hall Joshua A. McAdams brian d foy Paperback 0321496949 9780321496942 9780321496942 2 0321496949 1 2.18 2 1.75 English Unknown English Original Language English Published 4499 USD $44.99 Addison-Wesley Professional 1 504 Book ABIS_BOOK 2010-04-29 Addison-Wesley Professional BH-9780321496942 Addison-Wesley Professional Effective Perl Programming: Ways to Write Better, More Idiomatic Perl (2nd Edition) (Effective Software Development Series) 610 USD $6.10 2557 USD $25.57 2276 USD $22.76 38 23 0 0 1 1 http://www.amazon.com/gp/offer-listing/0321496949%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D0321496949 New ttH%2B7W3%2FCOEH4bAFu%2BYOthGPptFP%2FPKhIxHzQAnBclEceOxkHsaaqYNhtKfYMb5VtIWHEZ0Nui%2BwGcQzUfYwj%2FcxHPe67iRNaFqKh%2F4RzmU2Dk73tG652g%3D%3D 3149 USD $31.49 1350 USD $13.50 30 Usually ships in 24 hours now 0 0 1 0596004923 73143 Tom Christiansen brian d foy Larry Wall Paperback 9780596004927 9780596004927 4 0596004923 1 English Unknown English Original Language English Published 4999 USD $49.99 O'Reilly Media 1 1000 Book ABIS_BOOK 2011-12-31 O'Reilly Media 0596004923 O'Reilly Media Programming Perl: Unmatched power for text processing and scripting (Otx) 888 USD $8.88 2961 USD $29.61 1 0 0 0 1 1 http://www.amazon.com/gp/offer-listing/0596004923%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D0596004923 New mxTWfbvRdRLYlUM0ygkFTh1FM7mXIMb07GVMMcXZmXs3088Ur4BVyoYv05AaMffHZ%2FY5nd6yGTx%2FGUTVxfnkyyyd%2BFkDHStUQ4NRB8l%2FFAs3Q%2BX8vXS9Sw%3D%3D 2961 USD $29.61 2038 USD $20.38 41 Not yet published now 1 48 72 1 B0026OR3NK 17445 Brian d foy Randal L. Schwartz Tom Phoenix Kindle Edition 5 9780596550424 Kindle eBook English Published 3199 USD $31.99 O'Reilly Media 1 352 eBooks ABIS_EBOOKS 2009-03-05 O'Reilly Media 2009-03-05 O'Reilly Media Learning Perl 0596003137 134170 Tom Christiansen Nathan Torkington Paperback AL09041835 9780596003135 9780596003135 Second Edition 0596003137 1 182 919 311 703 English Unknown English Original Language English Published 4995 USD $49.95 O'Reilly Media 1 966 Book ABIS_BOOK 2003-08-28 O'Reilly Media 0596003137-1314560083302 O'Reilly Media Perl Cookbook, Second Edition 370 USD $3.70 2250 USD $22.50 600 USD $6.00 28 43 0 0 1 1 http://www.amazon.com/gp/offer-listing/0596003137%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D0596003137 New 2LIS0rXR4E%2Fce2hvgf9cXm%2BYs%2FvTDyL27xdqnwwhThSiR7Ez2cEYr2VrgkqJMGSdZ3Fgbw5BGpnzvrgupZtPpyW%2BkgtzPUuTeKR7aWS9pc4%3D 3297 USD $32.97 1698 USD $16.98 34 Usually ships in 24 hours now 0 0 1 0596102062 30981 Randal L. Schwartz Tom Phoenix brian d foy Paperback 9780596102067 9780596102067 2nd ISBN13: 9780596102067 Condition: New Notes: BRAND NEW FROM PUBLISHER! 100% Satisfaction Guarantee. Tracking provided on most orders. Buy with Confidence! Millions of books sold! 0596102062 1 62 917 87 700 English Unknown English Original Language English Published 3999 USD $39.99 O'Reilly Media 1 288 Book ABIS_BOOK 2006-03-15 O'Reilly Media TU78036251 O'Reilly Media Intermediate Perl 425 USD $4.25 2000 USD $20.00 1850 USD $18.50 28 24 0 0 1 1 http://www.amazon.com/gp/offer-listing/0596102062%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D0596102062 New iL7iwQVz9TYW8zFTz1riXqVaWfCZiQXHRSDIkEolo%2B8deU7MEB%2FWdWFkSauY%2FXel8bpB493%2FekJoBZg1YDl%2FlGehFf%2FsH7ga0N5th844AA1MH8dXSGr0QQ%3D%3D 2639 USD $26.39 1360 USD $13.60 34 Usually ships in 24 hours now 0 0 1 059600639X 56909 David N. Blank-Edelman Paperback 9780596006396 9780596006396 Second Edition 059600639X 1 133 912 189 700 English Unknown English Original Language English Published 3999 USD $39.99 O'Reilly Media 1 668 Book ABIS_BOOK 2009-06-05 O'Reilly Media NP9780596006396 O'Reilly Media Automating System Administration with Perl: Tools to Make You More Efficient 775 USD $7.75 2224 USD $22.24 2000 USD $20.00 35 22 0 0 1 1 http://www.amazon.com/gp/offer-listing/059600639X%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D059600639X New 1SOvTxDrn2SRHwJpTxs9k3%2FF2Mj7KIwI57X5e2DiD5%2FN%2F9iYvEm4JzAu3WLHoHBFcBwOyHJqV1uAEebgt6Q%2FiJIpt2urDYRd0H2PUr6GGk6NIxYDM3LWcA%3D%3D 2625 USD $26.25 1374 USD $13.74 34 Usually ships in 24 hours now 24 24 1 1598632221 42962 Jr. Jerry Lee Ford Paperback 9781598632224 9781598632224 1 1598632221 1 95 847 175 805 English Unknown English Original Language English Published 2999 USD $29.99 Course Technology PTR 1 400 Book ABIS_BOOK 2006-06-30 Course Technology PTR UK-14573969BK386tol Course Technology PTR Perl Programming for the Absolute Beginner 356 USD $3.56 1579 USD $15.79 1145 USD $11.45 18 16 0 0 1 1 http://www.amazon.com/gp/offer-listing/1598632221%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D1598632221 New jeV7nQudWiWZfI0FLLVCXI01lbEnU6R470qFUGJrmfwSelEUQmUaP0VMY78yrtBqAay%2BtLL%2FEN0jPi%2BY5Vjv3rcsk9lkm8nBnPqlrMkgBoMc%2B%2FpSydvq6A%3D%3D 1635 USD $16.35 1364 USD $13.64 45 Usually ships in 24 hours now 0 0 1 Net-Amazon-0.62/t/canned/musiclabel.xml0000644666302512716660000013474211652645270017630 0ustar boumenotpg1319368 12995 1300 http://www.amazon.com/gp/redirect.html?camp=2025&creative=386001&location=http%3A%2F%2Fwww.amazon.com%2Fgp%2Fsearch%3Fkeywords%3DArista%26url%3Dsearch-alias%253Dpopular&linkCode=xm2&tag=blogdivebombo-20&SubscriptionId=1V5JRJ4JQCSHB3NGG902 B000E6UJP6 423 Alan Jackson Audio CD 0828768028124 0828768028124 20 English Original Language 1196 USD $11.96 Arista 828768028124 1 1 828768028124 Music ABIS_MUSIC 2006-06-06 Arista 2006-02-28 4338619 828768028124 Jackson, Alan Arista Precious Memories 828768028124 828768028124 609 USD $6.09 598 USD $5.98 16 16 0 0 0 0 0 Blessed Assurance Softly And Tenderly I Love To Tell The Story When We All Get To Heaven 'Tis So Sweet To Trust In Jesus In The Garden Are You Washed In The Blood? I'll Fly Away What A Friend We Have In Jesus Standing On The Promises Turn Your Eyes Upon Jesus Leaning On The Everlasting Arms The Old Rugged Cross How Great Thou Art I Want To Stroll Over Heaven With You B0044DL9TA 712 Alan Jackson Audio CD 0886977868122 0886977868122 24 English Unknown 1198 USD $11.98 SONY NASHVILLE/ ARISTA 2 1 Music ABIS_MUSIC SONY NASHVILLE/ ARISTA 2010-11-22 968210 SONY NASHVILLE/ ARISTA 34 Number Ones 886977868122 886977868122 601 USD $6.01 695 USD $6.95 48 7 0 0 1 1 http://www.amazon.com/gp/offer-listing/B0044DL9TA%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB0044DL9TA New IVXoq4NevseG0QQPfG6kiEVvC1jeTlRY8PGRGCSagXGf6SC%2BgQfgVNhjXNZu6u2RnCMw0HCVDmjxtxG5qQ%2B1TGhBwR8c3LC3NalS7RrFPWj7niNQ8zyynQ%3D%3D 1170 USD $11.70 28 USD $0.28 2 Usually ships in 24 hours now 0 0 1 Ring of Fire Here In The Real World Wanted Chasin' That Neon Rainbow I'd Love You All Over Again Don't Rock the Jukebox Someday Dallas Midnight In Montgomery Love's Got a Hold On You She's Got The Rhythm (And I Got The Blues) Tonight I Climbed The Wall Chattahoochee (Who Says) You Can't Have It All Summertime Blues Livin' On Love Gone Country I Don't Even Know Your Name Tall, Tall Trees As She's Walking Away (Zac Brown Band Featuring Alan Jackson) Look At Me I'll Try Home Little Bitty Who's Cheatin' Who There Goes Between the Devil And Me Right On The Money It Must Be Love Where I Come From Where Were You (When The World Stopped Turning) Drive (For Daddy Gene) It's Five O' Clock Somewhere (Alan Jackson and Jimmy Buffett) Remember When Small Town Southern Man Good Time Country Boy B0001XANAS 502 Carly Simon Audio CD 0828765942928 0828765942928 Original recording remastered 23 999 USD $9.99 Arista 1 1 Music ABIS_MUSIC Arista 2004-05-04 mon0000001917 Arista Reflections: Carly Simon's Greatest Hits 828765942928 828765942928 701 USD $7.01 352 USD $3.52 32 30 0 0 1 1 http://www.amazon.com/gp/offer-listing/B0001XANAS%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB0001XANAS New mAjI9UjNty5MxGJy0VmR0wkPpyfpxu886%2FQQqGshGXxz%2BTj9dCQ5ZU9fbTXEzJJIXFvdKyOwwsBZEGSMEbzRsY7SeXJSPDoJ5ucgzryT354%3D 1056 USD $10.56 Usually ships in 24 hours now 0 0 1 That's The Way I've Always Heard It Should Be Legend In Your Own Time Anticipation The Right Thing To Do You're So Vain Mockingbird- with James Taylor Haven't Got Time For The Pain Nobody Does It Better You Belong To Me Jesse Coming Around Again Give Me All Night The Stuff That Dreams Are Made Of All I Want Is You Let The River Run Better Not Tell Her Love Of My Life Like A River Touched By The Sun Amity- with Sally Taylor B00005USBH 1606 Barry Manilow Audio CD Ultimate 0007822106002 0007822106002 0078221060028 23 English Original Language 999 USD $9.99 Arista 078221060028 1 1 078221060028 Music ABIS_MUSIC Arista 2002-02-05 B00005USBH-1317576212307 Arista Ultimate Manilow 078221060028 078221060028 007822106002 649 USD $6.49 165 USD $1.65 1000 USD $10.00 44 82 1 0 1 1 http://www.amazon.com/gp/offer-listing/B00005USBH%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB00005USBH New o%2Bw7hfkiBjf%2Bj5k13EVeWCI3WCfFXaMHyPf0l2Rhj1zbdX6cqC1tzDIIu3AIn9upRimYAsabcM7LkfSGChJuzghNSkTeNVK%2BKxUgpnIufZ8%3D 1097 USD $10.97 Usually ships in 24 hours now 0 0 1 Mandy It's A Miracle Could It Be Magic I Write The Songs Bandstand Boogie Tryin' To Get The Feeling This One's For You Weekend In New England Looks Like We Made It Daybreak Can't Smile Without You Even Now Copacabana (At The Copa) Somewhere In The Night Ready To Take A Chance Again Ships I Made It Through The Rain The Old Songs When October Goes Somewhere Down The Road B000F2CC0E 1104 Marlo Thomas & Friends Audio CD 0828768031322 0828768031322 Original recording remastered 25 799 USD $7.99 Arista 1 1 Music ABIS_MUSIC Arista 2006-05-09 828768031322- Arista Free to Be You & Me 828768031322 828768031322 391 USD $3.91 492 USD $4.92 37 10 0 0 1 1 http://www.amazon.com/gp/offer-listing/B000F2CC0E%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB000F2CC0E New q8lRS3oqeG6IhUIiIyaglBkx77WOue57TjHa1OrlKNozrmmF2lKJFwdWQ%2F8%2FOJ5KoIYz81S3JqTR%2BgDvwaUbKJU9U%2FiyUIZQk4m81iEtYqPRB4V073zSJw%3D%3D 839 USD $8.39 Usually ships in 24 hours now 0 0 1 Free To Be You And Me - The New Seekers Boy Meets Girl - Mel Brooks and Marlo Thomas When We Grow Up - Diana Ross Don't Dress Your Cat In An Apron - Billy De Wolfe Parents Are People - Harry Belafonte and Marlo Thomas Housework - Carol Channing Helping - Tom Smothers Ladies First - Marlo Thomas Dudley Pippin And The Principal - Billy De Wolfe, Marko Thomas, Bobby Morse It's All Right To Cry - Rosey Grier Sisters And Brothers - Sisters and Brothers My Dog Is A Plumber - Dick Cavett William's Doll - Alan Alda and Marlo Thomas Atlanta - Alan Alda and Marlo Thomas Grandma - Diana Sands Girl Land - Jack Cassidy and Shirley Jones Dudley Pippin And His No-Friend - Bobby Morse and Marlo Thomas Glad To Have A Friend Like You - Marlo Thomas Free To Be...You And Me - The New Seekers B00004R84V 1057 Whitney Houston Audio CD HOUSTON,WHITNEY 14626 0078221462624 0078221462624 Condition: Used - Good 0 500 50 26 575 1599 USD $15.99 Arista 00078221462624 2 1 00078221462624 Music ABIS_MUSIC 2000 Arista 2000-05-16 0NH35B000DGQ Arista Whitney Houston - The Greatest Hits 078221462624 078221462624 1011 USD $10.11 246 USD $2.46 1598 USD $15.98 44 73 2 0 1 1 http://www.amazon.com/gp/offer-listing/B00004R84V%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB00004R84V New Z4zOStO34tH37O%2BvEY%2BREcpKOn6PEAEb3tAKTwcTbO%2FNwJNuKjF62WE7ouFq3zWCqYsn7ykNZYBR9QimZxQ%2FJQVl6Hx65c0yR7IELVU1RJ0%3D 1355 USD $13.55 244 USD $2.44 15 Usually ships in 24 hours now 0 0 1 You Give Good Love Saving All My Love For You Greatest Love Of All All At Once If You Say My Eyes Are Beautiful Didn't We Almost Have It All Where Do Broken Hearts Go All The Man That I Need Run To You I Have Nothing I Will Always Love You Exhale (Shoop Shoop) Why Does It Hurt So Bad I Believe In You And Me Heartbreak Hotel (Featuring Faith Evans, & Kelly Price) My Love Is Your Love Same Script, Different Cast (Duet With Deborah Cox) Could I Have This Kiss Forever (Duet With Enrique Iglesias) (Metro Mix) Fine If I Told You That (Whitney Houston & George Michael) It's Not Right But It's Okay (Thunderpuss Mix) My Love Is Your Love (Jonathan Peters Mix) Heartbreak Hotel (Featuring Faith Evans And Kelly Price) (Hex Nector Mix) I Learned From The Best (HQ2 Mix) Step By Step (Junour Vasquez Mix) I'm Every Woman (Clivilles & Cole Mix) Queen Of The Night (CJ MacIntosh Mix) I Will Always Love You (Hex Rector Mix) Love Will Save The Day (Jellybean & David Morales Mix) I'm Your Baby Tonight (Dronez Mix) So Emotional (David Morales Mix) I Wanna Dance With Somebody (Who Loves Me) (Junior Vasquez Mix) How Will I Know (Junior Vasquez Mix) Greatest Love Of All (Juniour Vasquez Mix) One Moment In Time The Star Spangled Banner (Performed Live 1/27/91 at Super Bowl XXV) B000HBKCDC 1356 Sarah Mclachlan Audio CD 0828768150429 0828768150429 798 USD $7.98 Arista 1 1 Music ABIS_MUSIC Arista 2006-10-17 V0828768150429 Arista Wintersong 828768150429 828768150429 273 USD $2.73 179 USD $1.79 1000 USD $10.00 60 63 4 0 1 1 http://www.amazon.com/gp/offer-listing/B000HBKCDC%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB000HBKCDC New mVPgf9jf91Vv%2FmaPR0AYEmh9TupNN%2BXSLCvux2DnQqf%2FbtM9jnRQTKeU9P%2FcmgoO4BJdF7ng8XlyZs0TwtA4wVv6T4skh7vZnShyzxNVGB0%3D 704 USD $7.04 94 USD $0.94 12 Usually ships in 24 hours now 0 0 1 Happy Xmas (War Is Over) What Child Is This? (Greensleeves) River Wintersong I'll Be Home For Christmas O Little Town Of Bethlehem The First Noel/Mary Mary Silent Night Song For A Winter's Night Have Yourself A Merry Little Christmas In A Bleak Mid-Winter Christmas Time Is Here B00387F6ZG 1077 Sarah McLachlan Audio CD 0886975536726 0886975536726 Condition: New 25 English Unknown English Original Language 1398 USD $13.98 Arista 1 1 Music ABIS_MUSIC 2010-06-15 Arista 2010-06-15 S100R3CD369 Arista Laws Of Illusion 886975536726 886975536726 609 USD $6.09 550 USD $5.50 62 24 0 0 1 1 http://www.amazon.com/gp/offer-listing/B00387F6ZG%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB00387F6ZG New W0b1nw64NNMUck%2Bn%2B3LCuGvBjEdefKywKBiUbMPTbYi%2B%2Bp3oIW3oNocJoo1VsLzFKCfNbEC%2FilqZN92DwihRTpVn2Ve90%2FGCvC9WR7Maq5mS6YrCF8%2B69A%3D%3D 1197 USD $11.97 201 USD $2.01 14 Usually ships in 24 hours now 0 0 1 Awakenings Illusions Of Bliss Loving You Is Easy Changes Forgiveness Rivers Of Love Love Come Out Of Tune Heartbreak Don t Give Up On Us U Want Me 2 Bring On The Wonder Love Come (Piano Version) B003TML0VO 4789 Santana Audio CD 0886974596424 0886974596424 0 22 English Unknown Spanish Original Language 1198 USD $11.98 Arista 1 1 Music ABIS_MUSIC 2010-09-21 Arista 2010-09-21 0027459642 Arista Guitar Heaven: The Greatest Guitar Classics of All Time 886974596424 886974596424 607 USD $6.07 375 USD $3.75 1999 USD $19.99 72 15 1 0 1 1 http://www.amazon.com/gp/offer-listing/B003TML0VO%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB003TML0VO New QPZBiUIlePJD8UyRAFaN%2FLhAQzsNMZwQzOYo2Og%2B5cQIOPb2CCeVlhBkpt8l1%2FiQyi2%2FlC2qMX5Z1ugqwDFZpmK1RnTAZYvPN%2F%2FaIW1P938c9dAezRK42iZLfIeYAuiLKYSZ5L27Ki1dcPMyQ%2BHEbA%3D%3D 950 USD $9.50 248 USD $2.48 21 Usually ships in 24 hours now 0 0 1 Whole Lotta Love (featuring Chris Cornell) Can't You Hear Me Knocking (featuring Scott Weiland) Sunshine Of Your Love (featuring Rob Thomas) While My Guitar Gently Weeps (featuring India.Arie & Yo-Yo Ma) Photograph (featuring Chris Daughtry) Back In Black (featuring Nas) Riders On The Storm (featuring Chester Bennington & Ray Manzarek) Smoke On The Water (featuring Jacoby Shaddix) Dance The Night Away (featuring Pat Monahan) Bang A Gong (featuring Gavin Rossdale) Little Wing (featuring Joe Cocker) I Ain t Superstitious (featuring Jonny Lang) B000BGR18W 627 Carrie Underwood Audio CD SBME/ARISTA 828767119724B34000 0828767119724 0828767119724 Condition: Used - Very Good 22 999 USD $9.99 Arista 828767119724 1 1 828767119724 Music ABIS_MUSIC Arista 2005-11-15 14403598 Arista Some Hearts 828767119724 828767119724 519 USD $5.19 19 USD $0.19 999 USD $9.99 58 155 4 0 1 1 http://www.amazon.com/gp/offer-listing/B000BGR18W%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB000BGR18W New g5JOhfq%2FG2k2943fpYAllHva2rZ5XoCFJu2bgARaew8N0yP76WaPHQ6erK0rxNZGva%2B9CWe2R6NjVLbhBBMl1tlEa05Fu5rsDw65fOiLpbxWIj5p0hlbUw%3D%3D 898 USD $8.98 101 USD $1.01 10 Usually ships in 24 hours now 0 0 1 Wasted Don't Forget To Remember Me Some Hearts Jesus, Take The Wheel The Night Before (Life Goes On) Lessons Learned Before He Cheats Starts With Goodbye I Just Can't Live A Lie We're Young And Beautiful That's Where It Is Whenever You Remember I Ain't In Checotah Anymore Inside Your Heaven Net-Amazon-0.62/t/canned/power.xml0000644666302512716660000004024611253707751016637 0ustar boumenotpg1319368 True 1 author: randal schwartz and author: tom phoenix Large Books salesrank 4 1 0596101058 http://www.amazon.com/exec/obidos/redirect?tag=webservices-20%26link_code=xm2%26camp=2025%26creative=165953%26path=http://www.amazon.com/gp/redirect.html%253fASIN=0596101058%2526tag=webservices-20%2526lcode=xm2%2526cID=2025%2526ccmID=165953%2526location=/o/ASIN/0596101058%25253FSubscriptionId=YOUR_AMAZON_TOKEN 3023 http://images.amazon.com/images/P/0596101058.01._SCTHUMBZZZ_.jpg 75 56 http://images.amazon.com/images/P/0596101058.01._SCMZZZZZZZ_.jpg 160 120 http://images.amazon.com/images/P/0596101058.01._SCLZZZZZZZ_.jpg 500 376 Randal L. Schwartz Tom Phoenix brian d foy Paperback 005.13 9780596101053 4 0596101058 3995 USD $39.95 O'Reilly Media 1 283 77 920 109 710 Book 2005-07-14 O'Reilly Media O'Reilly Media Learning Perl, Fourth Edition 2499 USD $24.99 2498 USD $24.98 3995 USD $39.95 50 19 2 0 1 1 ATVPDKIKX0DER http://www.amazon.com/gp/help/seller/home.html?seller=ATVPDKIKX0DER New t%2F6glACTQ0mMq40DWoEma%2FBVQV00Rt0ppFY181ehhk8vVHO725KEV%2FmUag0wbR3S%2BF2JsGpIq98%3D 2517 USD $25.17 Usually ships in 24 hours 1 0596003137 Perl Cookbook, Second Edition 0596003749 Perl Pocket Reference, 4th Edition 0596002890 Mastering Regular Expressions, Second Edition 0596002815 Learning Python, Second Edition 0596004788 Learning Perl Objects, References, and Modules 0596102062 http://www.amazon.com/exec/obidos/redirect?tag=webservices-20%26link_code=xm2%26camp=2025%26creative=165953%26path=http://www.amazon.com/gp/redirect.html%253fASIN=0596102062%2526tag=webservices-20%2526lcode=xm2%2526cID=2025%2526ccmID=165953%2526location=/o/ASIN/0596102062%25253FSubscriptionId=YOUR_AMAZON_TOKEN 38914 http://images.amazon.com/images/P/0596102062.01._SCTHUMBZZZ_.jpg 75 57 http://images.amazon.com/images/P/0596102062.01._SCMZZZZZZZ_.jpg 160 121 http://images.amazon.com/images/P/0596102062.01._SCLZZZZZZZ_.jpg 500 378 Randal L. Schwartz brian d foy Tom Phoenix Paperback 005.133 9780596102067 2 0596102062 3999 USD $39.99 O'Reilly Media 1 256 72 918 100 700 Book 2006-03-08 O'Reilly Media O'Reilly Media Intermediate Perl 2289 USD $22.89 2287 USD $22.87 3999 USD $39.99 49 16 2 0 1 1 ATVPDKIKX0DER http://www.amazon.com/gp/help/seller/home.html?seller=ATVPDKIKX0DER New 42FRz39eTamrlByHV3IGHYxADcqha3Xs9TeFl3D%2FBgwy0qJdDQe4r48dnv%2FL1nYrlUgNL2PXHJE%3D 2639 USD $26.39 Usually ships in 24 hours 1 0596001738 Perl Best Practices 0596004567 Advanced Perl Programming 0596526741 Perl Hacks: Tips & Tools for Programming, Debugging, and Surviving (Hacks) 0596003137 Perl Cookbook, Second Edition 0596002890 Mastering Regular Expressions, Second Edition 0596004788 http://www.amazon.com/exec/obidos/redirect?tag=webservices-20%26link_code=xm2%26camp=2025%26creative=165953%26path=http://www.amazon.com/gp/redirect.html%253fASIN=0596004788%2526tag=webservices-20%2526lcode=xm2%2526cID=2025%2526ccmID=165953%2526location=/o/ASIN/0596004788%25253FSubscriptionId=YOUR_AMAZON_TOKEN 75318 http://images.amazon.com/images/P/0596004788.01._SCTHUMBZZZ_.jpg 75 57 http://images.amazon.com/images/P/0596004788.01._SCMZZZZZZZ_.jpg 160 121 http://images.amazon.com/images/P/0596004788.01._SCLZZZZZZZ_.jpg 500 377 Randal L. Schwartz Paperback Tom Phoenix 005 9780596004781 1 0596004788 3495 USD $34.95 O'Reilly Media 1 205 53 912 80 710 Book 2003-06-30 O'Reilly Media O'Reilly Media Learning Perl Objects, References, and Modules 636920004783 2201 USD $22.01 1699 USD $16.99 37 12 0 0 1 1 ATVPDKIKX0DER http://www.amazon.com/gp/help/seller/home.html?seller=ATVPDKIKX0DER New F5PUUXlDLhCC5RTXk%2BDGF8qkeoIew%2BZsmvAWawXwGT%2BqwYjRiwjpnqFTX9gAslkCLRnNvZBKma8%3D 2202 USD $22.02 Usually ships in 24 hours 1 0596003137 Perl Cookbook, Second Edition 0596001738 Perl Best Practices 1884777791 Object Oriented Perl: A Comprehensive Guide to Concepts and Programming Techniques 0596004567 Advanced Perl Programming 1565926994 Programming the Perl DBI 2841772012 http://www.amazon.com/exec/obidos/redirect?tag=webservices-20%26link_code=xm2%26camp=2025%26creative=165953%26path=http://www.amazon.com/gp/redirect.html%253fASIN=2841772012%2526tag=webservices-20%2526lcode=xm2%2526cID=2025%2526ccmID=165953%2526location=/o/ASIN/2841772012%25253FSubscriptionId=YOUR_AMAZON_TOKEN http://images.amazon.com/images/P/2841772012.01._SCTHUMBZZZ_.jpg 60 44 http://images.amazon.com/images/P/2841772012.01._SCMZZZZZZZ_.jpg 140 102 http://images.amazon.com/images/P/2841772012.01._SCLZZZZZZZ_.jpg 475 346 Randal L. Schwartz Tom Phoenix Paperback 9782841772018 2841772012 O'Reilly Book 2002-01-23 O'Reilly O'Reilly Introduction à Perl, 3e Edition 0 0 0 0 0 0 Net-Amazon-0.62/t/canned/exchange.xml0000644666302512716660000000403411253707751017260 0ustar boumenotpg1319368 2 1 Y01Y4725136Y4353165 1220R554328 0393023826 492 9780393023824 1 0 Setting the Mould: The United States and Britain 1945-50 by Edmonds, Robin 1058 USD $10.58 2003-12-20 2006-12-04 Open 1 collectible verygood A23JJ2BNHZMFCO brick_road_books Y01Y4725136Y4353165 1220R554328 0393023826 492 9780393023824 1 0 Setting the Mould: The United States and Britain 1945-50 by Edmonds, Robin 1058 USD $10.58 2003-12-20 2006-12-04 Open 1 collectible verygood A23JJ2BNHZMFCO brick_road_books Net-Amazon-0.62/t/canned/dvd.xml0000644666302512716660000001242711652645257016265 0ustar boumenotpg1319368 6305181772 45192 Tom Cruise Jon Voight Emmanuelle Béart Henry Czerny Jean Reno 2.35:1 PG-13 (Parental Guidance Suggested) DVD 154977 9780792153016 9780792153016 0097361549729 0097361549774 9786305181774 AC-3 Closed-captioned Color DVD Full Screen Letterboxed Widescreen NTSC 6305181772 1 English Unknown Dolby Digital 2.0 Surround Spanish Subtitled English Original Language Dolby Digital 2.0 Surround French Original Language Dolby Digital 2.0 Surround 1498 USD $14.98 Paramount 1 DVD ABIS_DVD Paramount 1 1998-11-17 110 1U03J70002P1 Paramount Mission Impossible (Widescreen Edition) 25 USD $0.25 097361549729 097361549729 097361549774 614 USD $6.14 1 USD $0.01 1000 USD $10.00 20 191 5 0 1 1 http://www.amazon.com/gp/offer-listing/6305181772%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3D6305181772 New 9k%2B2N1ZavzvK7j6T8CiL5CcZWZ9DNQeLUDv3cXG%2FWrpPz3T%2FrewSJ3JVtFYmqfd4qYQ6fPpWxurHyaPrR1OhIGa8ct1TYFboZ7Yt%2FmNhT%2FtbGYOYQperp0udpe4VXOAcGl0DT5VkJCBZk48Aq9SHeA%3D%3D 614 USD $6.14 884 USD $8.84 59 Usually ships in 24 hours now 0 0 1 Net-Amazon-0.62/t/canned/locale.xml0000644666302512716660000000436311652645262016743 0ustar boumenotpg1319368 3827313783 797694 Michael Schilli Gebundene Ausgabe 9783827313782 9783827313782 4. Aufl. 3827313783 Deutsch Unbekannt Deutsch Original Deutsch Published 3495 EUR EUR 34,95 Addison-Wesley 488 Book ABIS_BOOK 1998-06-15 Addison-Wesley MAK_MNT_9783827313782 Addison-Wesley Go To Perl 5 . 239 EUR EUR 2,39 2999 EUR EUR 29,99 0 10 1 0 0 0 0 Net-Amazon-0.62/t/canned/asin_cd.xml0000644666302512716660000001156211652645232017100 0ustar boumenotpg1319368 B00007M84Q 60843 Zwan Audio CD 161 936248436-2 9362-48436-2 0093624843627 0093624843627 0 21 English Original Language 1396 USD $13.96 Reprise / Wea 9362-48436-2 1 1 9362-48436-2 Music ABIS_MUSIC 2003-02-07 Reprise / Wea 2003-01-28 112172/10182653/10481862/00000002 Reprise / Wea Mary Star of the Sea 093624843627 093624843627 175 USD $1.75 1 USD $0.01 999 USD $9.99 38 156 9 0 1 1 http://www.amazon.com/gp/offer-listing/B00007M84Q%3FSubscriptionId%3D1V5JRJ4JQCSHB3NGG902%26tag%3Dblogdivebombo-20%26linkCode%3Dxm2%26camp%3D2025%26creative%3D386001%26creativeASIN%3DB00007M84Q New XLuoRq4Et%2FA81njR5kZuZO4Y5%2Ff036JkqPM4vEWz44eI6G6Zf8JjRX8OjSmCl2g7wr1yoUlQYbTf815%2FwkzYs1UjWvV2IiTdehH5R4YTwfY%3D 1124 USD $11.24 272 USD $2.72 19 Usually ships in 24 hours now 24 24 1 Lyric Settle Down Declarations Of Faith Honestly El Sol Of A Broken Heart Ride A Black Swan Heartsong Endless Summer Baby Let's Rock! Yeah! Desire Jesus,I / Mary Star Of The Sea Come With Me Net-Amazon-0.62/t/canned/asin_err.xml0000644666302512716660000000120211652645234017272 0ustar boumenotpg1319368 True ASIN 123 Large All AWS.InvalidParameterValue 123 is not a valid value for ItemId. Please change this value and retry your request. Net-Amazon-0.62/t/019MusicLabel.t0000644666302512716660000000255611652653264016174 0ustar boumenotpg1319368######################### # MusicLabel Search tests ######################### use warnings; use strict; use Test::More tests => 14; BEGIN { use_ok('Net::Amazon') }; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($INFO); use Net::Amazon; use Net::Amazon::Request::MusicLabel; ################################################################ # Setup ################################################################ my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .); require "$TESTDIR/init.pl"; my $CANNED = "$TESTDIR/canned"; ################################################################ canned($CANNED, "musiclabel.xml"); ################################################################ my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => $ENV{AMAZON_TOKEN}, secret_key => 'YOUR_AMZN_SECRET_KEY', max_pages => 1, #response_dump => 1, ); my $req = Net::Amazon::Request::MusicLabel->new( musiclabel => "Arista", ); # Response is of type Net::Amazon::MusicLabel::Response my $resp = $ua->request($req); ok($resp->is_success(), "Request successful"); my @properties = $resp->properties(); is(scalar @properties, 10, "10 records"); like($resp->as_string(), qr/Jackson.*?Carrie Underwood/s, "Examine records"); for ($resp->properties()) { like(lc($_->label()), qr/arista/, "Check label"); } Net-Amazon-0.62/t/011Locale.t0000644666302512716660000000246111652646135015335 0ustar boumenotpg1319368 ########################################### # Locale "de" test # Mike Schilli, 2004 (m@perlmeister.com) ########################################### use warnings; use strict; use Net::Amazon; use Net::Amazon::Request::ASIN; use Test::More tests => 5; ################################################################ # Setup ################################################################ my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .); require "$TESTDIR/init.pl"; my $CANNED = "$TESTDIR/canned"; ################################################################ canned($CANNED, "locale.xml"); ################################################################ #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init({level => $ERROR, layout => '%F{1}-%L: %m%n'}); my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', #response_dump => 1, locale => 'de', ); my $resp = $ua->search( asin => "3827313783", ); my($result) = $resp->properties(); ok($resp->is_success(), "ASIN Fetch successful"); is($result->author(), "Michael Schilli", "Author"); is($result->title(), "Go To Perl 5 .", "Title"); is($result->publisher(), "Addison-Wesley", "Publisher"); is($result->TotalOffers(), 0, "Offers"); Net-Amazon-0.62/t/026All.t0000644666302512716660000000352611652646135014657 0ustar boumenotpg1319368# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 1.t' ######################### # change 'tests => 1' to 'tests => last_test_to_print'; use warnings; use strict; use Test::More tests => 3; BEGIN { use_ok('Net::Amazon') }; use Net::Amazon; use File::Spec; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); my $CANNED = "canned"; $CANNED = File::Spec->catfile("t", "canned") unless -d $CANNED; $CANNED = File::Spec->catfile("../t", "canned") unless -d $CANNED; ###################################################################### # Successful textstream fetch ###################################################################### canned("all.xml"); my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', ); # Response is of type Net::Amazon::Textstream::Response my $resp = $ua->search( all => "perl", ); ok($resp->is_success(), "Successful fetch"); ###################################################################### # Check result ###################################################################### my @properties = $resp->properties(); my $result; foreach (@properties) { $result .= $_->as_string(); } like($result, qr/Randal Schwartz/, "single product line"); ###################################################################### # handle canned responses ###################################################################### sub canned { my($file) = @_; if(! exists $ENV{NET_AMAZON_LIVE_TESTS} ) { $file = File::Spec->catfile($CANNED, $file); open FILE, "<$file" or die "Cannot open $file"; my $data = join '', ; close FILE; push @Net::Amazon::CANNED_RESPONSES, $data; } } __END__ Net-Amazon-0.62/t/004Reviews.t0000644666302512716660000001003111652654562015557 0ustar boumenotpg1319368# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 1.t' ######################### # change 'tests => 1' to 'tests => last_test_to_print'; use warnings; use strict; use Test::More qw(no_plan); BEGIN { use_ok('Net::Amazon') }; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($INFO); use Net::Amazon::Request::ASIN; use Net::Amazon::Response::ASIN; use File::Spec; my $CANNED = "canned"; $CANNED = File::Spec->catfile("t", "canned") unless -d $CANNED; if(! exists $ENV{NET_AMAZON_LIVE_TESTS}) { for(map { File::Spec->catfile($CANNED, $_) } qw(reviews.xml)) { open FILE, "<$_" or die "Cannot open $_"; my $data = join '', ; close FILE; push @Net::Amazon::CANNED_RESPONSES, $data; } } ###################################################################### # Successful ASIN fetch ###################################################################### my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', ); my $req = Net::Amazon::Request::ASIN->new( asin => '0201360683' ); my $resp = $ua->request($req); ok($resp->is_success(), "Successful ASIN fetch"); my $result = ""; for my $property ($resp->properties()) { my $reviewset = $property->review_set(); $result .= "AVG=" . $reviewset->average_customer_rating() . "," . "TOT=" . $reviewset->total_reviews() . ","; for my $review ($reviewset->reviews()) { $result .= "COM=" . $review->content() . "," . "SUM=" . $review->summary() . "," . "RAT=" . $review->rating() . "," . "LOC=" . $review->customer_location() . "," . "NAM=" . $review->customer_name(); } } # XXX: this information is no longer readily available. # like($result, qr/AVG=4.5,TOT=6,COM=From.*?RAT=4,LOC=Enschede.*?,NAM=C.\sHulshof # COM=Excellent.*?SUM=Perl.*?RAT=5.*? # COM=I\sbought.*?SUM=Don.*?RAT=2.*? # /sx, "customer reviews"); __END__ AVG=4.33,TOT=6,COM=From its corny title you might expect another one of those sleazy introductions to Perl (I can name a few), but I can happily say that this book is an exception. The overview of the language is excellent and very comprehensible. Even after reading Learning Perl and Programming Perl, I picked up some valuable tips. The chapters on Object Oriented Programming and Perl/Tk are also good. For the Perl/CGI part, you might consider reading additional material, however. All in all, a surprisingly good introduction and reference to Perl 5, both for the beginner and the more advanced programmer.,SUM=Good introduction to Perl, and great reference,RAT=4,COM=Excellent book that gets you started with lots of areas of perl. Most of the code I have tried works fine with Activestates's 523 build and with the perl development kit 1.2.4. Having code that work is rare with these books especially with Windows. I use 98 and NT and unix. This book is not a diffinitive guide to perl but it gives you a good summay in most of the important area's and enought code to get started quickly. It gave me lots of ideas on things I could use perl for. I also like "Perl 5 complete" for theory, but the code for that book is very buggy and hard to get to work. I like its detailed explanation of how things are suppose to work. "Perl Cookbook" is also excellent for how to solve problems various kinds of problems. These are the best of the perl books I have.,SUM=Perl power,RAT=5,COM=I bought this book based on the 5-star reviews - never do THAT again......long on abstract examples that don't mirror the real world, short on logical explanations for the common man(woman).. I have had several other PERL books from the local library that were much better (Castros book is good, don't believe the condescending reviews) - not for the CGI web programmer,SUM=Don't buy this book for CGI programming,RAT=2, Net-Amazon-0.62/t/015Exchange.t0000644666302512716660000000634711652646135015673 0ustar boumenotpg1319368########################################### # Tests for Exchange requests # Mike Schilli, 2004 (m@perlmeister.com) ########################################### use warnings; use strict; use Test::More tests => 17; use Net::Amazon; use Net::Amazon::Result::Seller::Listing; use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); ################################################################ # Setup ################################################################ my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .); require "$TESTDIR/init.pl"; my $CANNED = "$TESTDIR/canned"; ################################################################ canned($CANNED, "exchange.xml"); ################################################################ my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', #response_dump => 1, ); # Get a request object my $resp = $ua->search(exchange => 'Y04Y3424291Y2398445'); ok($resp->is_success(), "Successful response"); ok(defined $resp->result(), "Defined seller result"); like($resp->result()->as_string(), qr/^Setting the Mould.*?\(0393023826\)/, "Exchange result as string"); my $listing = $resp->result(); is($listing->ExchangeStartDate(), "2003-12-20", "Listing Exchange Start Date"); is($listing->ExchangeAsin(), "0393023826", "Listing Exchange Asin"); is($listing->ExchangeConditionType(), "verygood", "Listing ExchangeConditionType"); is($listing->ExchangeSellerId(), "A23JJ2BNHZMFCO", "Listing ExchangeSellerId"); is($listing->ExchangeEndDate(), "2006-12-04", "Listing ExchangeEndDate"); is($listing->ExchangePrice(), '$10.58', "Listing ExchangePrice"); # These functions require a separate search to get this value, use SellerLookup # is($listing->ExchangeSellerRating(), "4.7", # "Listing ExchangeSellerRating"); # is($listing->ExchangeSellerCountry(), "", # "Listing ExchangeSellerCountry"); # is($listing->ExchangeSellerState(), "", # "Listing ExchangeSellerState"); # Not sure if these are even available! # is($listing->ExchangeFeaturedCategory(), "68297", # "Listing ExchangeFeaturedCategory"); # is($listing->ExchangeAvailability(), "Usually ships in 1-2 business days", # "Listing ExchangeAvailability"); # is($listing->ExchangeOfferingType(), "used", # "Listing ExchangeOfferingType"); # is($listing->ExchangeDescription(), "Title: Bold Visions for the Garden: Basics, Magic & Inspiration\n: Hartlage, Richard W.\n", "Listing ExchangeDescription"); is($listing->ExchangeStatus(), "Open", "Listing ExchangeStatus"); is($listing->ExchangeId(), "Y01Y4725136Y4353165", "Listing ExchangeId"); is($listing->ExchangeTitle(), "Setting the Mould: The United States and Britain 1945-50 by Edmonds, Robin", "Listing ExchangeTitle"); is($listing->ExchangeQuantityAllocated(), "1", "Listing ExchangeQuantityAllocated"); is($listing->ExchangeQuantity(), "1", "Listing ExchangeQuantity"); is($listing->ExchangeSellerNickname(), "brick_road_books", "Listing ExchangeSellerNickname"); is($listing->ListingId(), "1220R554328", "Listing ListingId"); is($listing->ExchangeCondition(), "collectible", "Listing ExchangeCondition"); Net-Amazon-0.62/t/013Seller.t0000644666302512716660000000575311652650743015375 0ustar boumenotpg1319368########################################### # Keyword search tests # Mike Schilli, 2004 (m@perlmeister.com) ########################################### use warnings; use strict; use Test::More tests => 25; use Net::Amazon; use Net::Amazon::Request::Seller; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); ################################################################ # Setup ################################################################ my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .); require "$TESTDIR/init.pl"; my $CANNED = "$TESTDIR/canned"; ################################################################ canned($CANNED, "seller.xml"); ################################################################ my $ua = Net::Amazon->new( associate_tag => 'YOUR_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', #response_dump => 1, ); my $req = Net::Amazon::Request::Seller->new( seller => 'A2GXAGU54VOP7', ); my $resp = $ua->request( $req, ); ok($resp->is_success(), "Successful response"); ok(defined $resp->result(), "Defined seller result"); is($resp->result()->as_string(), "brick_road_books (brick_road_books): 10", "Seller result"); is($resp->result()->StoreId(), "A23JJ2BNHZMFCO", "StoreId accessor"); is($resp->result()->SellerId(), "A23JJ2BNHZMFCO", "SellerId accessor"); is($resp->result()->as_string(), "brick_road_books (brick_road_books): 10", "Seller as_string()"); # listings my @listings = $resp->result()->listings(); is($listings[0]->ExchangeStartDate(), "2008-09-19", "Listing 1 Start Date"); is($listings[0]->ExchangeEndDate(), "", "Listing 1 End Date"); is($listings[1]->ExchangeStartDate(), "2008-09-19", "Listing 2 Start Date"); is($listings[1]->ExchangeEndDate(), "", "Listing 2 End Date"); is($listings[0]->ExchangeAsin(), "0376055723", "listings 1 Asin"); like($listings[0]->ExchangeTitle(), qr/National Parks of the West/, "listings 1 Title"); is($listings[0]->ListingId(), "1221T896306", "listings 1 listingsId"); is($listings[0]->ExchangeId(), "Y11M5526205M1732079", "listings 1 ExchangeId"); is($listings[0]->ExchangeQuantityAllocated(), "1", "listings 1 ExchangeQuantityAllocated"); is($listings[0]->ExchangeQuantity(), "1", "listings 1 ExchangeQuantity"); is($listings[0]->ExchangeCondition(), "used", "listings 1 ExchangeCondition"); is($listings[0]->ExchangeConditionType(), "good", "listings 1 ExchangeConditionType"); is($listings[0]->ExchangeSubCondition(), "good", "listings 1 ExchangeSubCondition"); is($listings[0]->ExchangeStatus(), "Open", "listings 1 ExchangeStatus"); is($listings[0]->ExchangePrice(), '$4.05', "listings 1 ExchangePrice"); is($listings[0]->ExchangeCurrencyCode(), "USD", "listings 1 ExchangeCurrencyCode"); is($listings[0]->ExchangeAmount(), "405", "listings 1 ExchangeAmount"); is($listings[0]->ExchangeSellerId(), "A23JJ2BNHZMFCO", "listings 1 ExchangeSellerId"); is($listings[0]->ExchangeSellerNickname(), "brick_road_books", "listings 1 ExchangeSellerNickname"); Net-Amazon-0.62/t/024signature.t0000644666302512716660000000745611652653411016147 0ustar boumenotpg1319368######################### # Signature Test ######################### use warnings; use strict; use utf8; # Needed to include utf8 strings use Encode; use Test::More tests => 6; BEGIN { use_ok('Net::Amazon') }; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($INFO); use Net::Amazon; use Net::Amazon::Request::Title; use URI; ################################################################ # Setup ################################################################ my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .); require "$TESTDIR/init.pl"; my $CANNED = "$TESTDIR/canned"; ################################################################ canned($CANNED, "title.xml"); ################################################################ my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', #response_dump => 1, ); my $test_url = encode('utf8', 'http://webservices.amazon.com/onca/xml?Service=AWSECommerceService&AWSAccessKeyId=YOUR_AMZN_TOKEN&Operation=ItemSearch&Keywords=Bublé&SearchIndex=Music&ResponseGroup=ItemAttributes,Offers&Version=2009-03-31&Timestamp=2009-06-02T16:31:39Z'); my $uri = $ua->_sign_request(URI->new($test_url)); is($uri->as_string, 'http://webservices.amazon.com/onca/xml?AWSAccessKeyId=YOUR_AMZN_TOKEN&Keywords=Bubl%C3%A9&Operation=ItemSearch&ResponseGroup=ItemAttributes%2COffers&SearchIndex=Music&Service=AWSECommerceService&Timestamp=2009-06-02T16%3A31%3A39Z&Version=2009-03-31&Signature=RkYJYZyrZ8LVc%2F4cIBYmW2GyX9xfQj6UtBm7LiqJfd0%3D', "Request with UTF-8 signed properly"); $test_url = 'http://webservices.amazon.com/onca/xml?Service=AWSECommerceService&AWSAccessKeyId=YOUR_AMZN_TOKEN&Operation=ItemSearch&Keywords=Ayn%20Rand&SearchIndex=Music&ResponseGroup=ItemAttributes,Offers&Version=2009-03-31&Timestamp=2009-06-02T16:31:39Z'; $uri = $ua->_sign_request(URI->new($test_url)); is($uri->as_string, 'http://webservices.amazon.com/onca/xml?AWSAccessKeyId=YOUR_AMZN_TOKEN&Keywords=Ayn%20Rand&Operation=ItemSearch&ResponseGroup=ItemAttributes%2COffers&SearchIndex=Music&Service=AWSECommerceService&Timestamp=2009-06-02T16%3A31%3A39Z&Version=2009-03-31&Signature=azs6N9v73IPR19uxWms72y7TWFHp4QLBMbQIX9%2FRK1o%3D', "Request with space signed properly"); my $req = Net::Amazon::Request::Title->new( title => "cagliostro", ); # Response is of type Net::Amazon::Artist::Response my $resp = $ua->request($req); ok($resp->is_success(), "Request successful"); my @properties = $resp->properties(); is(scalar @properties, 10, "Number of Titles"); like($resp->as_string(), qr/Faulks.*?Cagliostro/s, "Examine Movies"); #my @starring = $properties[$i]->starring(); # is($properties[0]->actor, "Yasuo Yamada", "Check actor"); # is($starring[0], "Yasuo Yamada", "Check starring"); # is($properties[0]->director, "Hayao Miyazaki", "Check director"); # like($properties[0]->title, qr/Castle of Cagliostro/, "Check title"); # is($properties[0]->studio, "Manga Video", "Check studio"); # is($properties[0]->ReleaseDate, "1991-04-03", "Check release date"); # is($properties[0]->media, "DVD", "Check media"); # is($properties[0]->Media, "DVD", "Check Media"); # is($properties[0]->nummedia, 1, "Check nummedia"); # is($properties[0]->NumMedia, 1, "Check NumMedia"); # is($properties[0]->upc, "013138206695", "Check UPC"); # like($properties[0]->mpaa_rating, qr/PG/, "Check MPAA rating"); # is($properties[0]->region_code, '', "Check region code"); # is($properties[0]->label, "Manga Video", "Check label"); # is($properties[0]->running_time, "109", "Check running time"); # is($properties[0]->publisher, "Manga Video", "Check publisher"); # is($properties[0]->ean, "0013138206695", "Check ean"); # is($properties[0]->feature, "Color", "Check feature"); # is(scalar($properties[0]->features), 5, "Check number of features"); # Net-Amazon-0.62/t/022Director.t0000644666302512716660000000472711652654244015722 0ustar boumenotpg1319368######################### # Artist Search tests ######################### use warnings; use strict; use Test::More tests => 23; BEGIN { use_ok('Net::Amazon') }; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($INFO); use Net::Amazon; use Net::Amazon::Request::Director; ################################################################ # Setup ################################################################ my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .); require "$TESTDIR/init.pl"; my $CANNED = "$TESTDIR/canned"; ################################################################ canned($CANNED, "director.xml"); ################################################################ my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', #response_dump => 1, ); my $req = Net::Amazon::Request::Director->new( director => "miyazaki", ); # Response is of type Net::Amazon::Artist::Response my $resp = $ua->request($req); ok($resp->is_success(), "Request successful"); my @properties = $resp->properties(); is(scalar @properties, 10, "10 movies"); like($resp->as_string(), qr/Totoro.*?Ponyo/s, "Examine Movies"); my $i = 1; my @starring = $properties[$i]->starring(); is($properties[$i]->actor, "Hitoshi Takagi", "Check actor"); is($starring[0], "Hitoshi Takagi", "Check starring"); is($properties[$i]->director, "Hayao Miyazaki", "Check director"); like($properties[$i]->title, qr/My Neighbor Totoro/, "Check title"); is($properties[$i]->studio, "Disney Presents Studio Ghibli", "Check studio"); is($properties[$i]->ReleaseDate, "2010-03-02", "Check release date"); is($properties[$i]->media, "DVD", "Check media"); is($properties[$i]->Media, "DVD", "Check Media"); is($properties[$i]->nummedia, 2, "Check nummedia"); is($properties[$i]->NumMedia, 2, "Check NumMedia"); is($properties[$i]->upc, "786936791716", "Check UPC"); like($properties[$i]->mpaa_rating, qr/G \(General Audience\)/, "Check MPAA rating"); is($properties[$i]->region_code, 1, "Check region code"); is($properties[$i]->label, "Disney Presents Studio Ghibli", "Check label"); is($properties[$i]->running_time, "86", "Check running time"); is($properties[$i]->publisher, "Disney Presents Studio Ghibli", "Check publisher"); is($properties[$i]->ean, "0786936791716", "Check ean"); is($properties[$i]->feature, "Animated", "Check feature"); is(scalar($properties[$i]->features), 8, "Check number of features"); Net-Amazon-0.62/t/023Title.t0000644666302512716660000000462611652653357015233 0ustar boumenotpg1319368######################### # Artist Search tests ######################### use warnings; use strict; use Test::More tests => 4; BEGIN { use_ok('Net::Amazon') }; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($INFO); use Net::Amazon; use Net::Amazon::Request::Title; ################################################################ # Setup ################################################################ my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .); require "$TESTDIR/init.pl"; my $CANNED = "$TESTDIR/canned"; ################################################################ canned($CANNED, "title.xml"); ################################################################ my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', #response_dump => 1, ); my $req = Net::Amazon::Request::Title->new( title => "cagliostro", ); # Response is of type Net::Amazon::Artist::Response my $resp = $ua->request($req); ok($resp->is_success(), "Request successful"); my @properties = $resp->properties(); is(scalar @properties, 10, "Number of Titles"); like($resp->as_string(), qr/Faulks.*?Cagliostro/s, "Examine Movies"); #my @starring = $properties[$i]->starring(); # is($properties[0]->actor, "Yasuo Yamada", "Check actor"); # is($starring[0], "Yasuo Yamada", "Check starring"); # is($properties[0]->director, "Hayao Miyazaki", "Check director"); # like($properties[0]->title, qr/Castle of Cagliostro/, "Check title"); # is($properties[0]->studio, "Manga Video", "Check studio"); # is($properties[0]->ReleaseDate, "1991-04-03", "Check release date"); # is($properties[0]->media, "DVD", "Check media"); # is($properties[0]->Media, "DVD", "Check Media"); # is($properties[0]->nummedia, 1, "Check nummedia"); # is($properties[0]->NumMedia, 1, "Check NumMedia"); # is($properties[0]->upc, "013138206695", "Check UPC"); # like($properties[0]->mpaa_rating, qr/PG/, "Check MPAA rating"); # is($properties[0]->region_code, '', "Check region code"); # is($properties[0]->label, "Manga Video", "Check label"); # is($properties[0]->running_time, "109", "Check running time"); # is($properties[0]->publisher, "Manga Video", "Check publisher"); # is($properties[0]->ean, "0013138206695", "Check ean"); # is($properties[0]->feature, "Color", "Check feature"); # is(scalar($properties[0]->features), 5, "Check number of features"); # Net-Amazon-0.62/t/init.pl0000644666302512716660000000100611463306215015011 0ustar boumenotpg1319368 # common routines used in tests ###################################################################### # handle canned responses ###################################################################### sub canned { my($base, $file) = @_; if(! exists $ENV{NET_AMAZON_LIVE_TESTS} ) { $file = File::Spec->catfile($base, $file); open FILE, "<$file" or die "Cannot open $file"; my $data = join '', ; close FILE; push @Net::Amazon::CANNED_RESPONSES, $data; } } 1; Net-Amazon-0.62/t/005Power.t0000644666302512716660000000751411652646135015241 0ustar boumenotpg1319368# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 1.t' ######################### # change 'tests => 1' to 'tests => last_test_to_print'; use warnings; use strict; use Test::More qw(no_plan); BEGIN { use_ok('Net::Amazon') }; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init({level => $DEBUG, file => ">out"}); use Net::Amazon; use File::Spec; my $CANNED = "canned"; $CANNED = File::Spec->catfile("t", "canned") unless -d $CANNED; if(! exists $ENV{NET_AMAZON_LIVE_TESTS}) { for(map { File::Spec->catfile($CANNED, $_) } qw(power.xml power_sorted.xml power_empty.xml power.xml)) { open FILE, "<$_" or die "Cannot open $_"; my $data = join '', ; close FILE; push @Net::Amazon::CANNED_RESPONSES, $data; } } ###################################################################### # Successful Power search ###################################################################### my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', ); my $resp = $ua->search( power => "author: randal schwartz and author: tom phoenix", mode => "books", ); ok($resp->is_success(), "Successful Power fetch"); like($resp->as_string(), qr/0596004788/, "Found 1"); like($resp->as_string(), qr/0596102062/, "Found 2"); like($resp->as_string(), qr/0596004788/, "Found 3"); like($resp->as_string(), qr/2841772012/, "Found 4"); is($resp->total_results(), 4, "Found 4 total results"); ###################################################################### # Power search with different sorting method ###################################################################### $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', ); $resp = $ua->search( power => "author: randal schwartz and author: tom phoenix", mode => "books", sort => "pricerank", ); ok($resp->is_success(), "Successful sorted power fetch"); my @prices; for($resp->properties()) { my $p = $_->ListPrice(); next unless $p; $p =~ s|^\$||; push @prices, $p; } my @sorted_prices = sort { $a <=> $b } @prices; # CMB: it depends upon the price under consideration. #is("@prices", "@sorted_prices", "Sorted by Price"); ###################################################################### # Power search with empty result ###################################################################### $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', ); $resp = $ua->search( power => "author: randal schwartz and author: mike schilli", mode => "books", ); ok(!$resp->is_success(), "Power fetch came back empty"); ###################################################################### # Similar products (could be with any other search, not just 'power') ###################################################################### $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', ); $resp = $ua->search( power => "author: randal schwartz and author: mike schilli", mode => "books", ); my @expected = qw( 0596003137 0596003749 0596002890 0596002815 0596004788 0596001738 0596004567 0596526741 0596003137 0596002890 0596003137 0596001738 1884777791 0596004567 1565926994 ); for my $item ($resp->properties()) { for my $asin ($item->similar_asins()) { my $e = shift @expected; #print STDERR "ASIN=$asin, EXPECTED=$e\n"; last unless is($asin, $e, "Get expected similar product"); } } is(scalar @expected, 0, "Got all expected similar products"); Net-Amazon-0.62/t/007Manufacturer.t0000644666302512716660000000355411652646135016603 0ustar boumenotpg1319368# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 1.t' ######################### # change 'tests => 1' to 'tests => last_test_to_print'; use warnings; use strict; use Test::More tests => 3; BEGIN { use_ok('Net::Amazon') }; use Net::Amazon::Request::Manufacturer; use Net::Amazon::Response::Manufacturer; use File::Spec; my $CANNED = "canned"; $CANNED = File::Spec->catfile("t", "canned") unless -d $CANNED; #Only for debugging #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); ###################################################################### # Successful Manufacturer fetch ###################################################################### canned("manufacturer.xml"); my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', ); my $req = Net::Amazon::Request::Manufacturer->new( manufacturer => 'Disney', ); # Response is of type Net::Amazon::Manufacturer::Response my $resp = $ua->request($req); ok($resp->is_success(), "Successful fetch"); ###################################################################### # Parameters ###################################################################### my $p = ($resp->properties)[-1]; like($p->manufacturer(), qr/Disney/, "Manufacturer is Disney"); ###################################################################### # handle canned responses ###################################################################### sub canned { my($file) = @_; if(! exists $ENV{NET_AMAZON_LIVE_TESTS} ) { $file = File::Spec->catfile($CANNED, $file); open FILE, "<$file" or die "Cannot open $file"; my $data = join '', ; close FILE; push @Net::Amazon::CANNED_RESPONSES, $data; } } Net-Amazon-0.62/t/009Blended.t0000644666302512716660000000546511652647005015506 0ustar boumenotpg1319368# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 1.t' ######################### # change 'tests => 1' to 'tests => last_test_to_print'; use warnings; use strict; use Test::More tests => 5; BEGIN { use_ok('Net::Amazon') }; use Net::Amazon; use File::Spec; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); my $CANNED = "canned"; $CANNED = File::Spec->catfile("t", "canned") unless -d $CANNED; $CANNED = File::Spec->catfile("../t", "canned") unless -d $CANNED; ###################################################################### # Successful textstream fetch ###################################################################### canned("blended1.xml"); canned("blendedm.xml"); my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', ); # Response is of type Net::Amazon::Textstream::Response my $resp = $ua->search( blended => "perl", ); ok($resp->is_success(), "Successful fetch"); ###################################################################### # Check result ###################################################################### my @properties = $resp->properties(); my $result; foreach (@properties) { $result .= $_->as_string(); } like($result, qr/Water Pearls/, "single product line"); #################### # Mult product lines #################### # Response is of type Net::Amazon::Textstream::Response $resp = $ua->search( blended => "perl", ); ok($resp->is_success(), "Successful fetch"); @properties = $resp->properties(); foreach (@properties) { $result .= $_->as_string(); } like($result, qr/International Warranty/, "multiple product lines"); #print $result; ###################################################################### # handle canned responses ###################################################################### sub canned { my($file) = @_; if(! exists $ENV{NET_AMAZON_LIVE_TESTS} ) { $file = File::Spec->catfile($CANNED, $file); open FILE, "<$file" or die "Cannot open $file"; my $data = join '', ; close FILE; push @Net::Amazon::CANNED_RESPONSES, $data; } } __END__ my $p = ($resp->properties)[0]; is($p->publisher(), "Fireside", "Check publisher"); ###################################################################### # handle canned responses ###################################################################### sub canned { my($file) = @_; if(! exists $ENV{NET_AMAZON_LIVE_TESTS} ) { $file = File::Spec->catfile($CANNED, $file); open FILE, "<$file" or die "Cannot open $file"; my $data = join '', ; close FILE; push @Net::Amazon::CANNED_RESPONSES, $data; } } Net-Amazon-0.62/t/014Constructors.t0000644666302512716660000000143111652660554016646 0ustar boumenotpg1319368######################### # Test all constructors ######################### use warnings; use strict; use Test::More tests => 16; BEGIN { use_ok('Net::Amazon') }; my @request_types = ( ['Actor'], ['Artist'], ['Author'], ['ASIN'], ['Blended'], ['BrowseNode'], ['Keyword'], ['Manufacturer'], ['MusicLabel', 'label'], ['Power'], ['Publisher'], ['Seller'], ['Similar'], ['TextStream'], ['UPC'], ); for my $t (@request_types) { my $class = $t->[0]; my $tlower = lc($t->[0]); my $params = join(', ', map { "$_ => '234'" } ($tlower, @$t > 1 ? $t->[1] : ())); #print "$class $params\n"; my $use = "use Net::Amazon::Request::$class"; my $new = "Net::Amazon::Request::$class->new($params)"; ok(eval "$use; $new", "$new"); print $@ if $@; } Net-Amazon-0.62/t/020ISBN.t0000644666302512716660000000672311652646135014676 0ustar boumenotpg1319368# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 1.t' ######################### # change 'tests => 1' to 'tests => last_test_to_print'; use warnings; use strict; use Test::More tests => 17; BEGIN { use_ok('Net::Amazon') }; use Net::Amazon::Request::ISBN; use Net::Amazon::Response::ISBN; use File::Spec; my $CANNED = "canned"; $CANNED = File::Spec->catfile("t", "canned") unless -d $CANNED; #Only for debugging #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); ###################################################################### # Successful ISBN fetch ###################################################################### canned("isbn.xml"); my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', ); my $req = Net::Amazon::Request::ISBN->new( isbn => '0439784549', ); # Response is of type Net::Amazon::Response::ISBN my $resp = $ua->request($req); ok($resp->is_success(), "Successful fetch"); like($resp->as_string(), qr#Harry Potter and the Half-Blood Prince#, "Found Rowling"); ###################################################################### # Parameters ###################################################################### my $p = ($resp->properties)[0]; is($p->Asin(), "0439784549", "ASIN is 0439784549"); is($p->title(), "Harry Potter and the Half-Blood Prince (Book 6)", "Title is Harry Potter and the Half-Blood Prince (Book 6)"); is($p->Title(), "Harry Potter and the Half-Blood Prince (Book 6)", "Title is Harry Potter and the Half-Blood Prince (Book 6)"); is($p->author(), "J.K. Rowling", "Author is J.K. Rowling"); is($p->publisher(), "Scholastic, Inc.", "Publisher is Scholastic, Inc."); ###################################################################### # non-US locale (13-digit ISBN) ###################################################################### canned("isbn-de.xml"); $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', locale => 'de', ); $req = Net::Amazon::Request::ISBN->new( isbn => '9783570009222', ); # Response is of type Net::Amazon::Response::ISBN $resp = $ua->request($req); ok($resp->is_success(), "Successful fetch"); like($resp->as_string(), qr#Der Ausflug#, "Found Der Ausflug"); ###################################################################### # Parameters ###################################################################### $p = ($resp->properties)[0]; is($p->Asin(), "357000922X", "ASIN is 357000922X"); is($p->title(), "Der Ausflug", "Title is Der Ausflug"); is($p->Title(), "Der Ausflug", "Title is Der Ausflug"); is($p->author(), "Renate Dorrestein", "Author is Renate Dorrestein"); is($p->numpages(), "314", "Number of pages is 314"); is($p->ean(), "9783570009222", "EAN is 9783570009222"); is($p->isbn(), "357000922X", "ISBN is 357000922X"); ###################################################################### # handle canned responses ###################################################################### sub canned { my($file) = @_; if(! exists $ENV{NET_AMAZON_LIVE_TESTS} ) { $file = File::Spec->catfile($CANNED, $file); open FILE, "<$file" or die "Cannot open $file"; my $data = join '', ; close FILE; push @Net::Amazon::CANNED_RESPONSES, $data; } } Net-Amazon-0.62/t/006Browse.t0000644666302512716660000000420311652661716015401 0ustar boumenotpg1319368# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 1.t' ######################### # change 'tests => 1' to 'tests => last_test_to_print'; use warnings; use strict; use Test::More qw(no_plan); BEGIN { use_ok('Net::Amazon') }; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init({level => $DEBUG, file => ">out"}); use Net::Amazon; use File::Spec; my $CANNED = "canned"; $CANNED = File::Spec->catfile("t", "canned") unless -d $CANNED; if(! exists $ENV{NET_AMAZON_LIVE_TESTS}) { for(map { File::Spec->catfile($CANNED, $_) } qw(browse.xml)) { open FILE, "<$_" or die "Cannot open $_"; my $data = join '', ; close FILE; push @Net::Amazon::CANNED_RESPONSES, $data; } } ###################################################################### # Successful Browse Node search ###################################################################### my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', ); my $resp = $ua->search( browsenode => 4025, mode => "books", keywords => "course", ); ok($resp->is_success(), "Successful browse node fetch"); like($resp->as_string(), qr/1571691014/, "Found Cgi Programming Interactive"); like($resp->as_string(), qr/1562439588/, "Found Mastering Cgi/Perl"); like($resp->as_string(), qr/1585770671/, "Found: Developing CGI scripts"); is(($resp->properties())[0]->TotalOffers(), 1, "Checking total offers"); my $nodes = join('&', ($resp->properties())[0]->browse_nodes()); is($nodes, "Networks, Protocols & APIs&Networking&Computers & Internet&Subjects&Books&Languages & Tools&Programming&Computers & Internet&Subjects&Books&Software&Computers & Internet&Subjects&Books&Programming&Web Development&Computers & Internet&Subjects&Books&Networking&Computer Science&New & Used Textbooks&Specialty Boutique&Books&Programming Languages&Computer Science&New & Used Textbooks&Specialty Boutique&Books&All product&Products&Books&Products&Books&Deep discounts&Special Features"); __END__ Net-Amazon-0.62/t/008Textstream.t0000644666302512716660000000330411652646625016305 0ustar boumenotpg1319368# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 1.t' ######################### # change 'tests => 1' to 'tests => last_test_to_print'; use warnings; use strict; use Test::More tests => 3; BEGIN { use_ok('Net::Amazon') }; use Net::Amazon; use File::Spec; my $CANNED = "canned"; $CANNED = File::Spec->catfile("t", "canned") unless -d $CANNED; ###################################################################### # Successful textstream fetch ###################################################################### canned("textstream.xml"); my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', ); # Response is of type Net::Amazon::Textstream::Response my $resp = $ua->search( textstream => "Here's some blurb mentioning the rolling stones", ); ok($resp->is_success(), "Successful fetch"); ###################################################################### # Check result ###################################################################### my $p = ($resp->properties)[0]; is($p->publisher(), "Addison-Wesley Professional", "Check publisher"); ###################################################################### # handle canned responses ###################################################################### sub canned { my($file) = @_; if(! exists $ENV{NET_AMAZON_LIVE_TESTS} ) { $file = File::Spec->catfile($CANNED, $file); open FILE, "<$file" or die "Cannot open $file"; my $data = join '', ; close FILE; push @Net::Amazon::CANNED_RESPONSES, $data; } } Net-Amazon-0.62/t/017Author.t0000644666302512716660000000634511652651005015403 0ustar boumenotpg1319368######################### # Artist Search tests ######################### use warnings; use strict; use Test::More tests => 30; BEGIN { use_ok('Net::Amazon') }; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($INFO); use Net::Amazon; use Net::Amazon::Request::Author; ################################################################ # Setup ################################################################ my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .); require "$TESTDIR/init.pl"; my $CANNED = "$TESTDIR/canned"; ################################################################ canned($CANNED, "author.xml"); ################################################################ my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', #response_dump => 1, ); my $req = Net::Amazon::Request::Author->new( author => "Michael Schilli", ); # Response is of type Net::Amazon::Artist::Response my $resp = $ua->request($req); ok($resp->is_success(), "Request successful"); my @properties = $resp->properties(); is(scalar @properties, 3, "3 books"); like($resp->as_string(), qr/JumpStart Guide.*?Management/s, "Examine Books"); is($properties[0]->author, "Michael Schilli", "Check author"); is($properties[0]->binding, "Paperback", "Check binding"); is($properties[0]->ListPrice, '$39.99', "Check list price"); is($properties[0]->OurPrice, '', "Check our price"); is($properties[0]->Binding, "Paperback", "Check Binding"); is($properties[0]->title, "Perl Power!: A JumpStart Guide to Programming with Perl 5", "Check title"); is($properties[0]->publisher, "Addison-Wesley Professional", "Check publisher"); is($properties[0]->isbn, "0201360683", "Check isbn"); is($properties[0]->ASIN, "0201360683", "Check ASIN"); is($properties[0]->Asin, "0201360683", "Check Asin"); is($properties[0]->edition, "", "Check edition"); is($properties[0]->ean, "9780201360684", "Check ean"); is($properties[0]->year, "1998", "Check year"); is($properties[0]->Catalog, "Book", "Check Catalog"); is($properties[0]->SmallImageUrl, "http://ecx.images-amazon.com/images/I/516Y2ENTVFL._SL75_.jpg", "Checking small image URL"); is($properties[0]->ImageUrlSmall, "http://ecx.images-amazon.com/images/I/516Y2ENTVFL._SL75_.jpg", "Checking small image URL"); is($properties[0]->MediumImageUrl, "http://ecx.images-amazon.com/images/I/516Y2ENTVFL._SL160_.jpg", "Checking Medium image URL"); is($properties[0]->ImageUrlMedium, "http://ecx.images-amazon.com/images/I/516Y2ENTVFL._SL160_.jpg", "Checking Medium image URL"); is($properties[0]->LargeImageUrl, "http://ecx.images-amazon.com/images/I/516Y2ENTVFL.jpg", "Checking Large image URL"); is($properties[0]->ImageUrlLarge, "http://ecx.images-amazon.com/images/I/516Y2ENTVFL.jpg", "Checking Large image URL"); is($properties[0]->SmallImageWidth, '54', "Check small image width"); is($properties[0]->SmallImageHeight, '75', "Check small image height"); is($properties[0]->MediumImageWidth, '116', "Check medium image width"); is($properties[0]->MediumImageHeight, '160', "Check medium image height"); is($properties[0]->LargeImageWidth, '345', "Check large image width"); is($properties[0]->LargeImageHeight, '475', "Check large image height"); Net-Amazon-0.62/t/018Actor.t0000644666302512716660000000474711652656307015230 0ustar boumenotpg1319368######################### # Artist Search tests ######################### use warnings; use strict; use Test::More tests => 23; BEGIN { use_ok('Net::Amazon') }; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($INFO); use Net::Amazon; use Net::Amazon::Request::Actor; ################################################################ # Setup ################################################################ my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .); require "$TESTDIR/init.pl"; my $CANNED = "$TESTDIR/canned"; ################################################################ canned($CANNED, "actor.xml"); ################################################################ my $ua = Net::Amazon->new( associate_tag => 'YOUR_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', #response_dump => 1, ); my $req = Net::Amazon::Request::Actor->new( actor => "Sandler", ); # Response is of type Net::Amazon::Artist::Response my $resp = $ua->request($req); ok($resp->is_success(), "Request successful"); my @properties = $resp->properties(); is(scalar @properties, 10, "10 movies"); my $i = 1; like($resp->as_string(), qr/Zookeeper.*?Gilmore/s, "Examine Movies"); my @starring = $properties[$i]->starring(); is($properties[$i]->actor, "Jennifer Aniston", "Check actor"); is($starring[$i], "Adam Sandler", "Check starring"); is($properties[$i]->director, "Dennis Dugan", "Check director"); like($properties[$i]->title, qr/Just Go With.*/, "Check title"); is($properties[$i]->studio, "Columbia Pictures", "Check studio"); is($properties[$i]->ReleaseDate, "2011-06-07", "Check release date"); #is($properties[$i]->theatrical_release_date, "1998", "Check theatrical release date"); is($properties[$i]->media, "DVD", "Check media"); is($properties[$i]->Media, "DVD", "Check Media"); is($properties[$i]->nummedia, 1, "Check nummedia"); is($properties[$i]->NumMedia, 1, "Check NumMedia"); is($properties[$i]->upc, "043396376793", "Check UPC"); like($properties[$i]->mpaa_rating, qr/PG\-13/, "Check MPAA rating"); is($properties[$i]->region_code, 1, "Check region code"); is($properties[$i]->label, "Columbia Pictures", "Check label"); is($properties[$i]->running_time, "117", "Check running time"); is($properties[$i]->publisher, "Columbia Pictures", "Check publisher"); is($properties[$i]->ean, "0043396376793", "Check ean"); is($properties[$i]->feature, "AC-3", "Check feature"); is(scalar($properties[$i]->features), 9, "Check number of features"); Net-Amazon-0.62/t/010Artist.t0000644666302512716660000000462011652647075015406 0ustar boumenotpg1319368######################### # Artist Search tests ######################### use warnings; use strict; use Test::More tests => 23; BEGIN { use_ok('Net::Amazon') }; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($INFO); use Net::Amazon; use Net::Amazon::Request::Artist; ################################################################ # Setup ################################################################ my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .); require "$TESTDIR/init.pl"; my $CANNED = "$TESTDIR/canned"; ################################################################ canned($CANNED, "artist.xml"); ################################################################ my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', # response_dump => 1, ); my $req = Net::Amazon::Request::Artist->new( artist => "Zwan", ); # Response is of type Net::Amazon::Artist::Response my $resp = $ua->request($req); ok($resp->is_success(), "Request successful"); my @properties = $resp->properties(); is(scalar @properties, 9, "9 hits"); like($resp->as_string(), qr/Honestly.*?Honestly.*?Honestly/s, "Examine Hits"); @properties = $resp->properties(); is($properties[0]->ListPrice, '$13.96', "Check list price"); is($properties[0]->OurPrice, '$11.24', "Check our price"); is($properties[0]->SuperSaverShipping, 1, "Check super saver shipping"); is($properties[0]->artist, "Zwan", "Check artist"); is($properties[0]->album, "Mary Star of the Sea", "Check album"); is($properties[0]->Title, "Mary Star of the Sea", "Check Title"); is($properties[0]->nummedia, "1", "Check nummedia"); is($properties[0]->media, "Audio CD", "Check media"); is($properties[0]->label, "Reprise / Wea", "Check label"); is($properties[0]->publisher, "Reprise / Wea", "Check publisher"); is($properties[0]->studio, "Reprise / Wea", "Check studio"); is($properties[0]->upc, "093624843627", "Check upc"); is($properties[0]->ean, "0093624843627", "Check ean"); is($properties[0]->release_date, "2003-01-28", "Check release_date"); is($properties[0]->label, "Reprise / Wea", "Check label"); my @tracks = $properties[0]->tracks; is(scalar(@tracks), 14, "Check number of tracks"); is($tracks[1], "Settle Down", "Check tracks one"); is($tracks[8], "Endless Summer", "Check tracks nine"); is($tracks[13], "Come With Me", "Check tracks fourteen"); Net-Amazon-0.62/t/016Publisher.t0000644666302512716660000000365011652646135016101 0ustar boumenotpg1319368# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 1.t' ######################### # change 'tests => 1' to 'tests => last_test_to_print'; use warnings; use strict; use Test::More tests => 3; BEGIN { use_ok('Net::Amazon') }; use Net::Amazon::Request::Publisher; use Net::Amazon::Response::Publisher; use File::Spec; my $CANNED = "canned"; $CANNED = File::Spec->catfile("t", "canned") unless -d $CANNED; #Only for debugging #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); ###################################################################### # Successful Manufacturer fetch ###################################################################### canned("publisher.xml"); my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', ); my $req = Net::Amazon::Request::Publisher->new( publisher => 'Disney Hyperion Books for Children', ); # Response is of type Net::Amazon::Manufacturer::Response my $resp = $ua->request($req); ok($resp->is_success(), "Successful fetch"); ###################################################################### # Parameters ###################################################################### my $p = ($resp->properties)[0]; is($p->publisher(), "Disney Hyperion Books for Children", "Manufacturer is Disney Hyperion Books for Children"); ###################################################################### # handle canned responses ###################################################################### sub canned { my($file) = @_; if(! exists $ENV{NET_AMAZON_LIVE_TESTS} ) { $file = File::Spec->catfile($CANNED, $file); open FILE, "<$file" or die "Cannot open $file"; my $data = join '', ; close FILE; push @Net::Amazon::CANNED_RESPONSES, $data; } } Net-Amazon-0.62/t/012Keyword.t0000644666302512716660000000242211652646135015560 0ustar boumenotpg1319368 ########################################### # Keyword search tests # Mike Schilli, 2004 (m@perlmeister.com) ########################################### use warnings; use strict; use Net::Amazon; use Net::Amazon::Property; use Net::Amazon::Request::Keyword; use Test::More tests => 12; ################################################################ # Setup ################################################################ my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .); require "$TESTDIR/init.pl"; my $CANNED = "$TESTDIR/canned"; ################################################################ canned($CANNED, "keyword.xml"); ################################################################ my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', max_pages => 5, #response_dump => 1, ); my $req = Net::Amazon::Request::Keyword->new( keyword => "perl power", mode => "books", ); # Response: Net::Amazon::Keyword::Response my $resp = $ua->request($req); ok($resp->is_success(), "Successful fetch"); my @properties = $resp->properties(); is(scalar @properties, 10, "10 hits"); for ($resp->properties) { like $_->Asin(), qr/^\w{10}$/, "Check Asin"; } Net-Amazon-0.62/t/027MP3Downloads.t0000644666302512716660000000423511652646135016420 0ustar boumenotpg1319368######################### # MP3Downloads Search tests ######################### use warnings; use strict; use Test::More tests => 17; BEGIN { use_ok('Net::Amazon') }; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($INFO); use Net::Amazon; use Net::Amazon::Request::MP3Downloads; ################################################################ # Setup ################################################################ my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .); require "$TESTDIR/init.pl"; my $CANNED = "$TESTDIR/canned"; ################################################################ canned($CANNED, "mp3downloads.xml"); ################################################################ my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', max_pages => 1, # response_dump => 1, ); my $req = Net::Amazon::Request::MP3Downloads->new( title => "Hand in My Pocket", ); #Response is of type Net::Amazon::Response::MP3Downloads my $resp = $ua->request($req); ok($resp->is_success(), "Request successful"); my @properties = $resp->properties(); is(scalar @properties, 10, "10 mp3 downloads"); like($resp->as_string(), qr/Alanis.*?Hand In My Pocket.*?2008.*?0.99/s, "Examine response as_string()"); @properties = $resp->properties(); is($properties[0]->binding, 'MP3 Download', "Check binding"); is($properties[0]->artists, 1, "Check artists size"); my @artists = $properties[0]->artists(); is($artists[0], 'Alanis Morissette', "Check artists"); is($properties[0]->artist, 'Alanis Morissette', "Check artist"); is($properties[0]->genre, 'pop-music', "Check genre"); is($properties[0]->label, 'Maverick', "Check label"); is($properties[0]->manufacturer, '', "Check manufacturer"); is($properties[0]->publisher, 'Maverick', "Check binding"); is($properties[0]->release_date, '2008-12-23', "Check release date"); is($properties[0]->running_time, 221, "Check running time"); is($properties[0]->studio, 'Maverick', "Check studio"); is($properties[0]->title, 'Hand In My Pocket', "Check title"); is($properties[0]->track_sequence, 4, "Check track sequence"); Net-Amazon-0.62/t/021EAN.t0000644666302512716660000000456611652646135014552 0ustar boumenotpg1319368# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 1.t' ######################### # change 'tests => 1' to 'tests => last_test_to_print'; use warnings; use strict; use Test::More tests => 13; BEGIN { use_ok('Net::Amazon') }; use Net::Amazon::Request::EAN; use Net::Amazon::Response::EAN; use File::Spec; my $CANNED = "canned"; $CANNED = File::Spec->catfile("t", "canned") unless -d $CANNED; #Only for debugging #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); ###################################################################### # Successful EAN fetch ###################################################################### canned("ean.xml"); my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', locale => 'uk', ); my $req = Net::Amazon::Request::EAN->new( ean => '5035822647633', ); # Response is of type Net::Amazon::Response::ISBN my $resp = $ua->request($req); ok($resp->is_success(), "Successful fetch"); like($resp->as_string(), qr#U-Turn#, "Found U-Turn"); ###################################################################### # Parameters ###################################################################### my $p = ($resp->properties)[0]; is($p->Asin(), "B00004CXLB", "ASIN is B00004CXLB"); is($p->SalesRank(), "21838", "SalesRank is 21838"); is($p->actor(), "Sean Penn", "Actor is Sean Penn"); is($p->ean(), "5024165771907", "EAN is 5024165771907"); is($p->director(), "Oliver Stone", "Director is Oliver Stone"); like($p->label(), qr#Sony Pictures#, "Label is Sony Pictures"); is($p->region_code(), '2', "Region Code is 2"); is($p->running_time(), "119", "Running Time is 119"); like($p->studio(), qr#Sony Pictures Home#, "Studio is Sony Pictures"); like($p->title(), qr#U-Turn#, "Title is U-Turn"); ###################################################################### # handle canned responses ###################################################################### sub canned { my($file) = @_; if(! exists $ENV{NET_AMAZON_LIVE_TESTS} ) { $file = File::Spec->catfile($CANNED, $file); open FILE, "<$file" or die "Cannot open $file"; my $data = join '', ; close FILE; push @Net::Amazon::CANNED_RESPONSES, $data; } } Net-Amazon-0.62/t/025cache.t0000644666302512716660000000413311652646135015204 0ustar boumenotpg1319368######################### # Signature Test ######################### use warnings; use strict; use Test::More tests => 6; BEGIN { use_ok('Net::Amazon'); use_ok('Log::Log4perl'); } my $log_file = "025cache.log"; use IO::File; use Net::Amazon::Request::ASIN; use Net::Amazon::Response::ASIN; use Log::Log4perl::Level; use Log::Log4perl qw(:easy); Log::Log4perl->easy_init({level => $ALL, file => ">>$log_file"}); ################################################################ # Setup ################################################################ my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .); require "$TESTDIR/init.pl"; SKIP: { eval { require Cache::MemoryCache }; skip "Cache::File not installed", 4 if $@; if (!defined($ENV{AMAZON_TOKEN}) || !defined($ENV{AMAZON_SECRET_KEY})) { skip "Cannot run live cache test because environment variables are missing.", 4; } my $cache = Cache::MemoryCache->new({ 'namespace' => 'Net::Amazon Unit Test', 'default_expires_in' => 600 }); my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, cache => $cache, ); my $req = Net::Amazon::Request::ASIN->new( asin => '0201360683' ); # not cached my $resp = $ua->request($req); ok($resp->is_success, "check first request status"); # sufficient space the requests apart to ensure the timestamps are different. sleep(2); # cached $resp = $ua->request($req); ok($resp->is_success, "check second request status"); my $finh = IO::File->new($log_file) or die "Error $!"; my $cache_miss = 0; my $cache_hit = 0; while (defined (my $line = $finh->getline())) { $cache_miss++ if $line =~ /Cache miss/; $cache_hit++ if $line =~ /Serving from cache/; } $finh->close(); ok(($cache_miss == 1), "verfiying first request missed the cache"); ok(($cache_hit == 1), "verfiying second request hit the cache"); unlink($log_file) if -f $log_file; } Net-Amazon-0.62/t/001ASIN.t0000644666302512716660000001465311652656373014702 0ustar boumenotpg1319368# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 1.t' ######################### # change 'tests => 1' to 'tests => last_test_to_print'; use warnings; use strict; use Test::More tests => 37; BEGIN { use_ok('Net::Amazon') }; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($INFO); use Net::Amazon::Request::ASIN; use Net::Amazon::Response::ASIN; use File::Spec; my $CANNED = "canned"; $CANNED = File::Spec->catfile("t", "canned") unless -d $CANNED; if(! exists $ENV{NET_AMAZON_LIVE_TESTS}) { for(map { File::Spec->catfile($CANNED, $_) } qw(asin_pp.xml asin_err.xml asin_mua.xml asin_cd.xml asin_cdm.xml dvd.xml)) { open FILE, "<$_" or die "Cannot open $_"; my $data = join '', ; close FILE; push @Net::Amazon::CANNED_RESPONSES, $data; } } ###################################################################### # Successful ASIN fetch ###################################################################### my $ua = Net::Amazon->new( associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', token => 'YOUR_AMZN_TOKEN', secret_key => 'YOUR_AMZN_SECRET_KEY', ); my $req = Net::Amazon::Request::ASIN->new( asin => '0201360683' ); # Response is of type Net::Amazon::ASIN::Response my $resp = $ua->request($req); ok($resp->is_success(), "Successful fetch"); like($resp->as_string(), qr/Schilli/, "Found Perl Power"); ###################################################################### # Error fetching ASIN ###################################################################### $req = Net::Amazon::Request::ASIN->new( asin => '123' ); # Response is of type Net::Amazon::ASIN::Response $resp = $ua->request($req); ok($resp->is_error(), "Error reported correctly"); like($resp->message(), qr/not a valid value/, "Invalid ASIN reported correctly"); ###################################################################### # Multiple Authors ###################################################################### $req = Net::Amazon::Request::ASIN->new( asin => '0201633612' ); # Response is of type Net::Amazon::ASIN::Response $resp = $ua->request($req); ok($resp->is_success(), "Found Gamma"); my($book) = $resp->properties(); like(join('&', $book->authors()), qr#Gamma.*?Vlissides#, "Found multiple authors"); is($book->numpages(), 416, "Checkiing numpages"); is($book->dewey_decimal(), "", "Checkiing dewey_decimal"); my @similar = $book->similar_asins(); is(scalar @similar, 0, "No similar items on this item"); ###################################################################### # properties() in scalar context ###################################################################### $book = $resp->properties(); like(join('&', $book->authors()), qr#Erich Gamma&Richard Helm&Ralph Johnson&John Vlissides#, "Found multiple authors"); ###################################################################### # Net::Amazon::Property::Book accessors ###################################################################### like($book->title, qr/^Design Patterns/, "Title"); like($book->ProductName, qr/^Design Patterns/, "ProductName"); is($book->year, "1994", "Year"); is($book->publication_date, "1994-11-10"); like($book->OurPrice, qr/\$/, "Amazon Price"); is($book->ListPrice, '$59.99', "List Price"); is($book->CurrencyCode, "USD"); is($book->binding, "Hardcover", "Binding"); # check RawListPrice eq ListPrice without the # dollar sign and decimal point my $ListPrice = $book->ListPrice; $ListPrice =~ s/\$//; $ListPrice =~ s/\.//; is($book->RawListPrice, $ListPrice); ###################################################################### # Successful ASIN fetch of a music CD ###################################################################### $req = Net::Amazon::Request::ASIN->new( asin => 'B00007M84Q', mode => 'music', ); # Response is of type Net::Amazon::ASIN::Response $resp = $ua->request($req); ok($resp->is_success(), "Successful fetch"); like($resp->as_string(), qr/Zwan/, "Found Zwan"); ###################################################################### # Net::Amazon::Property::Music accessors ###################################################################### my($cd) = $resp->properties(); is($cd->album, "Mary Star of the Sea", "Album"); is($cd->artist, "Zwan", "Artist"); is($cd->year, "2003", "Year"); like($cd->OurPrice, qr/\$/, "Amazon Price"); like($cd->ListPrice, qr/\$/, "List Price"); ###################################################################### # Net::Amazon::Property::Music item with two artists ###################################################################### $req = Net::Amazon::Request::ASIN->new( asin => 'B00005A46I', mode => 'music', ); # Response is of type Net::Amazon::ASIN::Response $resp = $ua->request($req); ok($resp->is_success(), "Successful fetch"); like($resp->as_string(), qr(Anne Sofie von Otter/Elvis Costello), "Found Otter/Costello"); ($cd) = $resp->properties(); is($cd->artist(), "Anne Sofie von Otter", "artist() on mult artists"); is(join('#', $cd->artists()), "Anne Sofie von Otter#Elvis Costello", "artists() with mult artists"); ###################################################################### # Net::Amazon::Property::DVD item with two artists ###################################################################### $req = Net::Amazon::Request::ASIN->new( asin => '6305181772', ); # Response is of type Net::Amazon::ASIN::Response $resp = $ua->request($req); ok($resp->is_success(), "Successful fetch"); like($resp->as_string(), qr(Mission Impossible), "Found Mission Impossible"); my ($dvd) = $resp->properties(); is($dvd->director(), undef, "director() finds first director"); like($dvd->SalesRank(), qr/^[\d,]+$/, "Checking SalesRank"); #is(join('#', $dvd->directors()), "", "directors() finds first director"); # XXX: this information is not readily available in AWS4 # like(join('#', $dvd->starring()), qr/Tom Cruise#Jon Voight#Emmanuelle B/, # "starring() finds actors"); is($resp->total_results, 1, "Total of 1"); ###################################################################### # Illegal request type ###################################################################### eval {$req = Net::Amazon::Request::ASIN->new(asin => "6305181772", type => "whackamole");}; like($@, qr/Unknown type/, "Check illegal request type"); Net-Amazon-0.62/eg/0000755666302512716660000000000012101066651013641 5ustar boumenotpg1319368Net-Amazon-0.62/eg/isbn0000755666302512716660000000106111652643333014530 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### use warnings; use strict; use Net::Amazon; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); die "usage: $0 isbn\n" unless defined $ARGV[0]; my $resp = $ua->search( isbn => $ARGV[0], ); if($resp->is_success()) { print $resp->as_string(), "\n"; } else { print "Error: ", $resp->message(), "\n"; } Net-Amazon-0.62/eg/dejazz0000755666302512716660000000143311652643163015070 0ustar boumenotpg1319368#!/usr/bin/perl ###################################################### # Mike Schilli, 2004 # Print out the 10 best-selling german Jazz CDs # (Perl implementation of the Java program presented # in iX 06/2004, "Handelspartner", p. 125, # by Ingo Macherius). ###################################################### use warnings; use strict; use Net::Amazon; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, locale => 'de', max_pages => 1, ); my $resp = $ua->search( browsenode => '255919', mode => 'pop-music-de', sort => '+salesrank', ); for ($resp->properties) { print $_->artist(), ": ", $_->album(), " (", $_->OurPrice(), ")\n"; } Net-Amazon-0.62/eg/asin_dvd0000755666302512716660000000166011652642721015371 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### # asin_fetch # Mike Schilli, 2003 (m@perlmeister.com) # Fetch book info by ASIN # asin_fetch 0201360683 ########################################### use warnings; use strict; use Net::Amazon; use Net::Amazon::Request::ASIN; use Log::Log4perl qw(:easy); Log::Log4perl->easy_init({level => $ERROR, layout => '%F{1}-%L: %m%n'}); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $req = Net::Amazon::Request::ASIN->new( asin => "6305181772", ); # Response is Net::Amazon::ASIN::Response my $resp = $ua->request($req); for($resp->properties()) { print "Studio: ", $_->studio(), "\n"; print "Directors: ", join ('/', $_->directors()), "\n"; print "Features: ", join ('/', $_->features()), "\n"; print "MPAA: ", $_->mpaa_rating(), "\n"; } Net-Amazon-0.62/eg/textstream0000755666302512716660000000126011652643606016001 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### # textstream - trying rayg's textstream ########################################### use warnings; use strict; use Net::Amazon; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init({level => $DEBUG, layout => '%F{1}-%L: %m%n'}); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $resp = $ua->search( textstream => "Here's some blurb mentioning the rolling stones", ); if($resp->is_success()) { print $resp->as_string(), "\n"; } else { print "Error: ", $resp->message(), "\n"; } Net-Amazon-0.62/eg/manufacturer0000755666302512716660000000121211652643361016270 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### use warnings; use strict; use Net::Amazon; use Net::Amazon::Request::Manufacturer; die "usage: $0 manufacturer (e.g. disney)" unless defined $ARGV[0]; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, max_pages => 1, ); my $req = Net::Amazon::Request::Manufacturer->new( manufacturer => $ARGV[0], ); my $resp = $ua->request($req); if($resp->is_success()) { print $resp->as_string(), "\n"; } else { print "Error: ", $resp->message(), "\n"; } Net-Amazon-0.62/eg/asin0000755666302512716660000000103111652656541014531 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### use warnings; use strict; use Net::Amazon; use Log::Log4perl qw(:easy); Log::Log4perl->easy_init($DEBUG); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, response_dump => 1, ); my $resp = $ua->search( asin => $ARGV[0], ); if($resp->is_success()) { print $resp->as_string(), "\n"; } else { print "Error: ", $resp->message(), "\n"; } Net-Amazon-0.62/eg/reviews0000755666302512716660000000276311652643477015304 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### # reviews # Mike Schilli, 2003 (m@perlmeister.com) ########################################### use warnings; use strict; use Net::Amazon; use Net::Amazon::Attribute::Review; use Text::Wrap; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init({level => $DEBUG, layout => '%F{1}-%L: %m%n'}); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $resp = $ua->search( asin => ($ARGV[0] || "0471237124"), ); die "Request failed" unless $resp->is_success(); for my $property ($resp->properties()) { my $count = 0; print "Reviews for '", $property->title(), "'\n\n"; my $reviewset = $property->review_set(); print "Average Rating: ", $reviewset->average_customer_rating(), "\n"; print "Total Reviews: ", $reviewset->total_reviews(), "\n\n"; for my $review ($reviewset->reviews()) { print "=== Review #", ++$count, " ===\n"; print shape("Rating: ", $review->rating()), "\n"; print shape("Summary: ", $review->summary()), "\n"; print shape("Comment: ", $review->comment()), "\n"; print "\n"; } } ####################################### sub shape { ####################################### my($header, $text) = @_; my $result = join '', fill($header, " " x length($header), split /\n/, $text); return $result; } Net-Amazon-0.62/eg/asin-de0000755666302512716660000000074111652642664015127 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### use warnings; use strict; use Net::Amazon; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, locale => 'de', ); my $resp = $ua->search( asin => "3827313783", ); if($resp->is_success()) { print $resp->as_string(), "\n"; } else { print "Error: ", $resp->message(), "\n"; } Net-Amazon-0.62/eg/asin_fetch0000755666302512716660000000166511652642733015715 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### # asin_fetch # Mike Schilli, 2003 (m@perlmeister.com) # Fetch book info by ASIN # asin_fetch 0201360683 ########################################### use warnings; use strict; use Net::Amazon; use Net::Amazon::Request::ASIN; use Log::Log4perl qw(:easy); Log::Log4perl->easy_init({level => $INFO, layout => '%F{1}-%L: %m%n'}); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, #response_dump => 0, ); die "usage: $0 asin\n(use 0201360683 as " . "an example)\n" unless defined $ARGV[0]; my $req = Net::Amazon::Request::ASIN->new( asin => $ARGV[0], ); # Response is Net::Amazon::ASIN::Response my $resp = $ua->request($req); if($resp->is_success()) { print $resp->as_string(), "\n"; } else { print "Error: ", $resp->message(), "\n"; } Net-Amazon-0.62/eg/director0000755666302512716660000000156011652643203015410 0ustar boumenotpg1319368#!/usr/bin/perl ############################################################ # director director_name # Christopher Boumenot , 2006 ############################################################ use strict; use warnings; use Net::Amazon; use Net::Amazon::Request::Director; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); die "usage: $0 director\n(use Miyazaki as an example)\n" unless defined $ARGV[0]; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $req = Net::Amazon::Request::Director->new( director => $ARGV[0], ); # Response is of type Net::Amazon::Director::Response my $resp = $ua->request($req); if($resp->is_success()) { print $resp->as_string, "\n"; } else { print $resp->message, "\n"; } Net-Amazon-0.62/eg/heavy0000755666302512716660000000152611652643275014724 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### # asin_fetch # Mike Schilli, 2003 (m@perlmeister.com) # Fetch book info by ASIN # asin_fetch 0201360683 ########################################### use warnings; use strict; use Net::Amazon; use Net::Amazon::Request::ASIN; use Data::Dumper; use Log::Log4perl qw(:easy); Log::Log4perl->easy_init($DEBUG); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); die "usage: $0 asin\n(use 0201360683 as " . "an example)\n" unless defined $ARGV[0]; my $req = Net::Amazon::Request::ASIN->new( asin => $ARGV[0], type => 'heavy', ); # Response is Net::Amazon::ASIN::Response my $resp = $ua->request($req); if($resp->is_success()) { print Dumper($resp), "\n"; } Net-Amazon-0.62/eg/seller0000755666302512716660000000132111652643512015061 0ustar boumenotpg1319368#!/usr/bin/perl ############################################################ # Seller test ############################################################ use strict; use warnings; use Net::Amazon; use Net::Amazon::Request::Seller; use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $req = Net::Amazon::Request::Seller->new( seller => 'A2GXAGU54VOP7', ); my $resp = $ua->request( $req, ); if($resp->is_success()) { print $resp->result()->as_string(), "\n"; } else { print "Error: ", $resp->message(), "\n"; } Net-Amazon-0.62/eg/actor0000755666302512716660000000153012101064553014675 0ustar boumenotpg1319368#!/usr/bin/perl ############################################################ # actor actor_name # Christopher Boumenot , 2006 ############################################################ use strict; use warnings; use Net::Amazon; use Net::Amazon::Request::Actor; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); die "usage: $0 actor\n(use Sandler as an example)\n" unless defined $ARGV[0]; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $req = Net::Amazon::Request::Actor->new( actor => $ARGV[0], ); # Response is of type Net::Amazon::Actor::Response my $resp = $ua->request($req); if($resp->is_success()) { print $resp->as_string, "\n"; } else { print $resp->message, "\n"; } Net-Amazon-0.62/eg/musiclabel0000755666302512716660000000157211652643421015722 0ustar boumenotpg1319368#!/usr/bin/perl ############################################################ # musiclabel musiclabel name # Christopher Boumenot , 2006 ############################################################ use strict; use warnings; use Net::Amazon; use Net::Amazon::Request::MusicLabel; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); die "usage: $0 musiclabel\n(use Arista as an example)\n" unless defined $ARGV[0]; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $req = Net::Amazon::Request::MusicLabel->new( musiclabel => $ARGV[0], ); # Response is of type Net::Amazon::MusicLabel::Response my $resp = $ua->request($req); if($resp->is_success()) { print $resp->as_string, "\n"; } else { print $resp->message, "\n"; } Net-Amazon-0.62/eg/all0000755666302512716660000000143311652642625014353 0ustar boumenotpg1319368#!/usr/bin/perl ############################################################ # all keyword # Christopher Boumenot , 2006 ############################################################ use strict; use warnings; use Net::Amazon; use Net::Amazon::Request::All; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); die "usage: $0 keyword\n(use Sandler as an example)\n" unless defined $ARGV[0]; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $req = Net::Amazon::Request::All->new( all => $ARGV[0], ); my $resp = $ua->request($req); if($resp->is_success()) { print $resp->as_string, "\n"; } else { print $resp->message, "\n"; } Net-Amazon-0.62/eg/mp30000755666302512716660000000161111652643407014277 0ustar boumenotpg1319368#!/usr/bin/perl ############################################################ # mp3 artist_name # Christopher Boumenot easy_init($INFO); use Net::Amazon; use Net::Amazon::Request::MP3Downloads; die "usage: $0 artist\n(use 'Hand in My Pocket' as an example)\n" unless defined $ARGV[0]; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, max_pages => 1, ); my $req = Net::Amazon::Request::MP3Downloads->new( title => $ARGV[0], ); # Response is of type Net::Amazon::MP3::Response my $resp = $ua->request($req); if($resp->is_success()) { print $resp->as_string, "\n"; } else { print $resp->message, "\n"; } Net-Amazon-0.62/eg/blended.pl0000755666302512716660000000116111652643043015603 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### use warnings; use strict; use Net::Amazon; use Net::Amazon::Request::Blended; use Log::Log4perl qw(:easy); Log::Log4perl->easy_init($DEBUG); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $response = $ua->search(blended => ($ARGV[0] || "Perl")); if($response->is_success()) { print $response->total_results(), "\n"; } __END__ my @properties = $response->properties(); foreach (@properties) { print $_->as_string() . "\n"; } Net-Amazon-0.62/eg/cheapo0000755666302512716660000000300011652643143015026 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### # maxauthors keyword # Mike Schilli , 2003 ########################################### use strict; use warnings; use Net::Amazon; use Net::Amazon::Property; use Net::Amazon::Request::Keyword; # use Log::Log4perl qw(:easy); # Log::Log4perl->easy_init({level => $DEBUG, layout => '%F{1}-%L: %m%n'}); die "usage: $0 keyword" unless defined $ARGV[0]; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, max_pages => 20, ); my $req = Net::Amazon::Request::Keyword->new( keyword => $ARGV[0], mode => "books" ); # Response: Net::Amazon::Keyword::Response my $resp = $ua->request($req); if($resp->is_error()) { die "Error: ", $resp->message(); } my $max_authors = 0; my @books = sort { saved($b) <=> saved($a) } grep { $_->Catalog eq "Book" && $_->title =~ /$ARGV[0]/i && $_->ListPrice } $resp->properties; for(0..4) { next unless $books[$_]; printf "%.2f%% (%s/%s) %s\n\n", saved($books[$_]), $books[$_]->ListPrice, $books[$_]->OurPrice, $books[$_]->as_string; } ########################################### sub saved { ########################################### my($book) = @_; my $list = $book->ListPrice; my $our = $book->OurPrice; $list =~ s/\$//; $our =~ s/\$//; return ($list - $our)/$list*100; } Net-Amazon-0.62/eg/author0000755666302512716660000000154012101064553015070 0ustar boumenotpg1319368#!/usr/bin/perl ############################################################ # author author_name # Christopher Boumenot , 2006 ############################################################ use strict; use warnings; use Net::Amazon; use Net::Amazon::Request::Author; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); die "usage: $0 author\n(use Schilli as an example)\n" unless defined $ARGV[0]; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $req = Net::Amazon::Request::Author->new( author => $ARGV[0], ); # Response is of type Net::Amazon::Author::Response my $resp = $ua->request($req); if($resp->is_success()) { print $resp->as_string, "\n"; } else { print $resp->message, "\n"; } Net-Amazon-0.62/eg/keyword0000755666302512716660000000154111652643346015270 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### # keyword - search by keyword # keyword what_to_search_for mode # Mike Schilli , 2003 ########################################### use strict; use warnings; use Net::Amazon; use Net::Amazon::Property; use Net::Amazon::Request::Keyword; die "usage: $0 keyword what mode\n(use " . "'perl power'/books as an example)\n" unless defined $ARGV[1]; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, max_pages => 5, ); my $req = Net::Amazon::Request::Keyword->new( keyword => $ARGV[0], mode => $ARGV[1], ); # Response: Net::Amazon::Keyword::Response my $resp = $ua->request($req); for ($resp->properties) { print $_->as_string()."\n"; } Net-Amazon-0.62/eg/asin_offerall0000755666302512716660000000216211652643010016374 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### # asin_fetch # Mike Schilli, 2003 (m@perlmeister.com) # Fetch book info by ASIN # asin_fetch 0201360683 ########################################### use warnings; use strict; use Net::Amazon; use Net::Amazon::Request::ASIN; use Log::Log4perl qw(:easy); Log::Log4perl->easy_init({level => $INFO, layout => '%F{1}-%L: %m%n'}); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); die "usage: $0 asin\n(use 0201360683 as " . "an example)\n" unless defined $ARGV[0]; my $req = Net::Amazon::Request::ASIN->new( asin => $ARGV[0], offer => 'All', ); # Response is Net::Amazon::ASIN::Response my $resp = $ua->request($req); if($resp->is_success()) { print $resp->as_string(), "\n"; my($p) = $resp->properties(); for(qw(CollectiblePrice CollectibleCount NumberOfOfferings UsedCount ThirdPartyNewPrice ThirdPartyNewCount)) { print "$_: ", $p->$_(), "\n"; } } else { print "Error: ", $resp->message(), "\n"; } Net-Amazon-0.62/eg/power0000755666302512716660000000316111652643440014733 0ustar boumenotpg1319368#!/usr/bin/perl ###################################################### # Power Search # Martin Streicher , 2003 # Mike Schilli , 2003 ###################################################### use warnings; use strict; use Net::Amazon; use Net::Amazon::Property; use Net::Amazon::Request::Power; use Getopt::Std; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); my %opts = (); my $usage = "usage: $0 [-s start] [-f finish] phrase [mode]\n". "(use 'subject: perl and author: schwartz' books ". "as an example)\n"; getopts("s:f:", \%opts) || do {print $usage; exit 1}; die $usage if ((!defined $ARGV[0]) || ((exists $opts{s} && exists $opts{f}) && ($opts{f} < $opts{s}))); my $pagecnt = $opts{s} || 1; my $limit = $opts{f} || $opts{s} || 1; my $mode = $ARGV[1] || "books"; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, max_pages => 1, ); while ($pagecnt <= $limit) { my $req = Net::Amazon::Request::Power->new( power => $ARGV[0], mode => $mode, page => $pagecnt++, sort => 'inverse-pricerank', node => 377602011, ); # Response: Net::Amazon::Power::Response my $resp = $ua->request($req); die "Error" unless $resp->is_success(); last unless $resp->status(); for ($resp->properties) { print $_->Asin(), " ", $_->title(), " [", $_->isbn(), "] ", $_->OurPrice(), "\n"; } } Net-Amazon-0.62/eg/upc0000755666302512716660000000127411652643630014372 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### use warnings; use strict; use Net::Amazon; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); die "usage: $0 upc [mode]\n(use " . "'093624843627 music' as an example)\n" unless defined $ARGV[0]; my %options; $options{upc} = $ARGV[0]; $options{mode} = $ARGV[1] if defined $ARGV[1]; my $resp = $ua->search(%options); if($resp->is_success()) { print $resp->as_string(), "\n"; } else { print "Error: ", $resp->message(), "\n"; } Net-Amazon-0.62/eg/sim0000755666302512716660000000101511652643547014373 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### use warnings; use strict; use Net::Amazon; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $resp = $ua->search( similar => "0672320673", ); if($resp->is_success()) { print $resp->as_string(), "\n"; } else { print "Error: ", $resp->message(), "\n"; } Net-Amazon-0.62/eg/browse0000755666302512716660000000205711652643115015102 0ustar boumenotpg1319368#!/usr/bin/perl ###################################################### # Browse node search # Jackie Hamilton , 2003 # Mike Schilli , 2003 ###################################################### use warnings; use strict; use Net::Amazon; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init({level => $DEBUG, file => "out"}); die "usage: $0 node mode [keywords]\n". "(use '4025' 'books' 'perl' as an example)\n" unless defined $ARGV[1]; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $resp = $ua->search( browsenode => $ARGV[0], mode => $ARGV[1], defined $ARGV[2] ? (keywords => join('', @ARGV[2,])) : (), ); die $resp->message() unless $resp->is_success(); for ($resp->properties) { unless($_->can("title")) { warn "Not a book: ", $_->as_string(); next; } print $_->Asin(), " ", $_->title(), " ", $_->OurPrice(), "\n"; } Net-Amazon-0.62/eg/maxauthors0000755666302512716660000000201411652643375015775 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### # maxauthors keyword # Search books by keyword and select those # with the highest number of authors. # Mike Schilli , 2003 ########################################### use strict; use warnings; use Net::Amazon; use Net::Amazon::Property; use Net::Amazon::Request::Keyword; die "usage: $0 keyword" unless defined $ARGV[0]; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, max_pages => 10, ); my $req = Net::Amazon::Request::Keyword->new( keyword => $ARGV[0], mode => "books" ); # Response: Net::Amazon::Keyword::Response my $resp = $ua->request($req); my $max_authors = 0; my @books = sort { scalar $b->authors() <=> scalar $a->authors() } grep { $_->title() =~ /$ARGV[0]/i } $resp->properties; for(0..4) { print scalar $books[$_]->authors, " ", $books[$_]->as_string, "\n\n"; } Net-Amazon-0.62/eg/title0000755666302512716660000000152611652643621014724 0ustar boumenotpg1319368#!/usr/bin/perl ############################################################ # title title_name # Christopher Boumenot , 2006 ############################################################ use strict; use warnings; use Net::Amazon; use Net::Amazon::Request::Title; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); die "usage: $0 title\n(use Dates as an example)\n" unless defined $ARGV[0]; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $req = Net::Amazon::Request::Title->new( title => $ARGV[0], ); # Response is of type Net::Amazon::Title::Response my $resp = $ua->request($req); if($resp->is_success()) { print $resp->as_string, "\n"; } else { print $resp->message, "\n"; } Net-Amazon-0.62/eg/artist0000755666302512716660000000142411652642644015112 0ustar boumenotpg1319368#!/usr/bin/perl ############################################################ # artist artist_name # Mike Schilli , 2003 ############################################################ use strict; use warnings; use Net::Amazon; use Net::Amazon::Request::Artist; die "usage: $0 artist\n(use Zwan as an example)\n" unless defined $ARGV[0]; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $req = Net::Amazon::Request::Artist->new( artist => $ARGV[0], ); # Response is of type Net::Amazon::Artist::Response my $resp = $ua->request($req); if($resp->is_success()) { print $resp->as_string, "\n"; } else { print $resp->message, "\n"; } Net-Amazon-0.62/eg/similar20000755666302512716660000000135611652643575015336 0ustar boumenotpg1319368#!/usr/bin/perl ############################################################ # Similar test ############################################################ use strict; use warnings; use Net::Amazon; use Net::Amazon::Request::Similar; use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $req = Net::Amazon::Request::Similar->new( similar => 'B00005B6TL', ); my $resp = $ua->request( $req, ); if($resp->is_success()) { for($resp->properties()) { print $_->as_string(), "\n"; } } else { print "Error: ", $resp->message(), "\n"; } Net-Amazon-0.62/eg/cd_fetch0000755666302512716660000000201111652643133015326 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### # xx -- # Mike Schilli, 2003 (m@perlmeister.com) ########################################### use warnings; use strict; use Net::Amazon; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); # Get a request object my $resp = $ua->search(asin => 'B000000WA4'); if($resp->is_success()) { my($cd) = $resp->properties(); print "Album ....... ", $cd->album, "\n"; print "Artist ...... ", $cd->artist, "\n"; print "Year ........ ", $cd->year, "\n"; print "OurPrice .... ", $cd->OurPrice, "\n"; print "ListPrice ... ", $cd->ListPrice, "\n"; print "UPC ......... ", $cd->upc, "\n"; print "nummedia .... ", $cd->nummedia, "\n"; print "label ....... ", $cd->label, "\n"; print "media ....... ", $cd->media, "\n"; print "tracks ...... ", join("\n ", $cd->tracks()), "\n"; } else { print $resp->message(); } Net-Amazon-0.62/eg/ean0000755666302512716660000000113311652643227014342 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### use warnings; use strict; use Net::Amazon; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, locale => 'uk', ); die "usage: $0 ean\n" unless defined $ARGV[0]; my $resp = $ua->search( ean => $ARGV[0], mode => 'DVD', ); if($resp->is_success()) { print $resp->as_string(), "\n"; } else { print "Error: ", $resp->message(), "\n"; } Net-Amazon-0.62/eg/rate_limit0000755666302512716660000000252511652643464015741 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### # rate_limit # Mike Schilli, 2004 (m@perlmeister.com) # Test rate-limiting # rate_limit 0201360683 ########################################### use warnings; use strict; use Net::Amazon; use Net::Amazon::Request::ASIN; use Log::Log4perl qw(:easy); my $conf = q( log4perl.category.Net.Amazon = WARN, Screen # To disable the rate limiting messages #log4perl.category.Net.Amazon.RateLimit = FATAL, Screen #log4perl.additivity.Net.Amazon.RateLimit = 0 log4perl.appender.Screen = Log::Log4perl::Appender::Screen log4perl.appender.Screen.layout = Log::Log4perl::Layout::PatternLayout log4perl.appender.Screen.layout.ConversionPattern = %F{1} %L> %m %n ); Log::Log4perl::init(\$conf); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); die "usage: $0 asin\n(use 0201360683 as " . "an example)\n" unless defined $ARGV[0]; my $req = Net::Amazon::Request::ASIN->new( asin => $ARGV[0], ); for(1..3) { # Response is Net::Amazon::ASIN::Response my $resp = $ua->request($req); if($resp->is_success()) { print $resp->as_string(), "\n"; } else { print "Error: ", $resp->message(), "\n"; } } Net-Amazon-0.62/eg/exchange0000755666302512716660000000110411652643262015356 0ustar boumenotpg1319368#!/usr/local/bin/perl use strict; use Net::Amazon; use Data::Dumper; # for debugging use Log::Log4perl qw(:easy); Log::Log4perl->easy_init($DEBUG); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); # Get a request object my $response = $ua->search(exchange => 'Y04Y3424291Y2398445'); if($response->is_success()) { my $result = $response->result(); print $result->ExchangeEndDate(), "\n"; } else { print "Error: ", $response->message(), "\n"; } Net-Amazon-0.62/eg/similar0000755666302512716660000000445411652643563015253 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### # similar # Mike Schilli, 2003 (m@perlmeister.com) # Fetch books that are similar to a book # and spider Amazon to a depth of 1. ########################################### use warnings; use strict; use Net::Amazon; use Net::Amazon::Request::ASIN; use Data::Dumper; use Log::Log4perl qw(:easy); Log::Log4perl->easy_init($DEBUG); my $DEPTH = 1; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); $ARGV[0] = "0201360683"; die "usage: $0 asin\n(use 0201360683 as an example)\n" unless defined $ARGV[0]; print "Finding similar items (depth=$DEPTH) for:\n", asin($ARGV[0]), "\n\n"; for(similars($ua, $ARGV[0], $DEPTH)) { print $_->title(), "\n"; } ########################################### sub similars { ########################################### my($ua, $asin, $levels, $found) = @_; $found = { } unless defined $found; my $req = Net::Amazon::Request::ASIN->new( asin => $asin, type => 'heavy', ); # Response is of type Net::Amazon::ASIN::Response my $resp = $ua->request($req); if($resp->is_error()) { warn "Error: ", $resp->message(), "\n"; return (); } my @new = (); ($found->{$asin}) = $resp->properties(); return values %$found if $levels < 1; my $prod = $resp->xmlref()->{Details}->{SimilarProducts}->{Product}; unless(defined $prod) { warn "$asin doesn't have similar items defined"; return values %$found; } my @plist = ($prod); @plist = @{$prod} if ref($prod) eq "ARRAY"; for(@plist) { if(!exists $found->{$_}) { $found->{$_}++; push @new, $_; } } for(@new) { similars($ua, $_, $levels-1, $found); } return values %$found; } ########################################### sub asin { ########################################### my($asin) = @_; my $req = Net::Amazon::Request::ASIN->new( asin => $ARGV[0], ); # Response is of type Net::Amazon::ASIN::Response my $resp = $ua->request($req); if($resp->is_success()) { return $resp->as_string(); } else { die("Error: ", $resp->message(), "\n"); } } Net-Amazon-0.62/eg/asin_img0000755666302512716660000000127711652642750015376 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### # asin_img - Fetch an ASIN's image # Mike Schilli, 2003 (m@perlmeister.com) ########################################### use warnings; use strict; use CGI qw(:all); use CGI::Carp qw(fatalsToBrowser); use Net::Amazon; use Net::Amazon::Request::ASIN; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); die "usage: $0 asin=0201360683\n" unless param('asin'); my $req = Net::Amazon::Request::ASIN->new( asin => param('asin') ); my $resp = $ua->request($req); print redirect( $resp->properties->{ImageUrlLarge}); Net-Amazon-0.62/eg/asin_cache0000755666302512716660000000207111652642704015655 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### # asin_fetch # Mike Schilli, 2003 (m@perlmeister.com) # Fetch book info by ASIN # asin_fetch 0201360683 ########################################### use warnings; use strict; use Net::Amazon; use Net::Amazon::Request::ASIN; use Cache::File; use Log::Log4perl qw(:easy); Log::Log4perl->easy_init({level => $INFO, layout => '%F{1}-%L: %m%n'}); my $cache = Cache::File->new( cache_root => '/tmp/mycache', default_expires => '10 sec', ); my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, cache => $cache, ); die "usage: $0 asin\n(use 0201360683 as " . "an example)\n" unless defined $ARGV[0]; my $req = Net::Amazon::Request::ASIN->new( asin => $ARGV[0], ); # Response is Net::Amazon::ASIN::Response my $resp = $ua->request($req); if($resp->is_success()) { print $resp->as_string(), "\n"; } else { print "Error: ", $resp->message(), "\n"; } Net-Amazon-0.62/eg/asin_mult0000755666302512716660000000104511652642771015577 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### use warnings; use strict; use Net::Amazon; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $resp = $ua->search( asin => [qw(0596005083 0596005008 0672326043)], #asin => "0596005083", ); if($resp->is_success()) { for($resp->properties()) { print $_->as_string(), "\n"; } } else { print "Error: ", $resp->message(), "\n"; } Net-Amazon-0.62/eg/publisher0000755666302512716660000000155711652643451015605 0ustar boumenotpg1319368#!/usr/bin/perl ############################################################ # publisher publisher name # Christopher Boumenot , 2006 ############################################################ use strict; use warnings; use Net::Amazon; use Net::Amazon::Request::Publisher; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init($DEBUG); die "usage: $0 publisher\n(use Tor as an example)\n" unless defined $ARGV[0]; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $req = Net::Amazon::Request::Publisher->new( publisher => $ARGV[0], ); # Response is of type Net::Amazon::Publisher::Response my $resp = $ua->request($req); if($resp->is_success()) { print $resp->as_string, "\n"; } else { print $resp->message, "\n"; } Net-Amazon-0.62/adm/0000755666302512716660000000000012101066651014007 5ustar boumenotpg1319368Net-Amazon-0.62/adm/podok0000755666302512716660000000122711253707747015072 0ustar boumenotpg1319368#!/usr/bin/perl ########################################### # Mike Schilli, 2002 (m@perlmeister.com) ########################################### use warnings; use strict; use Test::Pod; use Test::More; use File::Find; podok(@ARGV); 0; ################################################## sub podok { ################################################## my ($dir) = @_; $dir ||= "."; my @pms = (); File::Find::find( sub { return unless -f $_; return unless /\.pm$/; push @pms, "$File::Find::name"; }, $dir); my $nof_tests = scalar @pms; plan tests => $nof_tests; for(@pms) { pod_ok($_); } } Net-Amazon-0.62/adm/aws4-itemsearch0000755666302512716660000001434712101065076016746 0ustar boumenotpg1319368#!/usr/bin/perl #$Revision: 1.4 $$Date: 2007-11-11 20:26:22 $$Author: boumenot $ ####################################################################### # FIXME: this script screen scapes the web to build the ItemSearch # validate classes. Unfortunately, this breaks too frequently. A # better way needs to be found. ####################################################################### package main; require 5.008_001; use Getopt::Long; use IO::File; use Pod::Usage; use LWP::Simple; use Text::Template; use Data::Dumper; use File::Path; use lib "$FindBin::Bin/../lib"; use HTML::TreeBuilder::XPath; use Net::Amazon (); use strict; use warnings; sub AWS4_ONLINE_HTML { 'http://docs.amazonwebservices.com/AWSECommerceService/'.$Net::Amazon::WSDL_DATE.'/DG/'; } use constant AWS4_LOCALE_HTML => { 'us' => 'USSearchIndexParamForItemsearch.html', # 'de' => 'DESearchIndexParamForItemsearch.html', # 'es' => 'ESSearchIndexParamForItemsearch.html', # 'jp' => 'JPSearchIndexParamForItemsearch.html', # 'it' => 'ITSearchIndexParamForItemsearch.html', # 'uk' => 'UKSearchIndexParamForItemsearch.html', # 'fr' => 'FRSearchIndexParamForItemsearch.html', # 'ca' => 'CASearchIndexParamForItemsearch.html', }; my $Opt_Debug = 0; my $Opt_Dest = "../lib/Net/Amazon/Validate/ItemSearch"; my $Opt_Overwrite = 0; unless (&GetOptions ( "help|h" => \&usage, "version|V" => \&version, "debug|D" => \$Opt_Debug, "dest=s" => \$Opt_Dest, "overwrite" => \$Opt_Overwrite, "<>" => \¶meter, )) { usage(); } ## main ######################################### unless (-d $Opt_Dest) { die "The directory $Opt_Dest does not exist!\n"; } for my $locale (keys %{(AWS4_LOCALE_HTML)}) { my $link = AWS4_ONLINE_HTML.AWS4_LOCALE_HTML->{$locale}; print "fetching $link ...\n" if $Opt_Debug; my $tree = HTML::TreeBuilder::XPath->new(); $tree->parse(get($link)); $tree->eof(); my @search_indicies = map { $_->as_text } $tree->findnodes("//div[\@class=\"section\"]//h2"); my %depts; my %upc; my %keywords; for my $search_index (@search_indicies) { (my $search_index_name) = $search_index =~ /SearchIndex:\s+(\w+)/; next if $search_index_name eq 'All'; print $search_index_name."\n"; $upc{$search_index_name}++; my @parameters = map { $_->as_text } $tree->findnodes("//div[\@class=\"section\"]//h2[contains(text(),\"$search_index\")]/../../../..//li/p"); for my $parameter (@parameters) { print " -> $parameter\n"; push @{$depts{$search_index_name}}, $parameter; $keywords{$locale}{$search_index_name}++ if $parameter eq "Keywords"; } } for my $dept (keys %depts) { dump_library($depts{$dept}, $locale, $dept); upc_add(\%upc, $depts{$dept}); } for my $locale (keys %keywords) { my @a = keys %{$keywords{$locale}}; dump_library(\@a, $locale, "Keywords"); } my @a = keys %upc; my $type = ($locale eq 'us') ? 'UPC' : 'EAN'; dump_library(\@a, $locale, $type); } ## subs ######################################### sub usage { print '$Revision: 1.4 $$Date: 2007-11-11 20:26:22 $$Author: boumenot $ ', "\n"; pod2usage(-verbose=>2, -exitval => 2); exit (1); } sub version { print '$Revision: 1.4 $$Date: 2007-11-11 20:26:22 $$Author: boumenot $ ', "\n"; exit (1); } sub parameter { my $param = shift; die "%Error: Unknown parameter: $param\n"; } ################################################## # Attempt to pick a "favored" default for the different types of # ItemSearch'es. The favored list is returned in order of preference. # The most preferred is Books because that was the default for AWS3. # As Books is not available for all types of ItemSearch'es use other # "favored" defaults. They are Music, DVD, Software, etc. in that # order. If none of those are a possible default then use the first # item in the list of acceptable values. sub select_default { my $aref = shift; my %hash = map { $_ => 1 } @$aref; for my $favored_default (qw(Books Music DVD Software Title Keyword Keywords)) { return $favored_default if defined $hash{$favored_default}; } return $aref->[0]; } sub upc_add { my ($href, $aref) = @_; $href->{$_}++ for @$aref; } sub dump_library { my ($aref, $locale, $dept) = @_; my $fn = "$Opt_Dest/$locale/$dept.pm"; my $dn = "$Opt_Dest/$locale"; unless (-d $dn) { mkpath $dn or die "Failed to create '$dn'!\n"; } if (-f $fn && !$Opt_Overwrite) { warn "The file $fn already exists, skipping!\n"; return; } my $template = Text::Template->new( TYPE => 'FILE', SOURCE => 'aws4-itemsearch.tmpl', DELIMITERS => [ '[%--', '--%]', ], ); my $hash = {'MODULE_NAME' => "$locale".'::'."$dept", 'DEFAULT_OPTION' => select_default(\@$aref), 'LOCALE' => $locale, 'ITEM_SEARCH' => $dept, 'options' => \@$aref, }; my $text = $template->fill_in(HASH => $hash); unless ($text) { die "Failed to fill in the text template for $locale/$dept!\n"; } my $fouth = IO::File->new(">$fn") or die "$! '$fn'!\n"; print $fouth $text; $fouth->close(); } ################################################## __END__ =pod =head1 asw4-itemsearch B - convert Amazon's HTML data to Perl libraries to pick ItemSearch defaults. =head1 SYNOPSIS B - [I