File Coverage

blib/lib/Net/Amazon/S3/Request/Object.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::Request::Object;
2             # ABSTRACT: Base class for all S3 Object operations
3             $Net::Amazon::S3::Request::Object::VERSION = '0.99';
4 99     99   64826 use Moose 0.85;
  99         2107  
  99         740  
5 99     99   664205 use MooseX::StrictConstructor 0.16;
  99         2150  
  99         680  
6             extends 'Net::Amazon::S3::Request::Bucket';
7              
8             has key => (
9             is => 'ro',
10             isa => 'Str',
11             required => 1,
12             );
13              
14             override _request_path => sub {
15             my ($self) = @_;
16              
17             return super . (join '/', map {$self->s3->_urlencode($_)} split /\//, $self->key);
18             };
19              
20             __PACKAGE__->meta->make_immutable;
21              
22             1;
23              
24             __END__
25              
26             =pod
27              
28             =encoding UTF-8
29              
30             =head1 NAME
31              
32             Net::Amazon::S3::Request::Object - Base class for all S3 Object operations
33              
34             =head1 VERSION
35              
36             version 0.99
37              
38             =head1 AUTHOR
39              
40             Branislav Zahradník <barney@cpan.org>
41              
42             =head1 COPYRIGHT AND LICENSE
43              
44             This software is copyright (c) 2021 by Amazon Digital Services, Leon Brocard, Brad Fitzpatrick, Pedro Figueiredo, Rusty Conover, Branislav Zahradník.
45              
46             This is free software; you can redistribute it and/or modify it under
47             the same terms as the Perl 5 programming language system itself.
48              
49             =cut