X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=bench%2Floading-benchmark.pl;h=612ae633f532967bb9fd0f5fbfb76349225d32fe;hb=78902d1df967dfe480294acbeb65e2e2bae4439e;hp=dc0184c2a6bfc1d72ade8dbd27a67845e9480eb1;hpb=41070b4eebf43492380a31b9fbab69b329cf8616;p=gitmo%2FClass-MOP.git

diff --git a/bench/loading-benchmark.pl b/bench/loading-benchmark.pl
index dc0184c..612ae63 100755
--- a/bench/loading-benchmark.pl
+++ b/bench/loading-benchmark.pl
@@ -2,25 +2,26 @@
 use strict;
 use Benchmark qw(:all);
 
-my($count, $module) = @ARGV;
+my ( $count, $module ) = @ARGV;
 $count  ||= 10;
 $module ||= 'Moose';
 
-my @blib      = qw(-Iblib/lib -Iblib/arch -I../Moose/blib/lib -I../Moose/blib/arch -I../Moose/lib);
+my @blib
+    = qw(-Iblib/lib -Iblib/arch -I../Moose/blib/lib -I../Moose/blib/arch -I../Moose/lib);
 
-$| = 1; # autoflush
+$| = 1;    # autoflush
 
 print 'Installed: ';
-system $^X,        '-le', 'require Moose; print $INC{q{Moose.pm}}';
+system $^X, '-le', 'require Moose; print $INC{q{Moose.pm}}';
 
 print 'Blead:     ';
 system $^X, @blib, '-le', 'require Moose; print $INC{q{Moose.pm}}';
 
 cmpthese timethese $count => {
     released => sub {
-        system( $^X,        '-e', "require $module") == 0 or die;
+        system( $^X, '-e', "require $module" ) == 0 or die;
     },
     blead => sub {
-        system( $^X, @blib, '-e', "require $module") == 0 or die;
+        system( $^X, @blib, '-e', "require $module" ) == 0 or die;
     },
 };