bench/loading-benchmark.pl

   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 };