| line |
true |
false |
branch |
|
55
|
0 |
4 |
if @_ < 1 or @_ > 2 |
|
58
|
3 |
1 |
unless ((ref $file || '') eq "GLOB") |
|
59
|
0 |
3 |
unless open my $fh, "<", $file |
|
64
|
0 |
4 |
unless seek $file, 0, 0 |
|
66
|
0 |
4 |
unless seek $file, 0, 0 |
|
67
|
3 |
1 |
$mode eq 'ascii' ? : |
|
74
|
0 |
4 |
unless read $fh, $buf, 5 |
|
75
|
3 |
1 |
if $buf eq "solid" |
|
78
|
0 |
1 |
unless read $fh, $buf, 4 |
|
81
|
0 |
1 |
if $@ |
|
82
|
0 |
1 |
unless $count |
|
84
|
0 |
1 |
unless defined $size |
|
95
|
1 |
0 |
$size - $location >= $expect ? : |
|
104
|
0 |
132 |
unless length $line |
|
111
|
3 |
21 |
if ($line =~ /^\s*solid\s*(.*)/) { } |
|
|
3 |
18 |
elsif ($line =~ /^\s*endsolid\s*(.*)/) { } |
|
117
|
1 |
2 |
if (length $name) |
|
118
|
0 |
1 |
unless defined $part |
|
119
|
0 |
1 |
if $name ne $part |
|
124
|
0 |
18 |
unless defined $part |
|
125
|
0 |
18 |
unless my(@n) = $line =~ /^\s*facet\s+normal\s+$p_re/ |
|
128
|
0 |
18 |
unless ($next and $next =~ /^\s*outer\s+loop$/) |
|
133
|
18 |
54 |
if $line =~ /^\s*endloop$/ |
|
134
|
54 |
0 |
if ($line =~ /^\s*vertex\s+$p_re/) |
|
138
|
0 |
18 |
if @this_tri != 3 |
|
140
|
0 |
18 |
unless $end and $end =~ /^\s*endfacet/ |
|
144
|
0 |
3 |
if defined $part |
|
159
|
0 |
1 |
unless read $fh, $buf, 4 |
|
163
|
0 |
1 |
if $bytesread != $bytes |
|
168
|
0 |
1 |
if isbigendian() |
|
210
|
1 |
1 |
if @_ < 3 or @_ > 5 |
|
215
|
0 |
1 |
unless $valid_mode{$mode} |
|
217
|
0 |
1 |
unless ((ref $file || '') eq "GLOB") |
|
218
|
0 |
0 |
unless open my $fh, ">", $file |
|
223
|
0 |
1 |
$mode eq 'ascii' ? : |
|
250
|
0 |
0 |
unless @pts == 3 |