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