added benchmark case for setter, getter

[gitmo/Mouse.git] / author / benchmarks / basic.pl

diff --git a/author/benchmarks/basic.pl b/author/benchmarks/basic.pl
index bdc3de7..47873d8 100644 (file)
--- a/author/benchmarks/basic.pl
+++ b/author/benchmarks/basic.pl
@@ -37,3 +37,21 @@ cmpthese(
         qw/Moose Mouse/
     }
 );
+
+print "---- set\n";
+my %c = map { $_ => "${_}One"->new(n => 3) } qw/Moose Mouse/;
+cmpthese(
+    100000 => {
+        map { my $y = $_; $_ => sub { $c{$y}->n(5) } }
+        qw/Moose Mouse/
+    }
+);
+
+print "---- get\n";
+cmpthese(
+    0 => {
+        map { my $y = $_; $_ => sub { $c{$y}->n() } }
+        qw/Moose Mouse/
+    }
+);
+