./hibye.pl
0.60

##</code><code>##

#!/usr/bin/perl -w

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

use SOAP::Transport::HTTP;

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

package Demo;

sub hi {
  return "hello, world";
}

sub bye {
  return "goodbye, cruel world";
}

sub languages {
  return ("Perl", "C", "sh");
}

##</code><code>##

#!/usr/bin/perl -w

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

use SOAP::Lite;

print $SOAP::Lite::VERSION . "\n";

print SOAP::Lite
        ->uri('http://localhost/cgi-bin/soap/Demo')
        ->proxy('http://localhost/cgi-bin/soap/hibye.cgi')
        ->hi()
        ->result;

print SOAP::Lite
        ->uri('http://localhost/cgi-bin/soap/Demo')
        ->proxy('http://localhost/cgi-bin/soap/hibye.cgi')
        ->bye()
        ->result;