X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=author%2Fbenchmark.pl;h=a931e8ed14d782724166dba833bf72ee4c5bae76;hb=152789f547fb53b6e92f5cec736f8b30122c844b;hp=bdc3de7552d0ce4969d595d43c230ef5da128445;hpb=dd034272808d9006bf0f929e5d28ee9dd4c1d3f8;p=gitmo%2FMouse.git 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/ + } +);