File Coverage

blib/lib/Net/Amazon/S3/Operation/Object/Upload/Create/Request.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             package Net::Amazon::S3::Operation::Object::Upload::Create::Request;
2             #ABSTRACT: An internal class to begin a multipart upload
3             $Net::Amazon::S3::Operation::Object::Upload::Create::Request::VERSION = '0.98';
4 96     96   825 use Moose 0.85;
  96         2891  
  96         792  
5 96     96   656600 use MooseX::StrictConstructor 0.16;
  96         2334  
  96         838  
6             extends 'Net::Amazon::S3::Request::Object';
7              
8             has 'headers' =>
9             ( is => 'ro', isa => 'HashRef', required => 0, default => sub { {} } );
10              
11             with 'Net::Amazon::S3::Request::Role::Query::Action::Uploads';
12             with 'Net::Amazon::S3::Request::Role::HTTP::Header::ACL';
13             with 'Net::Amazon::S3::Request::Role::HTTP::Header::Encryption';
14             with 'Net::Amazon::S3::Request::Role::HTTP::Method::POST';
15              
16             __PACKAGE__->meta->make_immutable;
17              
18             sub _request_headers {
19             my ($self) = @_;
20              
21             return %{ $self->headers };
22             }
23              
24             1;
25              
26             __END__
27              
28             =pod
29              
30             =encoding UTF-8
31              
32             =head1 NAME
33              
34             Net::Amazon::S3::Operation::Object::Upload::Create::Request - An internal class to begin a multipart upload
35              
36             =head1 VERSION
37              
38             version 0.98
39              
40             =head1 SYNOPSIS
41              
42             my $request = Net::Amazon::S3::Operation::Object::Upload::Create::Request->new (
43             s3 => $s3,
44             bucket => $bucket,
45             keys => $key,
46             );
47              
48             =head1 DESCRIPTION
49              
50             Implement operation L<< CreateMultipartUpload|https://docs.aws.amazon.com/AmazonS3/latest/API/API_CreateMultipartUpload.html >>.
51              
52             This module begins a multipart upload
53              
54             =for test_synopsis no strict 'vars'
55              
56             =head1 METHODS
57              
58             =head2 http_request
59              
60             This method returns a HTTP::Request object.
61              
62             =head1 AUTHOR
63              
64             Branislav Zahradník <barney@cpan.org>
65              
66             =head1 COPYRIGHT AND LICENSE
67              
68             This software is copyright (c) 2021 by Amazon Digital Services, Leon Brocard, Brad Fitzpatrick, Pedro Figueiredo, Rusty Conover, Branislav Zahradník.
69              
70             This is free software; you can redistribute it and/or modify it under
71             the same terms as the Perl 5 programming language system itself.
72              
73             =cut