3 use Benchmark qw(:all);
5 my ( $count, $module ) = @ARGV;
10 = qw(-Iblib/lib -Iblib/arch -I../Moose/blib/lib -I../Moose/blib/arch -I../Moose/lib);
15 system $^X, '-le', 'require Moose; print $INC{q{Moose.pm}}';
18 system $^X, @blib, '-le', 'require Moose; print $INC{q{Moose.pm}}';
20 cmpthese timethese $count => {
22 system( $^X, '-e', "require $module" ) == 0 or die;
25 system( $^X, @blib, '-e', "require $module" ) == 0 or die;