1package VM::EC2::DB::VpcSecurityGroup::Membership; 2 3=head1 NAME 4 5VM::EC2::DB::VpcSecurityGroup::Membership - An RDS Database VPC Security Group Membership 6 7=head1 SYNOPSIS 8 9=head1 DESCRIPTION 10 11=head1 STRING OVERLOADING 12 13=head1 SEE ALSO 14 15L<VM::EC2> 16L<VM::EC2::Generic> 17L<VM::EC2::DB::Instance> 18 19=head1 AUTHOR 20 21Lance Kinley E<lt>lkinley@loyaltymethods.comE<gt>. 22 23Copyright (c) 2013 Loyalty Methods, Inc. 24 25This package and its accompanying libraries is free software; you can 26redistribute it and/or modify it under the terms of the GPL (either 27version 1, or at your option, any later version) or the Artistic 28License 2.0. Refer to LICENSE for the full license text. In addition, 29please see DISCLAIMER.txt for disclaimers of warranty. 30 31=cut 32 33use strict; 34use base 'VM::EC2::Generic'; 35 36use overload '""' => sub { shift->VpcSecurityGroupId }, 37 fallback => 1; 38 39sub valid_fields { 40 my $self = shift; 41 return qw(VpcSecurityGroupId Status); 42} 43 44sub group_id { shift->VpcSecurityGroupId } 45 461; 47