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.98';
4 96     96   69015 use Moose::Role;
  96         306  
  96         795  
5 96     96   511554 use Digest::MD5 qw[];
  96         291  
  96         2280  
6 96     96   642 use MIME::Base64 qw[];
  96         251  
  96         11150  
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.98
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