Branch Coverage

blib/lib/PerlIO/via/UnComment.pm

Criterion	Covered	Total	%
branch	3	4	75.0

line	true	false	branch
52	2	5	if /^#/
54	0	5	unless print {$_[2];} $_