Branch Coverage

blib/lib/Data/PerlSurvey2007.pm

Criterion	Covered	Total	%
branch	6	8	75.0

line	true	false	branch
100	0	1	unless open my $fh, '<', $filename
103	4	4576	if /^#/ or not /./
107	0	4576	unless $nfields == 34
108	4575	1	if (@columns) { }