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