File Coverage

blib/lib/Kubernetes/REST/HTTPTinyIO.pm

Criterion	Covered	Total	%
statement	15	19	78.9
branch	0	6	0.0
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	20	32	62.5

package Kubernetes::REST::HTTPTinyIO;
  use Moo;
  use HTTP::Tiny;
  use IO::Socket::SSL;
  use Kubernetes::REST::HTTPResponse;
  use Types::Standard qw/Bool/;

  has ssl_verify_server => (is => 'ro', isa => Bool, default => 1);
  has ssl_cert_file => (is => 'ro');
  has ssl_key_file => (is => 'ro');
  has ssl_ca_file => (is => 'ro');

  has ua => (is => 'ro', lazy => 1, default => sub {
    my $self = shift;

    my %options;
    $options{ SSL_verify_mode } = SSL_VERIFY_PEER if ($self->ssl_verify_server);
    $options{ SSL_cert_file } = $self->ssl_cert_file if (defined $self->ssl_cert_file);
    $options{ SSL_key_file } = $self->ssl_key_file if (defined $self->ssl_key_file);
    $options{ SSL_ca_file } = $self->ssl_ca_file if (defined $self->ssl_ca_file);

    return HTTP::Tiny->new(
      agent => 'Kubernetes::REST Perl Client ' . $Kubernetes::REST::VERSION,
      SSL_options => \%options,
    );
  });

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

    $req->authenticate if (defined $req->credentials);

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

    return Kubernetes::REST::HTTPResponse->new(
       status => $res->{ status },
       (defined $res->{ content })?( content => $res->{ content } ) : (),
    );
  }

1;