Branch Coverage

blib/lib/Text/NumericData/File.pm
Criterion Covered Total %
branch 78 176 44.3


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