Branch Coverage

blib/lib/Model3D/WavefrontObject.pm
Criterion Covered Total %
branch 12 178 6.7


line true false branch
23 1 0 unless (scalar @_ % 2)
45 0 1 if ($$obj{'objfile'})
55 0 1 unless ($$obj{'objfile'} =~ /\.obj$/ and $$obj{'objfile'})
58 1 0 unless (-e $$obj{'objfile'})
61 0 0 if (-d $$obj{'objfile'})
65 0 0 unless (-s $$obj{'objfile'})
67 0 0 unless (-w $$obj{'objfile'})
73 0 0 unless (open $OBJ, $$obj{'objfile'})
86 0 0 if (/^v\s+/) { }
0 0 elsif (/^#\s*r\s+(.*)$/) { }
0 0 elsif (/^g$/) { }
0 0 elsif (/^g\s+(\S*)$/) { }
0 0 elsif (/^usemtl\s*(\S*)/) { }
0 0 elsif (/^mtllib\s+(.*)\s*$/) { }
0 0 elsif (/^vt\s+/) { }
0 0 elsif (/^vn\s+/) { }
0 0 elsif (/^fo?\s+(.*)$/) { }
0 0 elsif (/^l\s+(.*)$/) { }
0 0 elsif (/^p\s+(.*)$/) { }
0 0 elsif (/^\s*#\s*(.*)$/) { }
114 0 0 if lc $group eq '(null)'
159 0 0 if $v > 0
160 0 0 if $vt > 0
161 0 0 if $vn > 0
168 0 0 unless $$obj{'seengroupv'}{$$obj{'_group'}}{$v}
206 0 0 if $v > 0
207 0 0 if $vt > 0
215 0 0 if $v > 0
230 0 0 unless $mtllib
232 0 0 unless (open $MTL, "$mtllib")
241 0 0 if (/^newmtl\s+(\S+)/) { }
0 0 elsif (/^Ka\s+([\d\.eE\-\+]+)\s+([[\d\.eE\-\+]+)\s+([[\d\.eE\-\+]+)/) { }
0 0 elsif (/^Kd\s+([\d\.eE\-\+]+)\s+([[\d\.eE\-\+]+)\s+([[\d\.eE\-\+]+)/) { }
0 0 elsif (/^Ks\s+([\d\.eE\-\+]+)\s+([[\d\.eE\-\+]+)\s+([[\d\.eE\-\+]+)/) { }
0 0 elsif (/^illum\s+(\d)/) { }
0 0 elsif (/^Ns\s+([\d\.eE\-\+]+)/) { }
0 0 elsif (/^(d|Tr)\s+([\d\.eE\-\+]+)/) { }
0 0 elsif (/^map_Ka\s+(.*)/) { }
294 0 0 if ($$trans{'x'})
297 0 0 if ($$trans{'y'})
300 0 0 if ($$trans{'z'})
313 2 0 unless $c
314 0 0 if $c eq 'natural'
315 0 0 if $c eq 'apparent'
317 0 0 if (ref $c and ref $c ne 'SCALAR') { }
319 0 0 if (ref $c eq 'ARRAY') { }
0 0 elsif (ref $c eq 'HASH') { }
334 0 0 if (ref $c and ref $c eq 'SCALAR')
343 0 0 if ($p =~ /:/) { }
363 0 0 unless $vcount
381 0 0 unless scalar @{$$obj{'v'};}
397 0 0 unless scalar @{$$obj{'v'};}
399 0 0 if $$v{'x'} > $$max{'x'}
400 0 0 if $$v{'x'} < $$min{'x'}
401 0 0 if $$v{'y'} > $$max{'y'}
402 0 0 if $$v{'y'} < $$min{'y'}
403 0 0 if $$v{'z'} > $$max{'z'}
404 0 0 if $$v{'z'} < $$min{'z'}
447 1 0 unless (scalar @{$$obj{'f'};})
466 0 1 unless $rot
468 0 0 if ($$centre{'x'} or $$centre{'y'} or $$centre{'z'})
469 0 0 if ($$centre{'x'})
472 0 0 if ($$centre{'y'})
475 0 0 if ($$centre{'z'})
479 0 0 if ($$rot{'x'})
487 0 0 if ($$rot{'y'})
495 0 0 if ($$rot{'z'})
503 0 0 if ($$centre{'x'} or $$centre{'y'} or $$centre{'z'})
504 0 0 if ($$centre{'x'})
507 0 0 if ($$centre{'y'})
510 0 0 if ($$centre{'z'})
521 0 3 unless $sv
525 3 0 if ($sv =~ s/\%$//)
528 0 3 if ($op)
529 0 0 if ($op eq '-') { }
0 0 elsif ($op eq '+') { }
544 0 1 if (scalar @_ > 1) { }
557 0 1 if ($$scale{'scale'})
575 0 0 unless ($vert)
579 0 0 unless (exists $$obj{'v'}[$vert])
583 0 0 wantarray ? :
592 0 0 unless ($vert)
596 0 0 unless (exists $$obj{'v'}[$vert])
605 0 0 wantarray ? :
638 0 0 if ($$obj{'outfile'}) { }
683 0 0 if ($r ne $$f{'region'})
687 0 0 if ($g ne $$f{'group'})
691 0 0 if ($m ne $$f{'material'})
700 0 0 unless $was_stdout