projects
/
scpubgit/System-Introspector.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
0469777002de20228df29632d2d3c5616d416326
[scpubgit/System-Introspector.git]
/
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->gather);