projects
/
gitmo/Class-MOP.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
emergency fix for bad variable usage
[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
};