Branch Coverage

blib/lib/Math/NumSeq/File.pm
Criterion Covered Total %
branch 10 18 55.5


line true false branch
64 0 1 if ($self->{'fh'}) { }
68 1 0 if (defined $filename and not $filename =~ /^\s*$/)
70 1 0 $] >= 5.006 ? :
0 1 unless $] >= 5.006 ? open($fh, '<', $filename) : open($fh, "< $filename")
85 1 21 unless (defined $line)
90 3 18 if ($line =~ /^\s*(-?\d+)(\s+(-?(\d+(\.\d*)?|\.\d+)))?/)
92 3 0 if (defined $3) { }
101 0 3 if ($value > $max_value || $value < $min_value and not $value =~ /\./)
113 0 0 unless seek $self->{'fh'}, $pos, 0