#!/usr/bin/perl --
##
## 2014-07-03-00:50:25
##
##
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if " -otr -opr -ce -nibc -i=4 -pt=0   "-nsak=*"
#!/usr/bin/perl --
use strict;
use warnings;

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

    sub die_with_fault {
        my $fault =
          SOAP::Fault->faultcode( 'Server.Custom' )    # will be qualified
          ->faultstring( 'Died in server method' )
          ->faultdetail( bless { code => 1 } => 'BadError' )
          ->faultactor( 'http://www.soaplite.com/custom' );
        print Dumper( $fault );
        die $fault;
    } ## end sub die_with_fault
    1;
} ## end BEGIN
__END__