X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=dev-gather.pl;fp=dev-gather.pl;h=0000000000000000000000000000000000000000;hb=8fa7fb51f7a87372eec56696a68f6ad614b86a16;hp=f7116d900b97b04425d585d154116a84adec110d;hpb=d51f9cc97567e2ba5ee4062784e791a767be75f7;p=scpubgit%2FSystem-Introspector.git

diff --git a/dev-gather.pl b/dev-gather.pl
deleted file mode 100755
index f7116d9..0000000
--- a/dev-gather.pl
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/usr/bin/env perl
-use strictures 1;
-use lib             qw( lib );
-use Data::Dump      qw( pp );
-use Module::Runtime qw( use_module );
-use Getopt::Long;
-use Data::YAML::Writer;
-
-GetOptions(
-    'yaml'  => \(my $opt_yaml),
-);
-
-my $intro = shift(@ARGV)
-    or die "Probe argument required\n";
-
-my $data = use_module("System::Introspector::$intro")->new(@ARGV)->gather;
-if ($opt_yaml) {
-    my $writer = Data::YAML::Writer->new;
-    my $output = '';
-    $writer->write($data, \$output);
-    print $output;
-}
-else {
-    pp $data;
-}