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