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 | |
41070b4e |
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 | |
6f219abc |
19 | cmpthese timethese $count => { |
7b4f6e93 |
20 | released => sub { |
41070b4e |
21 | system( $^X, '-e', "require $module") == 0 or die; |
7b4f6e93 |
22 | }, |
23 | blead => sub { |
41070b4e |
24 | system( $^X, @blib, '-e', "require $module") == 0 or die; |
7b4f6e93 |
25 | }, |
26 | }; |