line |
true |
false |
branch |
43
|
2 |
16 |
if (defined $config->{'interpolate'} and $config->{'interpolate'} eq 'spline') { } |
|
1 |
15 |
elsif (defined $config->{'interpolate'} and not $config->{'interpolate'}) { } |
55
|
0 |
18 |
if defined $config->{'pipemode'} |
57
|
6 |
12 |
if (defined $self->{'in_file'}) |
70
|
35 |
0 |
unless defined $self->{'config'}{'indexformat'} |
71
|
35 |
0 |
unless defined $self->{'config'}{'extrapol'} |
96
|
11 |
6 |
if defined $infile |
100
|
11 |
6 |
if (ref $self->{'in_file'}) { } |
|
0 |
6 |
elsif (not defined $self->{'in_file'} or $self->{'in_file'} eq '') { } |
102
|
0 |
6 |
unless open $handle, $self->{'in_file'} |
112
|
167 |
0 |
if ($state == $Text::ASCIIPipe::line) { } |
114
|
30 |
137 |
unless ($data) |
116
|
0 |
30 |
if $justhead |
117
|
17 |
13 |
if ($self->line_check(\$l)) { } |
119
|
0 |
17 |
if $justhead |
128
|
154 |
13 |
if ($data) |
131
|
154 |
0 |
if (defined $da) |
134
|
154 |
0 |
if @{$da;} |
141
|
0 |
0 |
unless defined $self->{'config'}{'pipemode'} |
143
|
0 |
0 |
if $state != $Text::ASCIIPipe::begin |
149
|
0 |
17 |
if defined $state and $state != $Text::ASCIIPipe::allend |
152
|
17 |
0 |
unless defined $state |
172
|
0 |
16 |
if grep {$_ == $d->[$x];} @x |
180
|
0 |
2 |
if $x < 0 or $x > $#data |
197
|
0 |
0 |
unless defined $x |
198
|
0 |
0 |
unless defined $y |
199
|
0 |
0 |
unless defined $self->{'splinex'} and $self->{'splinex'} == $x |
209
|
0 |
280 |
unless defined $x |
210
|
2 |
278 |
unless defined $self->{'splinex'} and $self->{'splinex'} == $x |
227
|
0 |
7 |
unless defined $ar |
233
|
46 |
0 |
$d->[$c] =~ /$zahl/ ? : |
234
|
46 |
0 |
unless defined $self->{'data_index'}[$c]{$key} |
244
|
0 |
2 |
unless defined $xl |
247
|
0 |
2 |
unless defined $self->{'data_index'}[$x] |
280
|
2 |
0 |
if defined $file |
282
|
2 |
0 |
if (ref $self->{'out_file'}) { } |
|
0 |
0 |
elsif (not defined $self->{'out_file'} or $self->{'out_file'} eq '') { } |
284
|
0 |
0 |
unless open $handle, '>', $self->{'out_file'} |
287
|
0 |
2 |
if $self->{'config'}{'pipemode'} |
292
|
0 |
2 |
if $self->{'config'}{'pipemode'} |
311
|
6 |
1 |
if (@{$self->{'raw_header'};}) { } |
317
|
0 |
6 |
if (defined $selection) |
334
|
1 |
0 |
if defined $self->{'title'} |
345
|
600 |
0 |
if $value =~ /$zahl/ |
347
|
0 |
600 |
unless defined $x |
348
|
5 |
595 |
unless defined $self->{'data_index'}[$x] |
358
|
140 |
460 |
if defined $set or $self->{'intmethod'} == $none |
363
|
0 |
460 |
unless defined $x |
364
|
280 |
180 |
if ($self->{'intmethod'} == $spline) |
370
|
0 |
180 |
unless defined $sets and $#{$sets;} == 1 |
376
|
180 |
180 |
if ($y != $x) { } |
392
|
0 |
0 |
unless defined $x |
393
|
0 |
0 |
unless defined $y |
395
|
0 |
0 |
defined $set ? : |
405
|
0 |
0 |
if defined $y or $self->{'intmethod'} == $none |
411
|
0 |
0 |
unless defined $x |
412
|
0 |
0 |
unless defined $y |
413
|
0 |
0 |
if ($self->{'intmethod'} == $spline) |
419
|
0 |
0 |
unless defined $sets and $#{$sets;} == 1 |
438
|
0 |
180 |
if ($self->{'config'}{'orderedint'}) { } |
440
|
2 |
178 |
unless defined $self->{'sorted_data'}[$x] |
441
|
0 |
180 |
unless $#{$$self{'sorted_data'}[$x];} > 0 |
447
|
180 |
864 |
if ($v->[$x] > $val and defined $n) |
452
|
0 |
0 |
if (defined $self->{'data'}[0] and $self->{'data'}[0][$x] < $val) { } |
458
|
0 |
0 |
if ($v->[$x] > $val and defined $n) |
467
|
0 |
0 |
if ($v->[$x] < $val and defined $n) |
471
|
0 |
180 |
unless defined $n |
472
|
0 |
180 |
unless ($self->{'config'}{'extrapol'}) |
475
|
0 |
0 |
unless $n->[$x] <= $val and $e->[$x] >= $val or $n->[$x] >= $val and $e->[$x] <= $val |
485
|
0 |
1 |
unless defined $ff |
490
|
1 |
3 |
if not defined $max or $nm > $max |
503
|
0 |
0 |
unless defined $ff |
509
|
0 |
0 |
if (@maxval) { } |
511
|
0 |
0 |
if ($nm >= $maxval[0]) { } |
|
0 |
0 |
elsif ($nm > $maxval[1]) { } |
554
|
9 |
0 |
$prec =~ /^(\d+)/ ? : |
558
|
1 |
8 |
if (defined $down and $$down[++$i]) |
577
|
8 |
0 |
unless (defined $sortfunc) |
598
|
0 |
1 |
unless defined $ff |
610
|
0 |
1 |
unless defined $deletelist |
621
|
0 |
1 |
unless defined $delist |
626
|
1 |
0 |
unless @delis |
653
|
0 |
0 |
unless defined $self->{'sorted_data'}[$xcol] |
656
|
0 |
0 |
if ($a->[$xcol] >= $start) |
658
|
0 |
0 |
if ($a->[$xcol] <= $end) { } |
662
|
0 |
0 |
$count > 0 ? : |
669
|
0 |
0 |
unless defined $self->{'sorted_data'}[$x] |
676
|
15 |
0 |
@{$self->{'data'};} ? : |