[scpubgit/System-Introspector.git] / dev-gather.pl

#!/usr/bin/env perl
use strictures 1;
use lib             qw( lib );
use Data::Dump      qw( pp );
use Module::Runtime qw( use_module );

my $intro = shift(@ARGV)
    or die "Probe argument required\n";

pp(use_module("System::Introspector::$intro")->new->gather);
Commit	Line	Data
90d22dbe	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->gather);