r1261@llin: dpavlin | 2007-05-27 13:27:55 +0200

 profiling: add sub { dump( ) } for $log->debug

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@852 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Validate.pm b/lib/WebPAC/Validate.pm
index 30633be..a5e6b19 100644 (file)
--- a/lib/WebPAC/Validate.pm
+++ b/lib/WebPAC/Validate.pm
@@ -282,7 +282,7 @@ sub validate_rec {
                }
        }
 
-       $log->debug("_delimiters_templates = ", dump( $self->{_delimiters_templates} ) );
+       $log->debug("_delimiters_templates = ", sub { dump( $self->{_delimiters_templates} ) } );
 
        foreach my $must (sort keys %{ $self->{must_exist} }) {
                next if ($fields->{$must});
@@ -293,7 +293,7 @@ sub validate_rec {
        if ($errors) {
                $log->debug("errors: ", $self->report_error( $errors ) );
 
-               my $mfn = $rec->{'000'}->[0] || $log->logconfess("record ", dump( $rec ), " doesn't have MFN");
+               my $mfn = $rec->{'000'}->[0] || $log->logconfess("record ", sub { dump( $rec ) }, " doesn't have MFN");
                $self->{errors}->{$mfn} = $errors;
        }
 
@@ -331,7 +331,7 @@ sub reset {
                                $self->{_delimiters_templates}->{$f}->{$t};
                }
        }
-       $log->debug("_accumulated_delimiters_templates = ", dump( $self->{_accumulated_delimiter_templates} ));
+       $log->debug("_accumulated_delimiters_templates = ", sub { dump( $self->{_accumulated_delimiter_templates} ) } );
        delete ($self->{_delimiters_templates});
 }
 
@@ -393,18 +393,14 @@ sub report_error {
                                $accumulated ? "$accumulated\t$k" : $k
                        );
 
-                       $log->debug(
-                               ( $new_results          ? "new_results: " . dump($new_results) ." "     : '' ),
-                       );
+                       $log->debug( "new_results: ", sub { dump($new_results) } ) if ( $new_results );
 
                        push @$results, $new_results if ($new_results);
                        $dump = $new_dump if ($new_dump);
 
                }
 
-               $log->debug(
-                       ( $results              ? "results: " . dump($results) ." "     : '' ),
-               );
+               $log->debug( "results: ", sub { dump($results) } ) if ( $results );
 
                if ($#$results == 0) {
                        return ($results->[0], $dump);