| line |
true |
false |
branch |
|
26
|
12 |
0 |
if ($$args{'points'} and not $$args{'domain'} and not $$args{'range'}) |
|
28
|
0 |
12 |
unless ref $$args{'points'} eq 'ARRAY' |
|
31
|
8 |
4 |
if (ref $$args{'points'}[0]) { } |
|
41
|
8 |
9 |
$flip++ & 1 ? : |
|
44
|
1 |
3 |
if $flip & 1 |
|
55
|
0 |
63 |
unless defined $_ |
|
58
|
1 |
62 |
unless $n =~ /^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$/ |
|
67
|
0 |
11 |
unless @{$self->domain;} == @{$self->range;} |
|
68
|
0 |
11 |
unless @{$self->domain;} > 1 |
|
71
|
11 |
0 |
if ($self->sanitize) |
|
76
|
1 |
29 |
if defined $prev and $_ < $prev |
|
80
|
0 |
9 |
unless $self->can('_gen_' . $self->algorithm) |
|
92
|
0 |
9 |
unless my $sub = eval $self->perl_code |
|
105
|
7 |
11 |
if $$domain[$i] == $$domain[$i - 1] |
|
112
|
4 |
5 |
if ($self->beyond_domain eq 'clamp') { } |
|
|
2 |
3 |
elsif ($self->beyond_domain eq 'extrapolate') { } |
|
|
1 |
2 |
elsif ($self->beyond_domain eq 'undef') { } |
|
|
2 |
0 |
elsif ($self->beyond_domain eq 'die') { } |
|
119
|
0 |
2 |
if $$domain[0] == $$domain[1] |
|
121
|
0 |
2 |
if $$domain[-1] == $$domain[-2] |
|
147
|
6 |
9 |
if ($i == @expressions) |