| 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 |