File Coverage

blib/lib/FCGI/Client/RecordHeader.pm
Criterion Covered Total %
statement 18 22 81.8
branch n/a
condition n/a
subroutine 6 10 60.0
pod 4 4 100.0
total 28 36 77.7


line stmt bran cond sub pod time code
1             package FCGI::Client::RecordHeader;
2 1     1   5 use strict;
  1         1  
  1         21  
3 1     1   3 use warnings;
  1         1  
  1         16  
4 1     1   4 use FCGI::Client::Constant;
  1         1  
  1         4  
5 1     1   493 use Types::Standard qw/Str/;
  1         57225  
  1         9  
6              
7 1     1   1116 use Moo;
  1         7998  
  1         5  
8             has raw => ( is => 'ro', isa => Str );
9 1     1   1194 no Moo;
  1         3  
  1         5  
10              
11 0     0 1   sub content_length { unpack( 'x4n', $_[0]->raw ) }
12 0     0 1   sub padding_length { unpack( 'x6C', $_[0]->raw ) }
13 0     0 1   sub type { unpack( 'xC', $_[0]->raw ) }
14 0     0 1   sub request_id { unpack( 'xxn', $_[0]->raw ) }
15              
16             __PACKAGE__->meta->make_immutable;
17             __END__