From: Tokuhiro Matsuno <tokuhirom@gp.ath.cx>
Date: Sat, 6 Dec 2008 08:55:30 +0000 (+0000)
Subject: added 'get' in benchmark script
X-Git-Tag: 0.19~136^2~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=152789f547fb53b6e92f5cec736f8b30122c844b;p=gitmo%2FMouse.git

added 'get' in benchmark script
---

diff --git a/author/benchmark.pl b/author/benchmark.pl
index bdc3de7..a931e8e 100644
--- a/author/benchmark.pl
+++ b/author/benchmark.pl
@@ -37,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/
+    }
+);