Branch Coverage

blib/lib/Pipe/Tube/Print.pm

Criterion	Covered	Total	%
branch	6	10	60.0

line	true	false	branch
13	4	0	if ($file)
14	2	2	if (not ref $file) { }
	2	0	elsif ('GLOB' eq ref $file) { }
15	0	2	unless open my $fh, '>', $file
31	28	0	if (my $fh = $$self{'fh'}) { }