File Coverage

blib/lib/Net/Amazon/S3/Request/Role/HTTP/Header/Content_length.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::Content_length;
2             # ABSTRACT: Content-Lenghth header role
3             $Net::Amazon::S3::Request::Role::HTTP::Header::Content_length::VERSION = '0.99';
4 99     99   67496 use Moose::Role;
  99         340  
  99         788  
5 99     99   517623 use Digest::MD5 qw[];
  99         326  
  99         2352  
6 99     99   679 use MIME::Base64 qw[];
  99         296  
  99         11635  
7              
8             around _request_headers => sub {
9             my ($inner, $self) = @_;
10             my $content = $self->_http_request_content;
11              
12             return ($self->$inner, ('Content-Length' => length $content));
13             };
14              
15             1;
16              
17             __END__
18              
19             =pod
20              
21             =encoding UTF-8
22              
23             =head1 NAME
24              
25             Net::Amazon::S3::Request::Role::HTTP::Header::Content_length - Content-Lenghth header role
26              
27             =head1 VERSION
28              
29             version 0.99
30              
31             =head1 AUTHOR
32              
33             Branislav Zahradník <barney@cpan.org>
34              
35             =head1 COPYRIGHT AND LICENSE
36              
37             This software is copyright (c) 2021 by Amazon Digital Services, Leon Brocard, Brad Fitzpatrick, Pedro Figueiredo, Rusty Conover, Branislav Zahradník.
38              
39             This is free software; you can redistribute it and/or modify it under
40             the same terms as the Perl 5 programming language system itself.
41              
42             =cut