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'}) { }