Extend bench/loading-benchmark.pl

Usage: perl loading-benchmark.pl [count] [module]

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;
     },