Commit | Line | Data |
---|---|---|
7b4f6e93 | 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 | }; |