| 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'};} ? : |