File Coverage

blib/lib/Net/Amazon/S3/Request/Role/HTTP/Header/ACL.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Net::Amazon::S3::Request::Role::HTTP::Header::ACL;
2             # ABSTRACT: Headers builders for ACL
3             $Net::Amazon::S3::Request::Role::HTTP::Header::ACL::VERSION = '0.99';
4 99     99   65469 use Moose::Role;
  99         294  
  99         906  
5 99     99   527612 use Moose::Util::TypeConstraints;
  99         307  
  99         998  
6              
7 99     99   222036 use Carp ();
  99         323  
  99         11997  
8              
9             with 'Net::Amazon::S3::Role::ACL';
10              
11             around _request_headers => sub {
12             my ($inner, $self) = @_;
13              
14             return +(
15             $self->$inner,
16             $self->acl ? $self->acl->build_headers : (),
17             );
18             };
19              
20             1;
21              
22             __END__
23              
24             =pod
25              
26             =encoding UTF-8
27              
28             =head1 NAME
29              
30             Net::Amazon::S3::Request::Role::HTTP::Header::ACL - Headers builders for ACL
31              
32             =head1 VERSION
33              
34             version 0.99
35              
36             =head1 AUTHOR
37              
38             Branislav ZahradnĂ­k <barney@cpan.org>
39              
40             =head1 COPYRIGHT AND LICENSE
41              
42             This software is copyright (c) 2021 by Amazon Digital Services, Leon Brocard, Brad Fitzpatrick, Pedro Figueiredo, Rusty Conover, Branislav ZahradnĂ­k.
43              
44             This is free software; you can redistribute it and/or modify it under
45             the same terms as the Perl 5 programming language system itself.
46              
47             =cut