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