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.98';
4 96     96   69784 use Moose::Role;
  96         302  
  96         947  
5 96     96   525271 use Moose::Util::TypeConstraints;
  96         276  
  96         1024  
6              
7 96     96   220298 use Carp ();
  96         307  
  96         12316  
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.98
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