r1322@llin: dpavlin | 2007-09-03 16:44:01 +0200

[webpac2] / lib / WebPAC / Output / EstraierNative.pm

diff --git a/lib/WebPAC/Output/EstraierNative.pm b/lib/WebPAC/Output/EstraierNative.pm
index 9be62e3..bbd2154 100644 (file)
--- a/lib/WebPAC/Output/EstraierNative.pm
+++ b/lib/WebPAC/Output/EstraierNative.pm
@@ -7,7 +7,7 @@ use base qw/WebPAC::Common/;
 
 use Estraier;
 use Encode qw/from_to/;
-use Data::Dumper;
+use Data::Dump;
 use LWP;
 use URI::Escape;
 use List::Util qw/first/;
@@ -82,7 +82,7 @@ sub new {
 
        my $log = $self->_get_logger;
 
-       #$log->debug("self: ", sub { Dumper($self) });
+       #$log->debug("self: ", sub { dump($self) });
 
        foreach my $p (qw/path database/) {
                $log->logdie("need $p") unless ($self->{$p});
@@ -166,7 +166,7 @@ sub add {
        $doc->add_hidden_text('_database:' . $database);
        $doc->add_attr('_type', $type );
 
-       $log->debug("ds = ", sub { Dumper($args->{'ds'}) } );
+       $log->debug("ds = ", sub { dump($args->{'ds'}) } );
 
        # filter all tags which have type defined
        my @tags = grep {
@@ -179,7 +179,7 @@ sub add {
 
        foreach my $tag (@tags) {
 
-               $log->debug("$tag :: $type == ",Dumper( $args->{'ds'}->{$tag}->{$type} ) );
+               $log->debug("$tag :: $type == ",dump( $args->{'ds'}->{$tag}->{$type} ) );
 
                my $vals = join(" ", @{ $args->{'ds'}->{$tag}->{$type} });