#!/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;
use SOAP::Lite;

Main( @ARGV );
exit( 0 );

sub Main {
    my $soap = SOAP::Lite->uri( '/Demo' )->proxy( 'http://localhost:10013/' );
    $soap->transport->add_handler( "request_send",  \&pp_dump );
    $soap->transport->add_handler( "response_done", \&pp_dump );

    $soap->OrderInquiry( SOAP::Data->name( vorname => 'physi' ) );

    my $som = $soap->die_with_fault( SOAP::Data->name( vorname => 'physi' ) );
    for my $method ( qw/  faultcode faultstring faultdetail faultactor / ) {
        printf "%-20s = %s\n", $method, $som->$method;
    }
} ## end sub Main

sub pp_twig {
    use XML::Twig;
    open my( $fh ), '>', \my $str;
    no warnings 'newline';

#~     XML::Twig->new(qw! pretty_print record !)->xparse(@_)->print( $fh );
    XML::Twig->new( qw! pretty_print record ! )->parse( @_ )->print( $fh );
    $str =~ s/ xmlns:/\n    xmlns:/g;
    return $str;
} ## end sub pp_twig

sub pp_dump {
    my $content = $_[0]->content( '' );
    $_[0]->content( pp_twig( $content ) );
    print $_[0]->as_string, "\n";
    return;
} ## end sub pp_dump