File Coverage

blib/lib/Docker/Registry/Request.pm

Criterion	Covered	Total	%
statement	12	17	70.5
branch	1	2	50.0
condition			n/a
subroutine	4	6	66.6
pod	0	2	0.0
total	17	27	62.9

package Docker::Registry::Request;
  use Moo;
  use Types::Standard qw/Str Maybe InstanceOf/;
  use HTTP::Headers;

  has headers => (is => 'ro', isa => InstanceOf['HTTP::Headers'], default => sub { HTTP::Headers->new });
  has method => (is => 'ro', isa => Str, required => 1);
  has url => (is => 'ro', isa => Str, required => 1);
  has content => (is => 'ro', isa => Maybe[Str]);

  sub header_hash {
    my $self = shift;
    my $headers = {};
    $self->headers->scan(sub { $headers->{ $_[0] } = $_[1] });
    return $headers;
  }

  sub header {
    my ($self, $header, $value) = @_;
    $self->headers->header($header, $value) if (defined $value);
    return $self->headers->header($header);
  }

1;