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


line stmt bran cond sub pod time code
1             package Docker::Registry::Response;
2 6     6   528 use Moo;
  6         12  
  6         36  
3 6     6   2060 use Types::Standard qw/Str Int HashRef/;
  6         14  
  6         70  
4 6     6   4822 use HTTP::Headers;
  6         14  
  6         846  
5              
6             has content => (is => 'ro', isa => Str);
7             has status => (is => 'ro', isa => Int, required => 1);
8             has headers => (is => 'rw', isa => HashRef, required => 1);
9              
10             sub header {
11 0     0 0   my ($self, $header) = @_;
12 0           return $self->headers->{ $header };
13             }
14              
15             1;