/usr/share/perl5/VM/EC2/ReservedInstance/ParmParser.pm is in libvm-ec2-perl 1.28-2build1.
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 | package VM::EC2::ReservedInstance::ParmParser;
use base 'VM::EC2::ParmParser';
sub ri_target_config_parm {
my $self = shift;
my ($argname,$val) = @_;
my @param;
my @config = ref $val eq 'ARRAY' ? @$val : ( $val );
for (my $i=0; $i<@config; $i++) {
my $config = $config[$i];
my $n = $i+1;
foreach my $p (qw(AvailabilityZone Platform
InstanceCount InstanceType)) {
push @param, ("ReservedInstancesConfigurationSetItemType.$n.$p" =>
$config->{$p}) if $config->{$p};
}
}
return @param;
}
sub ri_price_sched_parm {
my $self = shift;
my ($argname,$val) = @_;
return unless $val && ref $val eq 'HASH';
my @param;
my $i = 0;
foreach my $month (keys %$val) {
push @param, "$argname.$i.Price" => $val->{$month};
push @param, "$argname.$i.Term" => $month;
$i++;
}
return @param;
}
1;
|