Branch Coverage

blib/lib/Data/SExpression/Util.pm

Criterion	Covered	Total	%
branch	10	10	100.0

line	true	false	branch
29	3	1	if (defined $expr) { }
40	5	1	if (defined $expr) { }
54	5	1	if (defined $expr) { }
68	1	10	if (not defined $list) { }
	2	8	elsif ($list->car eq $expr) { }