From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 1 Jun 2007 07:39:05 +0000 (+0000)
Subject: Funktion zum Dumpen von Objekten via YAML hinzugefügt. Ist manchmal besser lesbar... 
X-Git-Tag: release-2.4.3^2~221
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=325974c298dfcc123284fe5ec24ab1724723a87a;p=kivitendo-erp.git

Funktion zum Dumpen von Objekten via YAML hinzugefügt. Ist manchmal besser lesbar als die Ausgabe von Data::Dumper;
---

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index 6da1a7272..cbb32f9cd 100644
--- a/SL/LXDebug.pm
+++ b/SL/LXDebug.pm
@@ -14,6 +14,8 @@ use constant STDERR_TARGET => 1;
 
 use POSIX qw(strftime);
 
+use YAML;
+
 my $data_dumper_available;
 
 our $global_level;
@@ -133,6 +135,12 @@ sub dump {
   }
 }
 
+sub dump_yaml {
+  my ($self, $level, $name, $variable) = @_;
+
+  $self->message($level, "dumping ${name}:\n" . YAML::Dump($variable));
+}
+
 sub enable_sub_tracing {
   my ($self) = @_;
   $self->{level} | TRACE;