some more benchmarks

[gitmo/Moose.git] / benchmarks / simple_compile.pl

diff --git a/benchmarks/simple_compile.pl b/benchmarks/simple_compile.pl
new file mode 100644 (file)
index 0000000..f12c518
--- /dev/null
+++ b/benchmarks/simple_compile.pl
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Benchmark::Forking qw[cmpthese];
+
+=pod
+
+This compare the overhead of Class::MOP
+to the overhead of Moose. 
+
+The goal here is to see how much more 
+startup cost Moose adds to Class::MOP.
+
+NOTE:
+This benchmark may not be all that 
+relevant really, but it's helpful to 
+see maybe.
+
+=cut
+
+cmpthese(5_000, 
+    {
+        'w/out_moose' => sub {
+            eval 'use Class::MOP;';
+        },
+        'w_moose' => sub {
+            eval 'use Moose;';
+        },       
+    }
+);
+
+1;
\ No newline at end of file