| line |
true |
false |
branch |
|
43
|
1 |
0 |
if (ref $self) |
|
63
|
0 |
0 |
if ($n < $self->{'n_start'}) |
|
66
|
0 |
0 |
if (is_infinite($n)) |
|
69
|
0 |
0 |
if (defined(my $x = _read($self)->{'x_array'}[$n])) |
|
79
|
0 |
0 |
unless (defined $self->{'xy_hash'}) |
|
85
|
0 |
0 |
if (defined(my $nx = $x_array->[$n])) |
|
96
|
0 |
0 |
$self->{'figure'} eq 'square' ? : |
|
99
|
0 |
0 |
if (defined(my $n = _read($self)->{'xy_hash'}{$key})) |
|
107
|
0 |
0 |
unless defined(my $nx = $x_array->[$n]) |
|
109
|
0 |
0 |
if (($x - $nx) ** 2 + ($y - $ny) ** 2 <= 0.25) |
|
127
|
3 |
1 |
if (defined $self->{'n_start'}) |
|
139
|
1 |
0 |
if (not defined $filename or $filename =~ /^\s*$/) |
|
143
|
0 |
0 |
$] >= 5.006 ? : |
|
|
0 |
0 |
unless $] >= 5.006 ? open($fh, '<', $filename) : open($fh, "< $filename") |
|
155
|
0 |
0 |
unless $line =~ /^\s*-?\.?[0-9]/ |
|
158
|
0 |
0 |
unless ($line =~ /^\s*($num)[ \t,]+($num)([ \t,]+($num))?/o) |
|
163
|
0 |
0 |
if (defined $4) { } |
|
176
|
0 |
0 |
if (not defined $n_start or $n < $n_start) |
|
182
|
0 |
0 |
unless close $fh |
|
191
|
0 |
0 |
if ($any_frac) |