File Coverage

blib/lib/Paws/S3/PutObjectAcl.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1              
2             package Paws::S3::PutObjectAcl;
3 1     1   619 use Moose;
  1         5  
  1         14  
4             has AccessControlPolicy => (is => 'ro', isa => 'Paws::S3::AccessControlPolicy');
5             has ACL => (is => 'ro', isa => 'Str', header_name => 'x-amz-acl', traits => ['ParamInHeader']);
6             has Bucket => (is => 'ro', isa => 'Str', uri_name => 'Bucket', traits => ['ParamInURI'], required => 1);
7             has ContentMD5 => (is => 'ro', isa => 'Str', header_name => 'Content-MD5', auto => 'MD5', traits => ['AutoInHeader']);
8             has GrantFullControl => (is => 'ro', isa => 'Str', header_name => 'x-amz-grant-full-control', traits => ['ParamInHeader']);
9             has GrantRead => (is => 'ro', isa => 'Str', header_name => 'x-amz-grant-read', traits => ['ParamInHeader']);
10             has GrantReadACP => (is => 'ro', isa => 'Str', header_name => 'x-amz-grant-read-acp', traits => ['ParamInHeader']);
11             has GrantWrite => (is => 'ro', isa => 'Str', header_name => 'x-amz-grant-write', traits => ['ParamInHeader']);
12             has GrantWriteACP => (is => 'ro', isa => 'Str', header_name => 'x-amz-grant-write-acp', traits => ['ParamInHeader']);
13             has Key => (is => 'ro', isa => 'Str', uri_name => 'Key', traits => ['ParamInURI'], required => 1);
14             has RequestPayer => (is => 'ro', isa => 'Str', header_name => 'x-amz-request-payer', traits => ['ParamInHeader']);
15             has VersionId => (is => 'ro', isa => 'Str', query_name => 'versionId', traits => ['ParamInQuery']);
16              
17 1     1   7461 use MooseX::ClassAttribute;
  1         5  
  1         13  
18              
19             class_has _api_call => (isa => 'Str', is => 'ro', default => 'PutObjectAcl');
20             class_has _api_uri => (isa => 'Str', is => 'ro', default => '/{Bucket}/{Key+}?acl');
21             class_has _api_method => (isa => 'Str', is => 'ro', default => 'PUT');
22             class_has _returns => (isa => 'Str', is => 'ro', default => 'Paws::S3::PutObjectAclOutput');
23             class_has _result_key => (isa => 'Str', is => 'ro');
24            
25             1;
26              
27             ### main pod documentation begin ###
28              
29             =head1 NAME
30              
31             Paws::S3::PutObjectAcl - Arguments for method PutObjectAcl on Paws::S3
32              
33             =head1 DESCRIPTION
34              
35             This class represents the parameters used for calling the method PutObjectAcl on the
36             Amazon Simple Storage Service service. Use the attributes of this class
37             as arguments to method PutObjectAcl.
38              
39             You shouldn't make instances of this class. Each attribute should be used as a named argument in the call to PutObjectAcl.
40              
41             As an example:
42              
43             $service_obj->PutObjectAcl(Att1 => $value1, Att2 => $value2, ...);
44              
45             Values for attributes that are native types (Int, String, Float, etc) can passed as-is (scalar values). Values for complex Types (objects) can be passed as a HashRef. The keys and values of the hashref will be used to instance the underlying object.
46              
47             =head1 ATTRIBUTES
48              
49              
50             =head2 AccessControlPolicy => L<Paws::S3::AccessControlPolicy>
51              
52              
53              
54              
55              
56             =head2 ACL => Str
57              
58             The canned ACL to apply to the object.
59              
60             Valid values are: C<"private">, C<"public-read">, C<"public-read-write">, C<"authenticated-read">, C<"aws-exec-read">, C<"bucket-owner-read">, C<"bucket-owner-full-control">
61              
62             =head2 B<REQUIRED> Bucket => Str
63              
64              
65              
66              
67              
68             =head2 ContentMD5 => Str
69              
70              
71              
72              
73              
74             =head2 GrantFullControl => Str
75              
76             Allows grantee the read, write, read ACP, and write ACP permissions on
77             the bucket.
78              
79              
80              
81             =head2 GrantRead => Str
82              
83             Allows grantee to list the objects in the bucket.
84              
85              
86              
87             =head2 GrantReadACP => Str
88              
89             Allows grantee to read the bucket ACL.
90              
91              
92              
93             =head2 GrantWrite => Str
94              
95             Allows grantee to create, overwrite, and delete any object in the
96             bucket.
97              
98              
99              
100             =head2 GrantWriteACP => Str
101              
102             Allows grantee to write the ACL for the applicable bucket.
103              
104              
105              
106             =head2 B<REQUIRED> Key => Str
107              
108              
109              
110              
111              
112             =head2 RequestPayer => Str
113              
114              
115              
116             Valid values are: C<"requester">
117              
118             =head2 VersionId => Str
119              
120             VersionId used to reference a specific version of the object.
121              
122              
123              
124              
125             =head1 SEE ALSO
126              
127             This class forms part of L<Paws>, documenting arguments for method PutObjectAcl in L<Paws::S3>
128              
129             =head1 BUGS and CONTRIBUTIONS
130              
131             The source code is located here: https://github.com/pplu/aws-sdk-perl
132              
133             Please report bugs to: https://github.com/pplu/aws-sdk-perl/issues
134              
135             =cut
136