File Coverage

blib/lib/Docker/Registry/Response.pm

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

package Docker::Registry::Response;
  use Moo;
  use Types::Standard qw/Str Int HashRef/;
  use HTTP::Headers;

  has content  => (is => 'ro', isa => Str);
  has status   => (is => 'ro', isa => Int, required => 1);
  has headers  => (is => 'rw', isa => HashRef, required => 1);

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

1;