[Catalyst-commits] r7815 - Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller

[drew at dev.catalyst.perl.org]

Author: drew
Date: 2008-05-27 11:51:03 +0100 (Tue, 27 May 2008)
New Revision: 7815

Modified:
   Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm
Log:
Improved debug output. Only stringify envelop once.

Modified: Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm
===================================================================
--- Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm	2008-05-27 09:14:05 UTC (rev 7814)
+++ Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm	2008-05-27 10:51:03 UTC (rev 7815)
@@ -206,7 +206,7 @@
                   ->{part};
                 for (@{$input_parts}) {
                     my $type = $_->{type} ? $_->{type} : $_->{element};
-                    $c->log->debug("SOAP: @{[$operation->name]} input part $_->{name}, type $type");
+                    $c->log->debug("SOAP: @{[$operation->name]} input part: $_->{name}, type: $type, args:[" . join( ', ', map { "$_ => $reader_opts->{$_}" } keys %$reader_opts)."]\n");
                     $_->{compiled_reader} = $self->wsdlobj->schemas->compile
                       (READER => $type,
                        %$reader_opts);
@@ -232,9 +232,9 @@
                   ->{part};
                 for (@{$output_parts}) {
                     my $type = $_->{type} ? $_->{type} : $_->{element};
-                    $c->log->debug("SOAP: @{[$operation->name]} out part $_->{name}, type $type");
+                    $c->log->debug("SOAP: @{[$operation->name]} output part: $_->{name}, type: $type, args:[" . join( ', ', map { "$_ => $writer_opts->{$_}" } keys %$writer_opts)."]\n");
                     $_->{compiled_writer} = $self->wsdlobj->schemas->compile
-                      (WRITER => $_->{type} ? $_->{type} : $_->{element},
+                      (WRITER => $type,
                        elements_qualified => 'ALL',
                        %$writer_opts);
                 }
@@ -352,9 +352,10 @@
             }
         }
 
-        $c->log->debug("Outgoing XML: ".$envelope->toString());
+        my $out = $envelope->toString();
+        $c->log->debug("Outgoing XML: ".$out);
         $c->res->content_type('text/xml');
-        $c->res->body($envelope->toString());
+        $c->res->body($out);
     }