projects
/
kivitendo-erp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
aff7b60
)
LXDebug->dump: Optionen an Data::Dumper übergeben können
author
Moritz Bunkus
<m.bunkus@linet-services.de>
Thu, 28 Feb 2013 09:50:25 +0000
(10:50 +0100)
committer
Moritz Bunkus
<m.bunkus@linet-services.de>
Fri, 1 Mar 2013 09:41:23 +0000
(10:41 +0100)
SL/LXDebug.pm
patch
|
blob
|
history
diff --git
a/SL/LXDebug.pm
b/SL/LXDebug.pm
index
1a0a365
..
e4e0cb2
100644
(file)
--- a/
SL/LXDebug.pm
+++ b/
SL/LXDebug.pm
@@
-157,7
+157,7
@@
sub warn {
}
sub dump {
- my ($self, $level, $name, $variable) = @_;
+ my ($self, $level, $name, $variable
, %options
) = @_;
if ($data_dumper_available) {
my $password;
@@
-169,6
+169,7
@@
sub dump {
my $dumper = Data::Dumper->new([$variable]);
$dumper->Sortkeys(1);
$dumper->Indent(2);
+ $dumper->$_($options{$_}) for keys %options;
$self->message($level, "dumping ${name}:\n" . $dumper->Dump());
$variable->{password} = $password if (defined $password);