File Coverage

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

Criterion	Covered	Total	%
statement	28	28	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	4	4	100.0
total	42	42	100.0

package HTTP::AnyUA::Middleware::RequestHeaders;
# ABSTRACT: Middleware to add custom request headers


use warnings;
use strict;

our $VERSION = '0.904'; # VERSION

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

use HTTP::AnyUA::Util;


sub init {
    my $self = shift;
    my %args = @_;
    $self->{override} = !!$args{override};
    $self->{headers}  = HTTP::AnyUA::Util::normalize_headers($args{headers});
}

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

    if ($self->override) {
        $args->{headers} = {
            %{HTTP::AnyUA::Util::normalize_headers($args->{headers})},
            %{$self->headers},
        };
    }
    else {
        $args->{headers} = {
            %{$self->headers},
            %{HTTP::AnyUA::Util::normalize_headers($args->{headers})},
        };
    }

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


sub headers { shift->{headers} }


sub override { shift->{override} }

1;

__END__