X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=benchmarks%2Fmodifiers.pl;fp=benchmarks%2Fmodifiers.pl;h=d8b286f31413ba565d47c910b3eb46fb67484941;hb=3fac36bed469b7bf8a80c9a10f2c38c2bdfab5d4;hp=0000000000000000000000000000000000000000;hpb=72e60273ff56052a78344eb0ea2af882f3ede200;p=gitmo%2FMouse.git

diff --git a/benchmarks/modifiers.pl b/benchmarks/modifiers.pl
new file mode 100644
index 0000000..d8b286f
--- /dev/null
+++ b/benchmarks/modifiers.pl
@@ -0,0 +1,119 @@
+#!perl -w
+use strict;
+use Benchmark qw(:all);
+
+use Config;
+
+use Moose ();
+use Mouse ();
+use Class::Method::Modifiers ();
+
+printf "Perl %vd on $Config{archname}\n", $^V;
+my @mods = qw(Moose Mouse Class::Method::Modifiers);
+
+if(eval{ require  Class::Method::Modifiers::Fast }){
+    push @mods, 'Class::Method::Modifiers::Fast';
+}
+
+foreach my $class(@mods){
+    print "$class ", $class->VERSION, "\n";
+}
+print "\n";
+
+{
+    package Base;
+    sub f{ 42 }
+    sub g{ 42 }
+    sub h{ 42 }
+}
+
+my $i = 0;
+sub around{
+    my $next = shift;
+    $i++;
+    goto &{$next};
+}
+{
+    package CMM;
+    use parent -norequire => qw(Base);
+    use Class::Method::Modifiers;
+
+    before f => sub{ $i++ };
+    around g => \&main::around;
+    after  h => sub{ $i++ };
+}
+{
+    package MooseClass;
+    use parent -norequire => qw(Base);
+    use Moose;
+
+    before f => sub{ $i++ };
+    around g => \&main::around;
+    after  h => sub{ $i++ };
+}
+{
+    package MouseClass;
+    use parent -norequire => qw(Base);
+    use Moose;
+
+    before f => sub{ $i++ };
+    around g => \&main::around;
+    after  h => sub{ $i++ };
+}
+
+print "Calling methods with before modifiers:\n";
+cmpthese -1 => {
+    CMM => sub{
+        my $old = $i;
+        CMM->f();
+        $i == ($old+1) or die $i;
+    },
+    Moose => sub{
+        my $old = $i;
+        MooseClass->f();
+        $i == ($old+1) or die $i;
+    },
+    Mouse => sub{
+        my $old = $i;
+        MouseClass->f();
+        $i == ($old+1) or die $i;
+    },
+};
+
+print "\n", "Calling methods with around modifiers:\n";
+cmpthese -1 => {
+    CMM => sub{
+        my $old = $i;
+        CMM->g();
+        $i == ($old+1) or die $i;
+    },
+    Moose => sub{
+        my $old = $i;
+        MooseClass->g();
+        $i == ($old+1) or die $i;
+    },
+    Mouse => sub{
+        my $old = $i;
+        MouseClass->g();
+        $i == ($old+1) or die $i;
+    },
+};
+
+print "\n", "Calling methods with after modifiers:\n";
+cmpthese -1 => {
+    CMM => sub{
+        my $old = $i;
+        CMM->h();
+        $i == ($old+1) or die $i;
+    },
+    Moose => sub{
+        my $old = $i;
+        MooseClass->h();
+        $i == ($old+1) or die $i;
+    },
+    Mouse => sub{
+        my $old = $i;
+        MouseClass->h();
+        $i == ($old+1) or die $i;
+    },
+};