<slide title="Simple SOAP Server">

<example type="text" title="SOAP::Lite Server" fontsize='1.4em'>
<![CDATA[
#!perl -w

use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI->
	dispatch_to('Demo')->handle;

package Demo;

sub hi { return "hello, world"; }

sub bye { 
    return  SOAP::Data->name('byeResult')
	    ->value('goodbye, cruel world')
	    ->type('string')
	    ->uri('http://soapinterop.org/xsd');
}

]]>
</example>



<example type="text" title="SOAP::Lite Client" fontsize='1.4em'>
<![CDATA[
#!perl -w

use SOAP::Lite;

print SOAP::Lite
    ->uri('http://www.soaplite.com/Demo')
    ->proxy('http://localhost/hibye.cgi')
    ->hi()
    ->result;
]]>
</example>


</slide>
