6 use Benchmark qw/:hireswallclock :all/;
29 foreach my $bench ( $self->benchmarks ) {
30 my $bench_class = delete $bench->{class};
31 my $name = delete $bench->{name} || $bench_class;
32 my @bench_args = %$bench;
34 eval "require $bench_class";
39 foreach my $class ( $self->classes ) {
40 eval "require $class";
43 my $b = $bench_class->new( @bench_args, class => $class );
44 $res{$class} = countit( $self->min_time, $b->code );