File Coverage

blib/lib/FCGI/Client/Record.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             package FCGI::Client::Record;
2 1     1   5 use strict;
  1         2  
  1         23  
3 1     1   3 use warnings;
  1         2  
  1         20  
4 1     1   3 use FCGI::Client::Constant;
  1         2  
  1         5  
5 1     1   304 use FCGI::Client::RecordHeader;
  1         701  
  1         30  
6 1     1   7 use Types::Standard qw/Str/;
  1         2  
  1         6  
7              
8 1     1   438 use Moo;
  1         2  
  1         4  
9             has header => (
10             is => 'ro',
11             isa => sub { die "header must be FCGI::Client::RecordHeader" unless UNIVERSAL::isa($_[0], 'FCGI::Client::RecordHeader') },
12             handles => [qw/request_id content_length type/]
13             );
14             has content => ( is => 'ro', isa => Str );
15 1     1   324 no Moo;
  1         2  
  1         4  
16              
17             __PACKAGE__->meta->make_immutable;
18             __END__