1package 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'; 4use Moose::Role; 5use Digest::MD5 qw[]; 6use MIME::Base64 qw[]; 7 8around _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 151; 16 17__END__ 18 19=pod 20 21=encoding UTF-8 22 23=head1 NAME 24 25Net::Amazon::S3::Request::Role::HTTP::Header::Content_length - Content-Lenghth header role 26 27=head1 VERSION 28 29version 0.99 30 31=head1 AUTHOR 32 33Branislav Zahradník <barney@cpan.org> 34 35=head1 COPYRIGHT AND LICENSE 36 37This software is copyright (c) 2021 by Amazon Digital Services, Leon Brocard, Brad Fitzpatrick, Pedro Figueiredo, Rusty Conover, Branislav Zahradník. 38 39This is free software; you can redistribute it and/or modify it under 40the same terms as the Perl 5 programming language system itself. 41 42=cut 43