File Coverage

blib/lib/Paws/S3/Rule.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package Paws::S3::Rule;
2 1     1   624 use Moose;
  1         3  
  1         9  
3             has AbortIncompleteMultipartUpload => (is => 'ro', isa => 'Paws::S3::AbortIncompleteMultipartUpload');
4             has Expiration => (is => 'ro', isa => 'Paws::S3::LifecycleExpiration');
5             has ID => (is => 'ro', isa => 'Str');
6             has NoncurrentVersionExpiration => (is => 'ro', isa => 'Paws::S3::NoncurrentVersionExpiration');
7             has NoncurrentVersionTransition => (is => 'ro', isa => 'Paws::S3::NoncurrentVersionTransition');
8             has Prefix => (is => 'ro', isa => 'Str', required => 1);
9             has Status => (is => 'ro', isa => 'Str', required => 1);
10             has Transition => (is => 'ro', isa => 'Paws::S3::Transition');
11             1;
12              
13             ### main pod documentation begin ###
14              
15             =head1 NAME
16              
17             Paws::S3::Rule
18              
19             =head1 USAGE
20              
21             This class represents one of two things:
22              
23             =head3 Arguments in a call to a service
24              
25             Use the attributes of this class as arguments to methods. You shouldn't make instances of this class.
26             Each attribute should be used as a named argument in the calls that expect this type of object.
27              
28             As an example, if Att1 is expected to be a Paws::S3::Rule object:
29              
30             $service_obj->Method(Att1 => { AbortIncompleteMultipartUpload => $value, ..., Transition => $value });
31              
32             =head3 Results returned from an API call
33              
34             Use accessors for each attribute. If Att1 is expected to be an Paws::S3::Rule object:
35              
36             $result = $service_obj->Method(...);
37             $result->Att1->AbortIncompleteMultipartUpload
38              
39             =head1 DESCRIPTION
40              
41             This class has no description
42              
43             =head1 ATTRIBUTES
44              
45              
46             =head2 AbortIncompleteMultipartUpload => L<Paws::S3::AbortIncompleteMultipartUpload>
47              
48            
49              
50              
51             =head2 Expiration => L<Paws::S3::LifecycleExpiration>
52              
53            
54              
55              
56             =head2 ID => Str
57              
58             Unique identifier for the rule. The value cannot be longer than 255
59             characters.
60              
61              
62             =head2 NoncurrentVersionExpiration => L<Paws::S3::NoncurrentVersionExpiration>
63              
64            
65              
66              
67             =head2 NoncurrentVersionTransition => L<Paws::S3::NoncurrentVersionTransition>
68              
69            
70              
71              
72             =head2 B<REQUIRED> Prefix => Str
73              
74             Prefix identifying one or more objects to which the rule applies.
75              
76              
77             =head2 B<REQUIRED> Status => Str
78              
79             If 'Enabled', the rule is currently being applied. If 'Disabled', the
80             rule is not currently being applied.
81              
82              
83             =head2 Transition => L<Paws::S3::Transition>
84              
85            
86              
87              
88              
89             =head1 SEE ALSO
90              
91             This class forms part of L<Paws>, describing an object used in L<Paws::S3>
92              
93             =head1 BUGS and CONTRIBUTIONS
94              
95             The source code is located here: https://github.com/pplu/aws-sdk-perl
96              
97             Please report bugs to: https://github.com/pplu/aws-sdk-perl/issues
98              
99             =cut
100