1# -*- perl -*- 2# !!! DO NOT EDIT !!! 3# This file was automatically generated. 4package Net::Amazon::Validate::ItemSearch::ca::Music; 5 6use 5.006; 7use strict; 8use warnings; 9 10sub new { 11 my ($class , %options) = @_; 12 my $self = { 13 '_default' => 'Title', 14 %options, 15 }; 16 17 push @{$self->{_options}}, 'Artist'; 18 push @{$self->{_options}}, 'BrowseNode'; 19 push @{$self->{_options}}, 'Condition'; 20 push @{$self->{_options}}, 'Count'; 21 push @{$self->{_options}}, 'ItemPage'; 22 push @{$self->{_options}}, 'Keywords'; 23 push @{$self->{_options}}, 'MaximumPrice'; 24 push @{$self->{_options}}, 'MerchantId'; 25 push @{$self->{_options}}, 'MinimumPrice'; 26 push @{$self->{_options}}, 'MusicLabel'; 27 push @{$self->{_options}}, 'Power'; 28 push @{$self->{_options}}, 'Sort'; 29 push @{$self->{_options}}, 'Title'; 30 31 bless $self, $class; 32} 33 34sub user_or_default { 35 my ($self, $user) = @_; 36 if (defined $user && length($user) > 0) { 37 return $self->find_match($user); 38 } 39 return $self->default(); 40} 41 42sub default { 43 my ($self) = @_; 44 return $self->{_default}; 45} 46 47sub find_match { 48 my ($self, $value) = @_; 49 for (@{$self->{_options}}) { 50 return $_ if lc($_) eq lc($value); 51 } 52 die "$value is not a valid value for ca::Music!\n"; 53} 54 551; 56 57__END__ 58 59=head1 NAME 60 61Net::Amazon::Validate::ItemSearch::ca::Music - valid search indicies 62for the ca locale and the Music SearchIndex. 63 64=head1 DESCRIPTION 65 66The default value is Title, unless mode is specified. 67 68The list of available values are: 69 70 Artist 71 BrowseNode 72 Condition 73 Count 74 ItemPage 75 Keywords 76 MaximumPrice 77 MerchantId 78 MinimumPrice 79 MusicLabel 80 Power 81 Sort 82 Title 83 84=cut 85