#!perl
package DemoService;
use strict;
use warnings;
use Moose;
use namespace::autoclean;

has 'size',is=>'rw',default=>20;

#Do it for all classes so Moose will create fast object creation, so application runs faster
__PACKAGE__->meta->make_immutable();
1;


package main;
use strict;
use warnings;
use SOAP::Transport::HTTP;
use Compress::Zlib;
use FindBin qw($RealBin); 
use lib "$RealBin";

$|=1;

my $httpSoapDaemon = SOAP::Transport::HTTP::Daemon->new(LocalAddr => 'localhost',Reuse => 1,LocalPort => 8081);

#Will be encrypted if message > 100
$httpSoapDaemon->options({compress_threshold => 500});
#Dispatch calls to particular class
#$httpSoapDaemon-> objects_by_reference(qw(DemoService));
$httpSoapDaemon->dispatch_to(qw(DemoService));

print "\n Server started. URL: ", $httpSoapDaemon->url();
#Daemon started here
$httpSoapDaemon->handle();


##</code><code>##

#!perl
use strict;
use warnings;
use SOAP::Lite;
use Data::Dumper;

my $result;
my $soapService = SOAP::Lite->new();

#Specify which class should be called for the service, i.e namespace
$soapService->uri('DemoService');
    
#specify service provider location, Initial timeout should be very minimal
$soapService->transport()->proxy('http://127.0.0.1:8081/',timeout=>600,keep_alive =>1);
    
#No need to have HTTP proxy
#transport returns underlaying LWP::UserAgent object
$soapService->transport()->no_proxy('127.0.0.1','localhost');

#Get Object, To call constructor use explicit call function, DO not use autodispatch.
my $obj = $soapService->call('new'=>())->result();
#Modify the Obj to Hash ref
$obj = SOAP::Data->value($obj);

print "\n OBJ-State:",Dumper($obj);
print "\n";
#Call instance methods
#Pass the obj as first argument so it will go as $self
$result = $soapService->call(size=>($obj,45));

unless ($result->fault) 
{ 
    print "\n Size is ::",$result->result(); # Method result
	print "\n New-OBJ-State:",Dumper($obj);
} 

#So far it is good. Call the size again to set another value
#This call fails because 'New-OBJ-State' is scrambled :(
#Got following error
# ERROR: soap:Server, Can't use string ("DemoService") as a HASH ref while "strict refs" in use at accessor DemoService::size (defined at soap-ser.pl line 8) line 3.

$result = $soapService->call(size=>($obj,20));
unless ($result->fault) 
{ 
    print "\n Size is ::",$result->result(); # Method result
	print "\n OBJ-State:",Dumper($obj);
} 
else
{
	print "\n ERROR: ", join ', ',
     $result->faultcode, 
      $result->faultstring, 
      $result->faultdetail;
}



##</code><code>##

E:\temp>perl soap-cli.pl

 OBJ-State:$VAR1 = bless( {
                 '_signature' => [],
                 '_value' => [
                               bless( {
                                        'size' => '20'
                                      }, 'DemoService' )
                             ],
                 '_attr' => {}
               }, 'SOAP::Data' );


 Size is ::45
 New-OBJ-State:$VAR1 = bless( {
                 '_name' => undef,
                 '_signature' => [
                                   'DemoService&#8735;DemoService'
                                 ],
                 '_value' => [
                               \bless( {
                                          '_signature' => [],
                                          '_value' => [
                                                        bless( {
                                                                 '_name' => 'size',
                                                                 '_signature' => [],
                                                                 '_value' => [
                                                                               '45'
                                                                             ],
                                                                 '_prefix' => '',
                                                                 '_attr' => {
                                                                              'xsi:type' => 'xsd:int',
                                                                              '{http://www.w3.org/2001/XMLSchema-instance}type' => '{http://
www.w3.org/2001/XMLSchema}int'
                                                                            }
                                                               }, 'SOAP::Data' )
                                                      ],
                                          '_attr' => {}
                                        }, 'SOAP::Data' )
                             ],
                 '_attr' => {}
               }, 'SOAP::Data' );

 ERROR: soap:Server, Can't use string ("DemoService") as a HASH ref while "strict refs" in use at accessor DemoService::size (defined at soa
p-ser.pl line 8) line 3.

E:\temp>