[gitmo/Moose.git] / benchmarks / cmop / loading-benchmark.pl

#!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;
    },
};
Commit	Line	Data
38bf2a25	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	my @blib
	10	= qw(-Iblib/lib -Iblib/arch -I../Moose/blib/lib -I../Moose/blib/arch -I../Moose/lib);
	11
	12	$\| = 1; # autoflush
	13
	14	print 'Installed: ';
	15	system $^X, '-le', 'require Moose; print $INC{q{Moose.pm}}';
	16
	17	print 'Blead: ';
	18	system $^X, @blib, '-le', 'require Moose; print $INC{q{Moose.pm}}';
	19
	20	cmpthese timethese $count => {
	21	released => sub {
	22	system( $^X, '-e', "require $module" ) == 0 or die;
	23	},
	24	blead => sub {
	25	system( $^X, @blib, '-e', "require $module" ) == 0 or die;
	26	},
	27	};