Changeset 40680

Timestamp:

Apr 10, 2019, 2:04:01 PM (7 years ago)

Author:

eugene

Message:

adding some commented-out debugging options

File:

• trunk/Nebulous/lib/Nebulous/Client.pm (modified) (2 diffs)

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -17 +17 @@
 use Nebulous::Util qw( :standard );
 use Params::Validate qw( validate validate_pos SCALAR UNDEF BOOLEAN );
-#use SOAP::Lite +trace => [qw( debug )];
 use Sys::Hostname;
 use SOAP::Lite;
+# use SOAP::Lite +trace => [ transport => sub { print $_[0]->as_string } ];
+# use SOAP::Lite +trace => [qw( debug )];
 use Time::HiRes qw( sleep );
 use URI;
@@ -88 +89 @@
 
     my $lite = SOAP::Lite->new(
-            proxy => $args{ 'proxy' },
-            uri   => $args{ 'uri' } || "urn:Nebulous/Server/SOAP",
+        proxy => $args{ 'proxy' },
+        uri   => $args{ 'uri' } || "urn:Nebulous/Server/SOAP",
+#       outputxml => 1,
+# uncomment the above to get a dump of the returned xml
     );