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