1# -*- perl -*-
2# !!! DO NOT EDIT !!!
3# This file was automatically generated.
4package Net::Amazon::Validate::ItemSearch::fr::VHS;
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}}, 'Actor';
18    push @{$self->{_options}}, 'AudienceRating';
19    push @{$self->{_options}}, 'Availability';
20    push @{$self->{_options}}, 'BrowseNode';
21    push @{$self->{_options}}, 'Count';
22    push @{$self->{_options}}, 'Director';
23    push @{$self->{_options}}, 'Format';
24    push @{$self->{_options}}, 'ItemPage';
25    push @{$self->{_options}}, 'Keywords';
26    push @{$self->{_options}}, 'Magazines';
27    push @{$self->{_options}}, 'Performer';
28    push @{$self->{_options}}, 'PostalCode';
29    push @{$self->{_options}}, 'Publisher';
30    push @{$self->{_options}}, 'Sort';
31    push @{$self->{_options}}, 'State';
32    push @{$self->{_options}}, 'Title';
33
34    bless $self, $class;
35}
36
37sub user_or_default {
38    my ($self, $user) = @_;
39    if (defined $user && length($user) > 0) {
40        return $self->find_match($user);
41    }
42    return $self->default();
43}
44
45sub default {
46    my ($self) = @_;
47    return $self->{_default};
48}
49
50sub find_match {
51    my ($self, $value) = @_;
52    for (@{$self->{_options}}) {
53        return $_ if lc($_) eq lc($value);
54    }
55    die "$value is not a valid value for fr::VHS!\n";
56}
57
581;
59
60__END__
61
62=head1 NAME
63
64Net::Amazon::Validate::ItemSearch::fr::VHS - valid search indicies
65for the fr locale and the VHS SearchIndex.
66
67=head1 DESCRIPTION
68
69The default value is Title, unless mode is specified.
70
71The list of available values are:
72
73    Actor
74    AudienceRating
75    Availability
76    BrowseNode
77    Count
78    Director
79    Format
80    ItemPage
81    Keywords
82    Magazines
83    Performer
84    PostalCode
85    Publisher
86    Sort
87    State
88    Title
89
90=cut
91