File Coverage

blib/lib/CloudHealth/API/Caller.pm

Criterion	Covered	Total	%
statement	9	12	75.0
branch	0	4	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	21	57.1

package CloudHealth::API::Caller;
  use Moo;
  use HTTP::Tiny;
  use CloudHealth::API::HTTPResponse;

  has ua => (is => 'ro', default => sub {
    HTTP::Tiny->new(
      agent => 'CloudHealth::API Perl Client ' . $CloudHealth::API::VERSION,
    );
  });

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

    my $res = $self->ua->request(
      $req->method,
      $req->url,
      {
        headers => $req->headers,
        (defined $req->content) ? (content => $req->content) : (),
      }
    );

    return CloudHealth::API::HTTPResponse->new(
       status => $res->{ status },
       (defined $res->{ content })?( content => $res->{ content } ) : (),
    );
  }
1;