File Coverage

blib/lib/IO/Framed/ReadWrite/NonBlocking.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 14 15 93.3


line stmt bran cond sub pod time code
1             package IO::Framed::ReadWrite::NonBlocking;
2              
3 2     2   1145 use strict;
  2         5  
  2         46  
4 2     2   8 use warnings;
  2         3  
  2         49  
5              
6 2         9 use parent qw(
7             IO::Framed::ReadWrite
8             IO::Framed::Write::NonBlocking
9 2     2   12 );
  2         4  
10              
11             sub new {
12 1     1 0 21 $_[0]->SUPER::new( @_[ 1 .. $#_ ] )->enable_write_queue();
13             }
14              
15             1;