HEX
Server: Apache
System: Linux pdx1-shared-a1-38 6.6.104-grsec-jammy+ #3 SMP Tue Sep 16 00:28:11 UTC 2025 x86_64
User: mmickelson (3396398)
PHP: 8.1.31
Disabled: NONE
Upload Files
File: //usr/share/doc/libsoap-lite-perl/examples/compress.pl
#!/usr/bin/perl -w
#!d:\perl\bin\perl.exe

# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --

use SOAP::Lite;

$s = SOAP::Lite
  -> uri('http://localhost/My/Parameters')
  -> proxy('http://localhost/soap')
;

use Benchmark;

$s->echo; # ignore the first call

Benchmark::cmpthese(10, {
  'nocompress' => sub { $s->transport->options({}); $s->echo(1 x 100000) },
  'compress' => sub { $s->transport->options({compress_threshold => 10000}); $s->echo(1 x 100000) },
})