File Coverage

blib/lib/Net/Amazon/S3/Operation/Object/Upload/Create/Response.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 11 12 91.6


line stmt bran cond sub pod time code
1             package Net::Amazon::S3::Operation::Object::Upload::Create::Response;
2             # ABSTRACT: An internal class to handle create multipart upload response
3             $Net::Amazon::S3::Operation::Object::Upload::Create::Response::VERSION = '0.99';
4 99     99   850 use Moose;
  99         308  
  99         891  
5              
6             extends 'Net::Amazon::S3::Response';
7              
8             sub upload_id {
9 1     1 0 1429 $_[0]->_data->{upload_id};
10             }
11              
12             sub _parse_data {
13 1     1   29 my ($self) = @_;
14              
15 1         26 my $xpc = $self->xpath_context;
16              
17 1         5 my $data = {
18             upload_id => scalar $xpc->findvalue ("//s3:UploadId"),
19             };
20              
21 1         172 return $data;
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::Response - An internal class to handle create multipart upload response
35              
36             =head1 VERSION
37              
38             version 0.99
39              
40             =head1 DESCRIPTION
41              
42             Implement operation L<< CreateMultipartUpload|https://docs.aws.amazon.com/AmazonS3/latest/API/API_CreateMultipartUpload.html >>.
43              
44             =head1 AUTHOR
45              
46             Branislav Zahradník <barney@cpan.org>
47              
48             =head1 COPYRIGHT AND LICENSE
49              
50             This software is copyright (c) 2021 by Amazon Digital Services, Leon Brocard, Brad Fitzpatrick, Pedro Figueiredo, Rusty Conover, Branislav Zahradník.
51              
52             This is free software; you can redistribute it and/or modify it under
53             the same terms as the Perl 5 programming language system itself.
54              
55             =cut