[gitmo/Class-MOP.git] / bench / loading-benchmark.pl

#!perl -w
use strict;
use Benchmark qw(:all);

my $module = 'Moose';

cmpthese timethese 10 => {
    released => sub {
        system( $^X, '-e', "require $module" ) == 0 or die;
    },
    blead => sub {
        system( $^X, '-Iblib/lib', '-Iblib/arch', '-e', "require $module" )
            == 0
            or die;
    },
};
Commit	Line	Data
7b4f6e93	1	#!perl -w
	2	use strict;
	3	use Benchmark qw(:all);
	4
	5	my $module = 'Moose';
	6
	7	cmpthese timethese 10 => {
	8	released => sub {
	9	system( $^X, '-e', "require $module" ) == 0 or die;
	10	},
	11	blead => sub {
	12	system( $^X, '-Iblib/lib', '-Iblib/arch', '-e', "require $module" )
	13	== 0
	14	or die;
	15	},
	16	};