File Coverage

blib/lib/WWW/VastAI/LWPIO.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	1	2	50.0
condition			n/a
subroutine	5	6	83.3
pod	1	1	100.0
total	27	30	90.0

package WWW::VastAI::LWPIO;
our $VERSION = '0.001';
# ABSTRACT: Default LWP::UserAgent-backed IO backend for WWW::VastAI

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

with 'WWW::VastAI::Role::IO';

has user_agent => (
    is      => 'lazy',
    builder => sub {
        LWP::UserAgent->new(
            agent   => 'WWW-VastAI',
            timeout => 30,
        );
    },
);

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

    my $http = HTTP::Request->new($req->method => $req->url);
    for my $name (keys %{ $req->headers }) {
        $http->header($name => $req->headers->{$name});
    }
    $http->content($req->content) if $req->has_content;

    my $response = $self->user_agent->request($http);

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

1;

__END__