bench/loading-benchmark.pl

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