File Coverage

blib/lib/HTTP/AnyUA/Middleware/ContentLength.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition	5	6	83.3
subroutine	5	5	100.0
pod	1	1	100.0
total	31	32	96.8

package HTTP::AnyUA::Middleware::ContentLength;
# ABSTRACT: Middleware to add Content-Length header automatically


use warnings;
use strict;

our $VERSION = '0.904'; # VERSION

use parent 'HTTP::AnyUA::Middleware';

use HTTP::AnyUA::Util;


sub request {
    my $self = shift;
    my ($method, $url, $args) = @_;

    $args->{headers} = HTTP::AnyUA::Util::normalize_headers($args->{headers});

    if (!defined $args->{headers}{'content-length'} && $args->{content} && !ref $args->{content}) {
        $args->{headers}{'content-length'} = length $args->{content};
    }

    return $self->backend->request($method, $url, $args);
}

1;

__END__