removed unrequired explicit 'list' data levels

[scpubgit/System-Introspector.git] / lib / System / Introspector / Probe / Puppet.pm

diff --git a/lib/System/Introspector/Probe/Puppet.pm b/lib/System/Introspector/Probe/Puppet.pm
index 811dea0..4c3fde5 100644 (file)
--- a/lib/System/Introspector/Probe/Puppet.pm
+++ b/lib/System/Introspector/Probe/Puppet.pm
@@ -29,11 +29,11 @@ sub _gather_resources {
     return transform_exceptions {
         my @lines = output_from_file $self->resources_file;
         chomp @lines;
-        return { list => [ map {
+        return [ map {
             m{^(\w+)\[(.*)\]$}
                 ? [$1, $2]
                 : [__error__ => $_];
-        } @lines ] };
+        } @lines ];
     };
 }
 
@@ -42,7 +42,7 @@ sub _gather_classes {
     return transform_exceptions {
         my @lines = output_from_file $self->classes_file;
         chomp @lines;
-        return { list => \@lines };
+        return \@lines;
     };
 }