dev-gather.pl

   1 #!/usr/bin/env perl
   2 use strictures 1;
   3 use lib             qw( lib );
   4 use Data::Dump      qw( pp );
   5 use Module::Runtime qw( use_module );
   6
   7 my $intro = shift(@ARGV)
   8     or die "Probe argument required\n";
   9
  10 pp(use_module("System::Introspector::$intro")->new(@ARGV)->gather);