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

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

my($count, $module) = @ARGV;
$count  ||= 10;
$module ||= 'Moose';

cmpthese timethese $count => {
    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
6f219abc	5	my($count, $module) = @ARGV;
	6	$count \|\|= 10;
	7	$module \|\|= 'Moose';
7b4f6e93	8
6f219abc	9	cmpthese timethese $count => {
7b4f6e93	10	released => sub {
	11	system( $^X, '-e', "require $module" ) == 0 or die;
	12	},
	13	blead => sub {
	14	system( $^X, '-Iblib/lib', '-Iblib/arch', '-e', "require $module" )
	15	== 0
	16	or die;
	17	},
	18	};