X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=bench%2Flib%2FBench%2FRun.pm;h=09ac1b640a495fa4998534ebfa61d9a9bb4b1f4a;hb=41fc2d0fd29483cb704e06198bfaabbcd3e09d08;hp=fc2009f9e0956c904147a54ed12b41a7865ec7f8;hpb=6698ebe5496d8d334573318c2282c6e11444e4fc;p=gitmo%2FClass-MOP.git

diff --git a/bench/lib/Bench/Run.pm b/bench/lib/Bench/Run.pm
index fc2009f..09ac1b6 100644
--- a/bench/lib/Bench/Run.pm
+++ b/bench/lib/Bench/Run.pm
@@ -27,8 +27,9 @@ sub run {
     my $self = shift;
 
     foreach my $bench ( $self->benchmarks ) {
-        my $bench_class = $bench->{class};
-        my @bench_args  = ( (ref($bench->{args}) eq "ARRAY") ? @{ $bench->{args} } : %{ $bench->{args} } );
+        my $bench_class = delete $bench->{class};
+        my $name        = delete $bench->{name} || $bench_class;
+        my @bench_args  = %$bench;
 
         eval "require $bench_class";
         die $@ if $@;
@@ -43,7 +44,7 @@ sub run {
             $res{$class} = countit( $self->min_time, $b->code );
         }
 
-        print "$bench_class:\n";
+        print "- $name:\n";
         cmpthese( \%res );
         print "\n";
     }