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