Branch Coverage

blib/lib/IO/Framed/Write.pm
Criterion Covered Total %
branch 13 16 81.2


line true false branch
22 0 3 if ($_[0]{'_write_queue'} and @{$_[0]{'_write_queue'};})
37 6 65546 unless defined $_[1]
38 4 65542 unless length $_[1]
50 1 65538 unless ($_[0]->can('WRITE')->($_[0]{'_out_fh'}, $_[1]))
54 0 65538 if $_[2]
77 4095 3 unless $self->_write_now_then_callback(@$qi)
121 3 0 if ($wrote == length $_[1])
123 2 1 if $_[2]