Branch Coverage

blib/lib/PerlIO/via/EscStatus.pm
Criterion Covered Total %
branch 32 58 55.1


line true false branch
156 0 4 if ($self->{'display'} and $self->{'status_width'} != 0)
161 0 0 unless (print $fh $output)
165 0 0 if ($want_flush)
167 0 0 unless ($fh->flush)
181 9 0 if ($fh) { }
202 0 2 if ($self->{'utf8'})
210 1 1 if (defined $new_status)
214 0 1 if ($new_status eq $status)
219 1 0 if ($ordinary eq '' and defined $new_status and $self->{'display'})
232 0 1 if ($want_status_reprint and $self->{'display'} and $self->{'status'} ne '')
235 0 0 if (_str_first_line_covers_n($ordinary, $status_width)) { }
242 0 1 if (defined $new_status)
249 1 0 if ($ordinary ne '')
253 0 0 if ($self->{'display'} and $want_status_reprint and $status ne '')
275 0 2 unless print $fh $output
276 0 1 unless $fh->flush
1 1 if ($want_flush)
316 0 0 unless ($str =~ /^(.*?)\n/)
354 8 499 if (defined $5)
359 10 489 if ($overflow)
364 55 434 if (defined $2) { }
6 428 elsif (defined $3) { }
2 426 elsif (defined $4) { }
374 4 2 if (length $part > $room)
385 0 2 if ($newcol > $limit)
397 7 419 if (length $part > $room)
439 3 0 if (defined $fd)
440 3 0 if (open my $tmp, '>&', $fd)
442 0 3 unless close $tmp