Branch Coverage

blib/lib/Geo/Shapefile/Writer.pm
Criterion Covered Total %
branch 19 24 79.1


line true false branch
41 1 0 ref $format eq 'HASH' ? :
2 1 ref $format eq 'ARRAY' ? :
2 3 !ref($format) ? :
46 1 4 unless $descr[0]
48 2 2 unless $descr[1]
57 1 3 unless defined $shape_type
75 0 3 if -f "$name.dbf"
127 0 4 if ($type == $shape_type{'NULL'}) { }
2 2 elsif ($type == $shape_type{'POINT'}) { }
2 0 elsif ($type == $shape_type{'POLYLINE'} or $type == $shape_type{'POLYGON'}) { }
159 1 3 if (ref $attr0 eq 'HASH') { }
0 3 elsif (ref $attr0 eq 'ARRAY') { }