in reply to Re: SOAP Modules (OO or not?)
in thread SOAP Modules (OO or not?)
Here's a simple client:#!/usr/bin/perl use SOAP::Transport::HTTP; SOAP::Transport::HTTP::CGI->dispatch_to('Object')->handle; package Object; sub new { my $class = shift; $class = ref($class) || $class; return bless { '_cache' => [] }, $class; } sub set { my ( $self, $arg ) = @_; $self->{'_field'} = $arg; push @{ $self->{'_cache'} }, $arg; } sub get { shift->{'_field'} } sub all { shift->{'_cache' } }
And sure enough, it prints:#!/usr/bin/perl use strict; use warnings; use SOAP::Lite +autodispatch => uri => 'http://www.perlmonks.org/Object', proxy => 'http://localhost/cgi-bin/soap.pl'; my $obj = Object->new(); for ( qw'So how is it possible that it stores and returns these? ???' +) { $obj->set( $_ ); print $obj->get, "\n"; } print join ' ', @{ $obj->all };
I'm not quite sure how SOAP::Lite does this - some sort of session? And not even under mod_perl or anything, frankly I don't quite get it...So how is it possible that it stores and returns these? ??? So how is it possible that it stores and returns these? ???
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: SOAP Modules (OO or not?)
by perrin (Chancellor) on Jul 30, 2007 at 13:22 UTC |