added lines_from_command util

diff --git a/lib/System/Introspector/Util.pm b/lib/System/Introspector/Util.pm
index f2a7555..7be2fc1 100644 (file)
--- a/lib/System/Introspector/Util.pm
+++ b/lib/System/Introspector/Util.pm
@@ -7,9 +7,10 @@ use IPC::Run qw( run );
 our @EXPORT_OK = qw(
     handle_from_command
     handle_from_file
-    files_from_dir
     output_from_command
     output_from_file
+    lines_from_command
+    files_from_dir
     transform_exceptions
 );
 
@@ -50,6 +51,13 @@ sub output_from_command {
     return $out;
 }
 
+sub lines_from_command {
+    my ($command) = @_;
+    my $output = output_from_command $command;
+    chomp $output;
+    return split m{\n}, $output;
+}
+
 sub handle_from_command {
     my ($command) = @_;
     open my $pipe, '-|', $command