terser dumper output

[scpubgit/Clifton.git] / lib / App / Clifton / ConsoleService / Session.pm

diff --git a/lib/App/Clifton/ConsoleService/Session.pm b/lib/App/Clifton/ConsoleService/Session.pm
index 3a590e9..82fc1d4 100644 (file)
--- a/lib/App/Clifton/ConsoleService/Session.pm
+++ b/lib/App/Clifton/ConsoleService/Session.pm
@@ -57,7 +57,10 @@ sub handle_eval {
     @ret = $eval->eval($body); 1;
   } or ($code, @ret) = (ERROR => $@);
   $self->_send_response(
-    $code => do { local $Data::Dumper::Maxdepth = 1; Dumper @ret }
+    $code => ($code eq 'RESULT'
+                ? do { local $Data::Dumper::Maxdepth = 1; Dumper @ret }
+                : $ret[0]
+             )
   );
 }