Branch Coverage

blib/lib/OpenGL/PLG.pm
Criterion Covered Total %
branch 34 64 53.1


line true false branch
28 0 0 unless open my $fh, '<', $filename
40 0 0 if (@fields == 0)
47 0 0 if ($reading_vertexes) { }
58 0 0 unless ($fields[0] =~ /^\d+$/)
88 2 2 if (@fields != $n_vertices) { }
110 0 3 if (not defined $id) { }
1 2 elsif ($id == 0) { }
119 2 0 if $id > 0
121 1 1 if (not defined $$self{'polygons'}[$id]) { }
148 3 8 if (not defined $id && $id =~ /^\d+$/) { }
2 6 elsif ($id == 0) { }
155 2 7 unless (defined $x and defined $y and defined $z)
164 7 0 if $id > 0
179 0 2 if (not defined $v_ref or ref $v_ref ne 'HASH')
209 0 15 if (not defined $id) { }
1 14 elsif ($id == 0) { }
218 14 0 if $id > 0
220 2 12 if (not defined $$self{'vertices'}[$id]) { }
257 0 3 if (not defined $id) { }
1 2 elsif ($id == 0) { }
266 2 0 if $id > 0
268 1 1 if (not defined $$self{'vertices'}[$id]) { }
282 0 9 if (not defined $id) { }
2 7 elsif ($id == 0) { }
291 7 0 if $id > 0
293 3 4 if (not defined $$self{'polygons'}[$id]) { }
315 0 0 if ($@)
366 0 0 unless open my $fh, '>', $filename
369 0 0 unless print $fh $self->dump
383 0 0 unless open my $fh, '>', $filename
390 0 0 unless defined $vertex[0]
404 0 0 unless defined $polygon[0]