accept constructor arguments

diff --git a/dev-gather.pl b/dev-gather.pl
index 0469777..3c9657d 100755 (executable)
--- a/dev-gather.pl
+++ b/dev-gather.pl
@@ -7,4 +7,4 @@ use Module::Runtime qw( use_module );
 my $intro = shift(@ARGV)
     or die "Probe argument required\n";
 
-pp(use_module("System::Introspector::$intro")->new->gather);
+pp(use_module("System::Introspector::$intro")->new(@ARGV)->gather);