X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=author%2Fbenchmark.pl;h=a931e8ed14d782724166dba833bf72ee4c5bae76;hb=152789f547fb53b6e92f5cec736f8b30122c844b;hp=a7832e2ce014f00272639d1430650d966b0cae96;hpb=ddca6c8f18c9c9fb84c2db836e3227f23aba3647;p=gitmo%2FMouse.git

diff --git a/author/benchmark.pl b/author/benchmark.pl
index a7832e2..a931e8e 100644
--- a/author/benchmark.pl
+++ b/author/benchmark.pl
@@ -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 => {
@@ -34,3 +37,12 @@ cmpthese(
         qw/Moose Mouse/
     }
 );
+
+print "---- new,get\n";
+cmpthese(
+    100000 => {
+        map { my $y = $_; $_ => sub { $y->new(n => 3)->n() } }
+        map { "${_}One" }
+        qw/Moose Mouse/
+    }
+);