| line |
true |
false |
branch |
|
36
|
1 |
0 |
unless defined $file |
|
50
|
0 |
0 |
unless defined $fh |
|
55
|
0 |
0 |
unless defined $headline |
|
59
|
0 |
0 |
unless $headline =~ /^EXP\s+(\d+)\s+(.+)\s*$/ |
|
70
|
0 |
0 |
if ($line =~ /^([A-Z]{3})\s+(\d+)/) |
|
79
|
0 |
0 |
if $section eq 'ARC' |
|
80
|
0 |
0 |
if $section eq 'CNT' |
|
81
|
0 |
0 |
if $section eq 'LAB' |
|
82
|
0 |
0 |
if $section eq 'TOL' |
|
83
|
0 |
0 |
if $section eq 'TX7' |
|
84
|
0 |
0 |
if $section eq 'LOG' |
|
85
|
0 |
0 |
if $section eq 'PRJ' |
|
86
|
0 |
0 |
if $section eq 'PAL' |
|
87
|
0 |
0 |
if $section eq 'IFO' |
|
104
|
0 |
0 |
if $line =~ /^\s*-1(\s+0){6}/ |
|
107
|
0 |
0 |
if ($line =~ /^\s*(\d+)\s+(\-?\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/) |
|
132
|
0 |
0 |
if ($cline =~ /^(\s*[ -]\d+\.\d+E[+-]\d+)(\s*[ -]\d+\.\d+E[+-]\d+)(\s*[ -]\d+\.\d+E[+-]\d+)(\s*[ -]\d+\.\d+E[+|-]\d+)/) |
|
149
|
0 |
0 |
if ($cline =~ /^(\s*[ -]\d+\.\d+E[+-]\d+)(\s*[ -]\d+\.\d+E[+-]\d+)/) |
|
164
|
0 |
0 |
unless scalar(@coords) / 2 eq $$arc{'npoints'} |
|
194
|
0 |
0 |
if ($line =~ /^\s*(\d+)/) |
|
200
|
0 |
0 |
if $line =~ /^\s*-1(\s+0){6}/ |
|
201
|
0 |
0 |
if ($line =~ /^\s*(\d+)(\s*[ -]\d+\.\d+E[+-]\d+)(\s*[ -]\d+\.\d+E[+-]\d+)/) { } |
|
229
|
0 |
0 |
if $line =~ /^\s*-1\s+0/ |
|
232
|
0 |
0 |
if ($line =~ /^\s*(\d+)\s+(\d+)(\s*[ -]\d+\.\d+E[+-]\d+)(\s*[ -]\d+\.\d+E[+-]\d+)/) |
|
275
|
0 |
0 |
if $line =~ /^EOL/ |
|
314
|
0 |
0 |
if $line =~ /^EOI/ |
|
315
|
0 |
0 |
if ($line =~ /^(.*)?\.([A-Z]{3})\s+XX\s+(\d+)\s+\d+\s+\d+\s+(\d+)/) |
|
333
|
0 |
0 |
if ($outputformat == 12) |
|
334
|
0 |
0 |
if ($outputformat == 5) |
|
338
|
0 |
0 |
if ($totallength > 80) |
|
361
|
0 |
0 |
if $line =~ /^\s*-1(\s+0){6}/ |
|
364
|
0 |
0 |
if ($line =~ /^\s*(\d+)(\s*[ -]\d+\.\d+E[+-]\d+)(\s*[ -]\d+\.\d+E[+-]\d+)(\s*[ -]\d+\.\d+E[+-]\d+)(\s*[ -]\d+\.\d+E[+|-]\d+)/) |
|
384
|
0 |
0 |
if ($cline =~ /^(\s*[ -]\d+)(\s*[ -]\d+)(\s*[ -]\d+)(\s*[ -]\d+)(\s*[ -]\d+)(\s*[ -]\d+)/) |
|
401
|
0 |
0 |
if ($cline =~ /^(\s*[ -]\d+)(\s*[ -]\d+)(\s*[ -]\d+)/) |
|
416
|
0 |
0 |
unless scalar @points eq $$pal{'npoints'} |
|
465
|
0 |
0 |
if (defined $$data{'arc'}) |
|
473
|
0 |
0 |
if (defined $$data{'lab'}) |
|
481
|
0 |
0 |
if (defined $$data{'ifo'}) |
|
485
|
0 |
0 |
if (defined $$data{'ifo'}{'AAT'}) |
|
514
|
0 |
0 |
if (defined $$data{'ifo'}{'PAT'}) |