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