Branch Coverage

blib/lib/PerlIO/via/Logger.pm

Criterion	Covered	Total	%
branch	4	6	66.6

line	true	false	branch
39	1	1	if defined $_[1]
75	1	0	if (defined(my $line = readline $_[1]))
109	0	2	unless print {$_[2];} $now_string . $_