/usr/share/perl5/VM/EC2/LaunchConfiguration.pm is in libvm-ec2-perl 1.28-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | package VM::EC2::LaunchConfiguration;
=head1 NAME
VM::EC2::LaunchConfiguration - Object describing a Launch Configuration
=head1 SYNOPSIS
use VM::EC2;
$ec2 = VM::EC2->new(...);
@lcs = $ec2->describe_launch_configurations();
=head1 DESCRIPTION
This object represents a launch configuration. It is returned by
C<VM::EC2->describe_launch_configurations()>.
=head1 METHODS
These properties are supported:
block_device_mappings
created_time
ebs_optimized
iam_instance_profile
image_id
instance_monitoring
instance_type
kernel_id
key_name
launch_configuration_arn
launch_configuration_name
ramdisk_id
security_groups
spot_price
user_data
=head1 SEE ALSO
L<VM::EC2>
L<VM::EC2::Generic>
=head1 AUTHOR
Jose Luis Martinez
=cut
use strict;
use base 'VM::EC2::Generic';
sub valid_fields {
my $self = shift;
return qw(BlockDeviceMappings CreatedTime EbsOptimized IamInstanceProfile
ImageId InstanceMonitoring InstanceType KernelId KeyName
LaunchConfigurationARN LaunchConfigurationName RamdiskId SecurityGroups
SpotPrice UserData
);
}
# object methods
sub args {
my $self = shift;
my $default_param_name = shift;
return unless @_;
return @_ if $_[0] =~ /^-/;
return ($default_param_name => \@_);
}
1;
|