3 use Benchmark qw(:all);
5 my($count, $module) = @ARGV;
9 my @blib = qw(-Iblib/lib -Iblib/arch -I../Moose/blib/lib -I../Moose/blib/arch -I../Moose/lib);
14 system $^X, '-le', 'require Moose; print $INC{q{Moose.pm}}';
17 system $^X, @blib, '-le', 'require Moose; print $INC{q{Moose.pm}}';
19 cmpthese timethese $count => {
21 system( $^X, '-e', "require $module") == 0 or die;
24 system( $^X, @blib, '-e', "require $module") == 0 or die;