File Coverage

blib/lib/WWW/ORCID/Transport/LWP.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod			n/a
total	20	28	71.4

package WWW::ORCID::Transport::LWP;

use strict;
use warnings;

our $VERSION = 0.0402;

use LWP::UserAgent ();
use Moo;
use namespace::clean;

with 'WWW::ORCID::Transport';

has _client =>
    (is => 'ro', init_arg => 0, lazy => 1, builder => '_build_client',);

sub _build_client {
    LWP::UserAgent->new;
}

sub get {
    my ($self, $url, $params, $headers) = @_;
    $url = $self->_param_url($url, $params) if $params;
    my $res = $self->_client->get($url, %$headers);
    [$res->code, $self->_get_headers($res), $res->content];
}

sub post_form {
    my ($self, $url, $form, $headers) = @_;
    my $res = $self->_client->post($url, $form, %$headers);
    [$res->code, $self->_get_headers($res), $res->content];
}

sub post {
    my ($self, $url, $body, $headers) = @_;
    my $res = $self->_client->post($url, %$headers, Content => $body);
    [$res->code, $self->_get_headers($res), $res->content];
}

sub put {
    my ($self, $url, $body, $headers) = @_;
    my $res = $self->_client->put($url, %$headers, Content => $body);
    [$res->code, $self->_get_headers($res), $res->content];
}

sub delete {
    my ($self, $url, $params, $headers) = @_;
    $url = $self->_param_url($url, $params) if $params;
    my $res = $self->_client->delete($url, %$headers);
    [$res->code, $self->_get_headers($res), $res->content];
}

sub _get_headers {
    my ($self, $msg) = @_;
    my $headers = {};
    for my $key ($msg->header_field_names) {
        $headers->{lc $key} = $msg->header($key);
    }
    $headers;
}

1;