1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!perl -w
use strict;
use Benchmark qw(:all);
my ( $count, $module ) = @ARGV;
$count ||= 10;
$module ||= 'Moose';
my @blib
= qw(-Iblib/lib -Iblib/arch -I../Moose/blib/lib -I../Moose/blib/arch -I../Moose/lib);
$| = 1; # autoflush
print 'Installed: ';
system $^X, '-le', 'require Moose; print $INC{q{Moose.pm}}';
print 'Blead: ';
system $^X, @blib, '-le', 'require Moose; print $INC{q{Moose.pm}}';
cmpthese timethese $count => {
released => sub {
system( $^X, '-e', "require $module" ) == 0 or die;
},
blead => sub {
system( $^X, @blib, '-e', "require $module" ) == 0 or die;
},
};
|
