projects
/
gitmo/Class-MOP.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
2994f6c5a5a91d8a1c1bb824c6ba85f75741b78e
[gitmo/Class-MOP.git]
/
bench
/
loading-benchmark.pl
1
#!perl -w
2
use strict;
3
use Benchmark qw(:all);
4
5
my($count, $module) = @ARGV;
6
$count ||= 10;
7
$module ||= 'Moose';
8
9
cmpthese timethese $count => {
10
released => sub {
11
system( $^X, '-e', "require $module" ) == 0 or die;
12
},
13
blead => sub {
14
system( $^X, '-Iblib/lib', '-Iblib/arch', '-e', "require $module" )
15
== 0
16
or die;
17
},
18
};