6 use Benchmark qw/:hireswallclock :all/;
29 foreach my $bench ( $self->benchmarks ) {
30 my $bench_class = $bench->{class};
31 my @bench_args = ( (ref($bench->{args}) eq "ARRAY") ? @{ $bench->{args} } : %{ $bench->{args} } );
33 eval "require $bench_class";
38 foreach my $class ( $self->classes ) {
39 eval "require $class";
42 my $b = $bench_class->new( @bench_args, class => $class );
43 $res{$class} = countit( $self->min_time, $b->code );
46 print "$bench_class:\n";