From: Robert 'phaylon' Sedlacek Date: Thu, 30 Aug 2012 19:25:13 +0000 (+0000) Subject: Removed outdated during-development tool X-Git-Tag: v0.001_001~9 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8fa7fb51f7a87372eec56696a68f6ad614b86a16;p=scpubgit%2FSystem-Introspector.git Removed outdated during-development tool --- 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; -}