projects
/
scpubgit/System-Introspector.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Groups probe tests
[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(@ARGV)->gather);