1# -*- perl -*-
2# !!! DO NOT EDIT !!!
3# This file was automatically generated.
4package Net::Amazon::Validate::ItemSearch::fr::DeliveryMethod;
5
6use 5.006;
7use strict;
8use warnings;
9
10sub new {
11    my ($class , %options) = @_;
12    my $self = {
13        '_default' => 'Kitchen',
14        %options,
15    };
16
17    push @{$self->{_options}}, 'Kitchen';
18
19    bless $self, $class;
20}
21
22sub user_or_default {
23    my ($self, $user) = @_;
24    if (defined $user && length($user) > 0) {
25        return $self->find_match($user);
26    }
27    return $self->default();
28}
29
30sub default {
31    my ($self) = @_;
32    return $self->{_default};
33}
34
35sub find_match {
36    my ($self, $value) = @_;
37    for (@{$self->{_options}}) {
38        return $_ if lc($_) eq lc($value);
39    }
40    die "$value is not a valid value for fr::DeliveryMethod!\n";
41}
42
431;
44
45__END__
46
47=head1 NAME
48
49Net::Amazon::Validate::ItemSearch::fr::DeliveryMethod - valid search indices for the fr locale and the DeliveryMethod operation.
50
51=head1 DESCRIPTION
52
53The default value is Kitchen, unless mode is specified.
54
55The list of available values are:
56
57    Kitchen
58
59=cut
60