Checking in changes prior to tagging of version 0.40_06. Changelog diff is:

[gitmo/Mouse.git] / benchmarks / vs_caf.pl

diff --git a/benchmarks/vs_caf.pl b/benchmarks/vs_caf.pl
new file mode 100644 (file)
index 0000000..569b78f
--- /dev/null
+++ b/benchmarks/vs_caf.pl
@@ -0,0 +1,72 @@
+#!perl
+
+### MODULES
+
+
+{
+    package PlainMoose;
+    use Moose;
+    has foo => (is => 'rw');
+    __PACKAGE__->meta->make_immutable();
+}
+{
+    package PlainMouse;
+    use Mouse;
+    has foo => (is => 'rw');
+    __PACKAGE__->meta->make_immutable();
+}
+{
+    package ClassAccessorFast;
+    use warnings;
+    use strict;
+    use base 'Class::Accessor::Fast';
+    __PACKAGE__->mk_accessors(qw(foo));
+}
+
+use Benchmark qw(cmpthese);
+
+my $moose                = PlainMoose->new;
+my $mouse                = PlainMouse->new;
+my $caf                  = ClassAccessorFast->new;
+
+
+print "\nSETTING\n";
+cmpthese(-1, {
+    Moose                       => sub { $moose->foo(23) },
+    Mouse                       => sub { $mouse->foo(23) },
+    ClassAccessorFast           => sub { $caf->foo(23) },
+}, 'noc');
+
+print "\nGETTING\n";
+cmpthese(-1, {
+    Moose                       => sub { $moose->foo },
+    Mouse                       => sub { $mouse->foo },
+    ClassAccessorFast           => sub { $caf->foo },
+}, 'noc');
+
+my (@moose, @moose_immut, @mouse, @mouse_immut, @caf_stall);
+print "\nCREATION\n";
+cmpthese(1_000_000, {
+    Moose                       => sub { push @moose, PlainMoose->new(foo => 23) },
+    Mouse                       => sub { push @mouse, PlainMouse->new(foo => 23) },
+    ClassAccessorFast           => sub { push @caf_stall, ClassAccessorFast->new({foo => 23}) },
+}, 'noc');
+
+my ( $moose_idx, $mouse_idx, $caf_idx ) = ( 0, 0, 0, 0 );
+print "\nDESTRUCTION\n";
+cmpthese(1_000_000, {
+    Moose => sub {
+        $moose[$moose_idx] = undef;
+        $moose_idx++;
+    },
+    Mouse => sub {
+        $mouse[$mouse_idx] = undef;
+        $mouse_idx++;
+    },
+    ClassAccessorFast   => sub {
+        $caf_stall[$caf_idx] = undef;
+        $caf_idx++;
+    },
+}, 'noc');
+
+