display module version in benchmark script
Tokuhiro Matsuno [Sat, 6 Dec 2008 06:49:57 +0000 (06:49 +0000)]
author/benchmark.pl

index a7832e2..bdc3de7 100644 (file)
@@ -17,6 +17,9 @@ for my $klass (qw/Moose Mouse/) {
     die $@ if $@;
 }
 
+print "Class::MOP: $Class::MOP::VERSION\n";
+print "Moose: $Moose::VERSION\n";
+print "Mouse: $Mouse::VERSION\n";
 print "---- new\n";
 cmpthese(
     100000 => {