Branch Coverage

blib/lib/PerlIO/via/EscStatus/ShowAll.pm

Criterion	Covered	Total	%
branch	2	4	50.0

line	true	false	branch
51	0	6	$buf =~ /\e(?:$|_(?:$|E(?:$|s(?:$|c(?:$|S(?:$|t(?:$|a(?:$|t(?:$|u(?:$|s(?:$|\e(?:$|\\))))))))))))/ ? :
58	0	6	unless print $fh $buf