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