File Coverage

blib/lib/WWW/Hetzner/LWPIO.pm

Criterion	Covered	Total	%
statement	14	22	63.6
branch	0	2	0.0
condition	0	2	0.0
subroutine	5	6	83.3
pod	1	1	100.0
total	20	33	60.6

package WWW::Hetzner::LWPIO;

# ABSTRACT: Synchronous HTTP backend using LWP::UserAgent

use Moo;
use LWP::UserAgent;
use HTTP::Request;
use WWW::Hetzner::HTTPResponse;

with 'WWW::Hetzner::Role::IO';

our $VERSION = '0.100';


has timeout => (is => 'ro', default => 30);


has ua => (
    is      => 'lazy',
    builder => sub {
        my $self = shift;
        LWP::UserAgent->new(
            agent   => 'WWW-Hetzner/' . $VERSION,
            timeout => $self->timeout,
        );
    },
);


sub call {
    my ($self, $req) = @_;

    my $http_req = HTTP::Request->new($req->method => $req->url);

    my $headers = $req->headers;
    for my $header (keys %$headers) {
        $http_req->header($header => $headers->{$header});
    }

    $http_req->content($req->content) if $req->has_content;

    my $response = $self->ua->request($http_req);

    return WWW::Hetzner::HTTPResponse->new(
        status  => $response->code,
        content => $response->decoded_content // '',
    );
}



1;

__END__