Lines Matching refs:sum
3026 sub sum { subroutine3030 my $sum = 0;3033 $_ and do { $sum += $_; }3035 return $sum;6550 my $sum = 0;6553 $sum = $nrec * (scalar @{$self->{'arg_list'}[0]});6555 return $sum;6903 my $sum = 0;6904 while($sum == 0) {6915 $sum++;6946 if($sum == 0) {