From: Robert 'phaylon' Sedlacek <r.sedlacek@shadowcat.co.uk>
Date: Tue, 1 May 2012 19:53:23 +0000 (+0000)
Subject: added dev-only script to test system probes
X-Git-Tag: v0.001_001~140
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=90d22dbea42652755cf9950e3fe4d7afa67174b5;p=scpubgit%2FSystem-Introspector.git

added dev-only script to test system probes
---

diff --git a/dev-gather.pl b/dev-gather.pl
new file mode 100755
index 0000000..0469777
--- /dev/null
+++ b/dev-gather.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+use strictures 1;
+use lib             qw( lib );
+use Data::Dump      qw( pp );
+use Module::Runtime qw( use_module );
+
+my $intro = shift(@ARGV)
+    or die "Probe argument required\n";
+
+pp(use_module("System::Introspector::$intro")->new->gather);