Extend bench/loading-benchmark.pl

[gitmo/Class-MOP.git] / bench / loading-benchmark.pl

diff --git a/bench/loading-benchmark.pl b/bench/loading-benchmark.pl
index 0800739..2994f6c 100755 (executable)
--- a/bench/loading-benchmark.pl
+++ b/bench/loading-benchmark.pl
@@ -2,9 +2,11 @@
 use strict;
 use Benchmark qw(:all);
 
-my $module = 'Moose';
+my($count, $module) = @ARGV;
+$count  ||= 10;
+$module ||= 'Moose';
 
-cmpthese timethese 10 => {
+cmpthese timethese $count => {
     released => sub {
         system( $^X, '-e', "require $module" ) == 0 or die;
     },