1package VM::EC2::DB::Option::Group::Option::Setting;
2
3=head1 NAME
4
5VM::EC2::DB::Option::Group::Option::Setting - An RDS Database Option Group Option Setting
6
7=head1 SYNOPSIS
8
9 use VM::EC2;
10
11 $ec2 = VM::EC2->new(...);
12 @options = $ec2->describe_option_group_options(-engine_name => 'mysql');
13 foreach $option (@options) {
14   foreach $setting ($option->OptionGroupOptionSettings) {
15     print $setting->SettingName,' : ',$setting->DefaultValue,"\n";
16   }
17 }
18
19=head1 DESCRIPTION
20
21This object describes an Option Group Option Setting and is an element returned
22by the VM::EC2->describe_option_group_options() call.
23
24=head1 STRING OVERLOADING
25
26In string context, the object returns the Setting Name.
27
28=head1 SEE ALSO
29
30L<VM::EC2>
31L<VM::EC2::Generic>
32L<VM::EC2::DB::Instance>
33
34=head1 AUTHOR
35
36Lance Kinley E<lt>lkinley@loyaltymethods.comE<gt>.
37
38Copyright (c) 2013 Loyalty Methods, Inc.
39
40This package and its accompanying libraries is free software; you can
41redistribute it and/or modify it under the terms of the GPL (either
42version 1, or at your option, any later version) or the Artistic
43License 2.0.  Refer to LICENSE for the full license text. In addition,
44please see DISCLAIMER.txt for disclaimers of warranty.
45
46=cut
47
48use strict;
49use base 'VM::EC2::Generic';
50
51use overload '""' => sub { shift->SettingName },
52    fallback => 1;
53
54sub valid_fields {
55    my $self = shift;
56    return qw(
57        AllowedValues
58        ApplyType
59        DefaultValue
60        IsModifiable
61        SettingDescription
62        SettingName
63    );
64}
65
66sub IsModifiable {
67    my $self = shift;
68    my $is = $self->SUPER::IsModifiable;
69    return $is eq 'true';
70}
71
721;
73