4 use Data::Dump qw( pp );
5 use Module::Runtime qw( use_module );
7 use Data::YAML::Writer;
10 'yaml' => \(my $opt_yaml),
13 my $intro = shift(@ARGV)
14 or die "Probe argument required\n";
16 my $data = use_module("System::Introspector::$intro")->new(@ARGV)->gather;
18 my $writer = Data::YAML::Writer->new;
20 $writer->write($data, \$output);