| line |
true |
false |
branch |
|
23
|
8 |
0 |
if ($$args{'points'} and not $$args{'domain'} and not $$args{'range'}) |
|
37
|
0 |
51 |
unless defined $_ |
|
40
|
1 |
50 |
unless $n =~ /^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$/ |
|
49
|
0 |
8 |
unless @{$self->domain;} == @{$self->range;} |
|
50
|
0 |
8 |
unless @{$self->domain;} > 1 |
|
53
|
8 |
0 |
if ($self->sanitize) |
|
58
|
1 |
23 |
if defined $prev and $_ < $prev |
|
62
|
0 |
6 |
unless $self->can('_gen_' . $self->algorithm) |
|
74
|
0 |
6 |
unless my $sub = eval $self->perl_code |
|
87
|
7 |
8 |
if $$domain[$i] == $$domain[$i - 1] |
|
94
|
2 |
4 |
if ($self->beyond_domain eq 'clamp') { } |
|
|
1 |
3 |
elsif ($self->beyond_domain eq 'extrapolate') { } |
|
|
1 |
2 |
elsif ($self->beyond_domain eq 'undef') { } |
|
|
2 |
0 |
elsif ($self->beyond_domain eq 'die') { } |
|
101
|
0 |
1 |
if $$domain[0] == $$domain[1] |
|
103
|
0 |
1 |
if $$domain[-1] == $$domain[-2] |
|
129
|
4 |
7 |
if ($i == @expressions) |