bench/loading-benchmark.pl

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