This file is indexed.

/usr/share/perl5/VM/EC2/ScalingPolicy.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
package VM::EC2::ScalingPolicy;

=head1 NAME

VM::EC2::ScalingPolicy - Object describing an AutoScaling Policy

=head1 SYNOPSIS

  use VM::EC2;

  $ec2  = VM::EC2->new(...);
  @pols = $ec2->describe_policies();

  $pol  = $pols[0];
  $type = $pol->adjustment_type;

=head1 DESCRIPTION

This object represents an AutoScaling Policy. It's returned by
C<VM::EC2->describe_policies()>.

=head1 METHODS

These properties are supported:

  adjustment_type          -- Specifies whether the ScalingAdjustment is an absolute number or a percentage of the current capacity. Valid values are ChangeInCapacity, ExactCapacity, and PercentChangeInCapacity
  alarms                   -- A list of CloudWatch Alarms related to the policy
  auto_scaling_group_name  -- The name of the Auto Scaling group associated with this scaling policy
  cooldown                 -- The amount of time, in seconds, after a scaling activity completes before any further trigger-related scaling activities can start
  min_adjustment_step      -- Changes the DesiredCapacity of the Auto Scaling group by at least the specified number of instances
  policy_arn               -- The Amazon Resource Name (ARN) of the policy
  policy_name              -- The name of the scaling policy
  scaling_adjustment       -- The number associated with the specified adjustment type. A positive value adds to the current capacity and a negative value removes from the current capacity
  name                     -- Alias for policy_name

=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(AdjustmentType Alarms AutoScalingGroupName Cooldown 
      MinAdjustmentStep PolicyARN PolicyName ScalingAdjustment
    );
}

# object methods

sub args {
    my $self               = shift;
    my $default_param_name = shift;
    return unless @_;
    return @_ if $_[0] =~ /^-/;
    return ($default_param_name => \@_);
}

sub name { shift->policy_name }

1;