Branch Coverage

blib/lib/PerlIO/via/UnPod.pm

Criterion	Covered	Total	%
branch	9	10	90.0

line	true	false	branch
39	5	11	if (/^=[a-zA-Z]/) { }
	3	8	elsif ($_[0]{'insrc'}) { }
64	5	11	if (/^=[a-zA-Z]/) { }
	3	8	elsif ($_[0]{'insrc'}) { }
70	0	3	unless print {$_[2];} $_