sma backtracking (smart will be later ;)

[scpubgit/DX.git] / lib / DX / TraceFormatter.pm

diff --git a/lib/DX/TraceFormatter.pm b/lib/DX/TraceFormatter.pm
index f23cc67..420ffef 100644 (file)
--- a/lib/DX/TraceFormatter.pm
+++ b/lib/DX/TraceFormatter.pm
@@ -28,8 +28,9 @@ sub format {
 sub _format {
   my ($self, $thing) = @_;
   my ($as, $data) = @{blessed($thing) ? $thing->for_deparse : $thing};
+  # return $self->${\"_format_as_${as}"}($data); if $WS eq "\n";
   local $WS = ' ';
-  my $spaced = $self->${\"_format_as_${as}"}($data);#
+  my $spaced = $self->${\"_format_as_${as}"}($data);
   if ($spaced =~ /\n/
       or (length($spaced)
            > ($self->max_width -