Branch Coverage

blib/lib/CAD/Format/STL.pm
Criterion Covered Total %
branch 36 84 42.8


line true false branch
136 0 4 unless @{$$self{'parts'};}
139 2 2 unless exists $$self{'parts'}[$index]
167 0 1 if (@and)
168 0 0 if @and > 1
174 1 0 unless ((ref $file || '') eq 'GLOB')
175 0 1 unless open my $fh, '<', $file
181 1 0 unless ($mode)
182 0 1 unless (seek $file, 0, 0)
190 0 1 unless read $fh, $buf, 4
193 0 1 if $@
194 0 1 unless $count
206 0 1 $size == $expect ? :
208 0 1 unless seek $file, 0, 0
212 0 1 unless $self->can($method)
232 0 86 unless length $line
242 1 13 if ($line =~ /^\s*solid (.*)/) { }
1 12 elsif ($line =~ /^\s*endsolid (.*)/) { }
12 0 elsif ($part) { }
247 0 1 unless $part
248 0 1 unless $name eq $part->name
254 0 12 unless my(@n) = $line =~ /^\s*facet\s+normal\s+$p_re/
260 0 12 unless ($next and $next =~ /^\s*outer\s+loop$/)
266 12 36 if $line =~ /^\s*endloop$/
267 36 0 if ($line =~ /^\s*vertex\s+$p_re/)
273 0 12 unless scalar @facet == 4
276 0 12 unless $end and $end =~ /^\s*endfacet/
284 0 1 if $part
318 0 0 unless read $fh, $buf, 4
326 0 0 unless read $fh, $buf, 4
334 0 0 unless read $fh, $buf, 2
348 0 0 if $self->parts
365 0 0 if eof $fh
367 0 0 unless $count == $triangles
385 0 1 if (@and)
386 0 0 if @and > 1
392 0 1 unless ((ref $file || '') eq 'GLOB')
393 0 0 unless open my $fh, '>', $file
398 1 0 unless $mode
401 0 1 unless $self->can($method)
418 0 0 if @and
444 0 1 unless my(@parts) = $self->parts
454 0 12 unless @pts == 3