File Coverage

blib/lib/FCGI/Client/RecordHeader.pm
Criterion Covered Total %
statement 6 10 60.0
branch n/a
condition n/a
subroutine 2 6 33.3
pod 4 4 100.0
total 12 20 60.0


line stmt bran cond sub pod time code
1             package FCGI::Client::RecordHeader;
2 1     1   8 use Any::Moose;
  1         3  
  1         8  
3 1     1   3386 use FCGI::Client::Constant;
  1         5  
  1         13  
4             has raw => ( is => 'ro', isa => 'Str' );
5              
6 0     0 1   sub content_length { unpack( 'x4n', $_[0]->raw ) }
7 0     0 1   sub padding_length { unpack( 'x6C', $_[0]->raw ) }
8 0     0 1   sub type { unpack( 'xC', $_[0]->raw ) }
9 0     0 1   sub request_id { unpack( 'xxn', $_[0]->raw ) }
10              
11             __PACKAGE__->meta->make_immutable;
12             __END__