X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FLXDebug.pm;h=e4e0cb272ec2d609bea6fb315691ef1e6447a92e;hb=56f7991d4910ae12c7d16aab025a2ab242ca5eeb;hp=62aacd93b55991e912170c6415d04908e29ee35c;hpb=8a40e3dd0f638557b8c666fe708ccbc1ac709c4e;p=kivitendo-erp.git diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm index 62aacd93b..e4e0cb272 100644 --- 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; @@ -168,6 +168,8 @@ 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); @@ -340,11 +342,11 @@ __END__ =head1 NAME -LXDebug - Lx-Office debugging facilities +LXDebug - kivitendo debugging facilities =head1 SYNOPSIS -This module provides functions for debugging Lx-Office. An instance is +This module provides functions for debugging kivitendo. An instance is always created as the global variable C<$::lxdebug> at the earliest possible moment. @@ -453,32 +455,6 @@ following would not trigger a change: # This does trigger: $::form->{some_hash} = { something => 'else' }; -=item C - -A boolean (C<1> or C<0>). If turned on then certain debug facilities -are available from the v1 menu. These include e.g. - -=over 6 - -=item * - -restarting the FastCGI process by forcefully exiting after the -request, - -=item * - -enabling and disabling function tracing, - -=item * - -enabling and disabling certain debug levels. - -=back - -Note that these are only useful if Lx-Office is running as a FastCGI -application because otherwise the changes would be lost when the -process exits in a normal CGI environment. - =item C A boolean (C<1> or C<0>). If turned on then certain temporary files