Branch Coverage

blib/lib/PerlIO/Layers.pm

Criterion	Covered	Total	%
branch	9	12	75.0

line	true	false	branch
32	0	63	if defined $layer and $name ne $layer
34	10	53	if $entry
46	2	10	if (@_) { }
48	0	2	exists $kinds->{$layer} && $kinds->{$layer} & $KIND_FOR{$kind} ? :
51	6	4	grep({$kinds->{$_} & $KIND_FOR{$kind};} keys %{$kinds;}) ? :
106	0	79	unless my $layer_query = $layer_query_for{$query_name}