| line |
true |
false |
branch |
|
118
|
5 |
1 |
if (@_) |
|
121
|
0 |
5 |
unless (builtin::reftype($arg) eq "HASH") |
|
127
|
8 |
6 |
if (exists $arg->{$param}) |
|
128
|
4 |
4 |
unless defined $arg->{$param} and &looks_like_number($arg->{$param}) |
|
161
|
0 |
10 |
if $self->{'BASE'} == $self->{'MISSING'} or not defined($self->{'BASE'} <=> 0) |
|
163
|
1 |
9 |
unless (@_) |
|
166
|
8 |
1 |
if (@_ == 1) { } |
|
|
1 |
0 |
elsif (@_ >= 2) { } |
|
168
|
3 |
3 |
if (not defined $tmean && &looks_like_number($tmean) or $tmean == $self->{'MISSING'} or not defined($tmean <=> 0)) |
|
173
|
0 |
1 |
if (not defined $tmax && &looks_like_number($tmax) or $tmax == $self->{'MISSING'} or not defined($tmax <=> 0)) |
|
174
|
0 |
1 |
if (not defined $tmin && &looks_like_number($tmin) or $tmin == $self->{'MISSING'} or not defined($tmin <=> 0)) |
|
178
|
2 |
2 |
$tmean > $self->{'BASE'} ? : |
|
202
|
0 |
10 |
if $self->{'BASE'} == $self->{'MISSING'} or not defined($self->{'BASE'} <=> 0) |
|
204
|
1 |
9 |
unless (@_) |
|
207
|
8 |
1 |
if (@_ == 1) { } |
|
|
1 |
0 |
elsif (@_ >= 2) { } |
|
209
|
3 |
3 |
if (not defined $tmean && &looks_like_number($tmean) or $tmean == $self->{'MISSING'} or not defined($tmean <=> 0)) |
|
214
|
0 |
1 |
if (not defined $tmax && &looks_like_number($tmax) or $tmax == $self->{'MISSING'} or not defined($tmax <=> 0)) |
|
215
|
0 |
1 |
if (not defined $tmin && &looks_like_number($tmin) or $tmin == $self->{'MISSING'} or not defined($tmin <=> 0)) |
|
219
|
2 |
2 |
$tmean < $self->{'BASE'} ? : |
|
239
|
0 |
9 |
if $self->{'GBASE'} == $self->{'MISSING'} or $self->{'GCEILING'} == $self->{'MISSING'} or not defined($self->{'GBASE'} <=> 0) or not defined($self->{'GCEILING'} <=> 0) |
|
241
|
2 |
7 |
if (not @_ or @_ < 2) |
|
247
|
2 |
4 |
if (not defined $tmax && &looks_like_number($tmax) or $tmax == $self->{'MISSING'} or not defined($tmax <=> 0)) |
|
248
|
0 |
4 |
if (not defined $tmin && &looks_like_number($tmin) or $tmin == $self->{'MISSING'} or not defined($tmin <=> 0)) |
|
249
|
1 |
3 |
if ($tmax > $self->{'GCEILING'}) |
|
250
|
2 |
2 |
if ($tmin > $self->{'GCEILING'}) |
|
252
|
3 |
1 |
$tmean > $self->{'GBASE'} ? : |