TEXT_APPEAR

SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK Server: Jetty(6.1.6) Content-Length: 206 Content-Type: text/xml Client-Date: Wed, 11 Jun 2008 10:21:18 GMT Client-Peer: 127.0.0.1:7650 SOAPAction: "" ##

##

use SOAP::Lite + trace => 'debug';
my $svc;
my $resp; 
 
eval
{
$svc= SOAP::Lite
    ->service("http://localhost:8000/");
$resp = $svc->Test('TEXT_APPEAR');
}; 
die "Got Error: $@" if($@);

##

##

TEXT_APPEAR
 
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK
Server: Jetty(6.1.6)
Content-Length: 206
Content-Type: text/xml
Client-Date: Wed, 11 Jun 2008 10:21:18 GMT
Client-Peer: 127.0.0.1:7650
SOAPAction: ""

##

##

use SOAP::Lite + trace => 'debug';
my $svc;
my $resp; 
 
eval
{
 
$svc= SOAP::Lite
    ->service("http://localhost:8000") 
    ->proxy("http://localhost);
$resp = $svc->call(SOAP::Data->name('Test')
       ->attr ({'xmlns'=>'http://sth.sth.sth'})
       => "TEXT_APPEAR");
}; 
die "Got Error: $@" if($@);

##

##

 
TEXT_APPEAR

SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK
Server: Jetty(6.1.6)
Content-Length: 272
Content-Type: text/xml; charset=utf-8
Client-Date: Wed, 11 Jun 2008 10:29:25 GMT
Client-Peer: 127.0.0.1:7650