From: gfx <gfuji@cpan.org>
Date: Mon, 6 Jul 2009 07:20:16 +0000 (+0900)
Subject: add bench/oading-benchmark.pl
X-Git-Tag: 0.90~36
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=511430f99bbe045bf632e0b059a78cf4f271e18f;p=gitmo%2FClass-MOP.git

add bench/oading-benchmark.pl
---

diff --git a/bench/loading-benchmark.pl b/bench/loading-benchmark.pl
new file mode 100755
index 0000000..3719350
--- /dev/null
+++ b/bench/loading-benchmark.pl
@@ -0,0 +1,14 @@
+#!perl -w
+use strict;
+use Benchmark qw(:all);
+
+my $module = 'Moose';
+
+cmpthese timethese 10 => {
+	released => sub{
+		system($^X, '-e', "require $module") == 0 or die;
+	},
+	blead => sub{
+		system($^X, '-Iblib/lib', '-Iblib/arch', '-e', "require $module") == 0 or die;
+	},
+};