#!/usr/bin/perl --
#~ perltidy -csc -otr -opr -ce -nibc -i=2
#~ 2009-11-05-18:08:37

Main(@ARGV);
exit(0);

sub Main {

  use SOAP::Transport::HTTP;
  my $daemon = SOAP::Transport::HTTP::Daemon->new(
    LocalAddr => 'localhost',
    LocalPort => 10013,
    Reuse     => 1
  )->dispatch_to('Demo');

  print "Contact to SOAP server at ", $daemon->url, "\n";
  $daemon->handle;
} ## end sub Main

BEGIN {

  package Demo;
  use Data::Dumper;
  use vars qw(@ISA);
  @ISA = qw(SOAP::Server::Parameters);

  sub OrderInquiry {
    print "OrderInquiry called\n";

    my $self     = shift;
    my $envelope = pop;
    print Dumper( \@_ );
    print Dumper( $envelope->valueof('/Envelope/Body') );

    return "OrderInquiry order Created";
  } ## end sub OrderInquiry
  1;
} ## end BEGIN
__END__