Funktion für unified diff zweier Objekte/Strings in Debugausgabe

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index 4e7790791ecfdc6fa0a89fe354414998325b32f5..397b179efdcda451a1b1f8255dc8f8dc53863f1b 100644 (file)
--- a/SL/LXDebug.pm
+++ b/SL/LXDebug.pm
@@ -21,7 +21,7 @@ use YAML;
 
 use strict;
 
 
 use strict;
 

-my $data_dumper_available;
+my ($data_dumper_available, $text_diff_available);

 
 our $global_level;
 our $watch_form;
 
 our $global_level;
 our $watch_form;


@@ -219,6 +219,24 @@ sub dump_sql_result {
   $self->message($level, $prefix . sprintf('(%d row%s)', scalar @{ $results }, scalar @{ $results } > 1 ? 's' : ''));
 }
 
   $self->message($level, $prefix . sprintf('(%d row%s)', scalar @{ $results }, scalar @{ $results } > 1 ? 's' : ''));
 }
 

+sub show_diff {
+  my ($self, $level, $item1, $item2, %params) = @_;
+
+  if (!$self->_load_text_diff) {
+    $self->warn("Perl module Text::Diff is not available");
+    return;
+  }
+
+  my @texts = map { ref $_ ? YAML::Dump($_) : $_ } ($item1, $item2);
+
+  $self->message($level, Text::Diff::diff(\$texts[0], \$texts[1], \%params));
+}
+
+sub _load_text_diff {
+  $text_diff_available = eval("use Text::Diff (); 1;") ? 1 : 0 unless defined $text_diff_available;
+  return $text_diff_available;
+}
+

 sub enable_sub_tracing {
   my ($self) = @_;
   $global_level |= TRACE;
 sub enable_sub_tracing {
   my ($self) = @_;
   $global_level |= TRACE;