exception handling and command pipe output utils

diff --git a/lib/System/Introspector/Util.pm b/lib/System/Introspector/Util.pm
new file mode 100644 (file)
index 0000000..f9c9d85
--- /dev/null
+++ b/lib/System/Introspector/Util.pm
@@ -0,0 +1,27 @@
+use strictures 1;
+
+package System::Introspector::Util;
+use Exporter 'import';
+
+our @EXPORT_OK = qw(
+    handle_from_command
+    transform_exceptions
+);
+
+sub transform_exceptions (&) {
+    my ($code) = @_;
+    local $@;
+    my $result = eval { $code->() };
+    return { error => "$@" }
+        if $@;
+    return $result;
+}
+
+sub handle_from_command {
+    my ($command) = @_;
+    open my $pipe, '-|', $command
+        or die "Unable to read from command '$command': $!\n";
+    return $pipe;
+}
+
+1;