
<#!/usr/bin/env perl
use strict;
use warnings;

use 5.010;

use LWP::UserAgent;
use SOAP::Lite;

use LWP::Debug; LWP::Debug::level('+'); SOAP::Lite->import(+trace => 'all');

my $client = SOAP::Lite->proxy($proxy)
    ->ns($namespace, 'foo')  # I'm not sure I understand this.
    ->uri($uri)
    ->on_action(sub { sprintf '%s', $_[0] })
    ->on_fault(sub {
       my($soap, $result) = @_;
       die ref $result ?
        "Fault Code: " . $result->faultcode . "\n" 
            .  "Fault String: " . $result->faultstring . "\n"
        : $soap->transport->status, "\n";
     });

my $params = { foo => 'bar', biz => 'baz'};

#my $data = SOAP::Data->name($params);
#my $serial = $client->serializer;
#my $xml = $serial->envelope($data);
#print Dumper $xml;

#my $result = $client->my_api_method($params);
my $result = $client->call('my_api_method' => $params);