| line |
l |
!l |
condition |
|
230
|
6 |
29 |
$opt{'min_width'} ||= 0 |
|
231
|
9 |
26 |
$opt{'max_width'} ||= 0 |
|
232
|
18 |
17 |
$opt{'max_nelem'} ||= 0 |
|
243
|
24 |
11 |
defined $opt{'error'} && 1 || 0 |
|
|
12 |
23 |
defined $opt{'width'} && 16 || 0 |
|
|
8 |
27 |
$opt{'fold'} && 8 || 0 |
|
|
0 |
35 |
$opt{'set_bad'} && 4 || 0 |
|
588
|
0 |
50 |
defined $opt->{'weight'} && 2 || 0 |
|
|
0 |
50 |
$opt->{'want_sum_weight'} && 16384 || 0 |
|
|
0 |
50 |
$opt->{'want_sum_weight2'} && 32768 || 0 |
|
|
0 |
50 |
$opt->{'want_extrema'} && 8192 || 0 |
|
592
|
16 |
34 |
($Map_OOB{lc $opt->{'oob'}} // $opt->{'oob'} && 512) || 0 |
|
653
|
30 |
0 |
$range //= "minmax" |
|
694
|
30 |
0 |
0 |
eval {
do {
my($imin, $imax) = $dims eq "slice" ? map({$_->dummy(0);} $opt->{'index'}->minmaximum) : map({PDL::indx([$_]);} $opt->{'index'}->minmax);
if ($range eq "minmax") {
die "do not specify $_ when specifying 'minmax'\range with " foreach (grep {defined $opt->{$_};} "imin", "imax", "nbins");
$opt->{'imin'} = $imin;
$opt->{'imax'} = $imax;
}
elsif ($range eq "min") {
die "do not specify imin when specifying 'min'\n" if defined $opt->{'imin'};
die "specify exactly one of 'imax' or 'nbins'\n" if defined $opt->{'imax'} and defined $opt->{'nbins'};
$opt->{'imin'} = $imin;
}
elsif ($range eq "max") {
die "do not specify imax\n" if defined $opt->{'imax'};
die "specify exactly one of 'imin' or 'nbins'\n" if defined $opt->{'imin'} and defined $opt->{'nbins'};
$opt->{'imax'} = $imax;
} ;
1
}
} // do {
my $error = $@;
chomp $error;
Carp::croak($opt->{'range'}, ": error: $error\n")
} |