perl/Porting/bench.pl

707     my @results; # returned, each item is [ perlexe, label, {env}, 'args' ]
721                 unless @results;
730                 $results[-1][3] .= " $val";
736                 $results[-1][2]{$1} = $2;
762         push @results, [ $perl, $label,  { }, '' ];
766     for (@results) {
775         for (0..$#results)  {
776             push @labels, [ $results[$_][0], $_ ]
777                         unless defined $results[$_][1];
839             $results[$_->[1]][1]= $_->[0] for @labels;
844     return @results;
946     my ($loop_counts, $perls, $results, $tests, $order, @run_perls);
1003             ($loop_counts, $perls, $results, $tests, $order) =
1036                     $results->{$test}{$label}= $read_results->{$test}{$label};
1098         $results = grind_run($tests, $order, \@run_perls, $loop_counts, $results);
1109                     results      => $results,
1123                     grind_process($results, $perls, $loop_counts);
1138         my @r = values %$results;
1161     my ($tests, $order, $perls, $counts, $results) = @_;
1339             $results->{$j->{test}}{$j->{plabel}}[$j->{active}][$j->{loopix}]
1362     return $results;
1547     my ($results, $order, $perls) = @_;
1556                         $results->{$a}{$perl}{$field}
1557                     <=> $results->{$b}{$perl}{$field}
1559                 keys %$results;
1562             @names = grep $results->{$_}, @$order;
1603     my ($results, $averages, $perls, $tests, $order) = @_;
1613     my @test_names = sorted_test_names($results, $order, $perls);
1643         my $res = ($test eq 'AVERAGE') ? $averages : $results->{$test};
1658         my $res = $doing_ave ? $averages : $results->{$test_name};
1727     my ($results, $averages, $which_perl, $perls, $tests, $order) = @_;
1734     my @test_names = sorted_test_names($results, $order, $perls);
1760         my $res = ($test eq 'AVERAGE') ? $averages : $results->{$test};
1779         my $res = $doing_ave ? $averages : $results->{$test_name};