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 | |
72d4f529 |
10 | pp(use_module("System::Introspector::$intro")->new(@ARGV)->gather); |