Lines Matching refs:total
395 my $total = shift;
396 if (!defined $total) {
398 $total += $_;
453 if (ref $total) {
454 $calc_sum = &$total($len);
456 $calc_sum = $total;
457 # Shift into range by some multiple of the total
458 my $mult = $max_p1 ? int ($total / $max_p1) : undef;
460 $calc_sum = $total - $mult;
483 my $text = ref $total ? &$total($len) : $total;
485 print "# For list (" . join (", ", @_) . ") (total $text)"
521 # This total is icky, but the true total is 2**65-1, and need a way to generate
527 $len = 65 if $len > 65; # unmasked total is 2**65-1 here
528 my $total = 1 + 2 * (int (2**($len - 1)) - 1);
529 return 0 if $total == $total - 1; # Overflowed integers
530 return $total; # NVs still accurate to nearest integer