view release on metacpan or  search on metacpan

examples/basic/auth_client.pl  view on Meta::CPAN

             options => {compress_threshold => 10000},
             );

my $service = $soap
    -> call(new => 0)
    -> result;

my $credentials = retrieve($opt_authfile);

# Convert into the Header
my $authInfo = SOAP::Header->name(authInfo => $credentials);

print "Header:  ", Dumper($authInfo), "\n";

# Call your custom authenticated routines...
my $result = $soap->protected($service, $authInfo, 'foobar');

if ($result->fault) {
    print join ', ',
    $result->faultcode,
    $result->faultstring;

examples/dbi/auth_client.pl  view on Meta::CPAN

             options => {compress_threshold => 10000},
             );

my $service = $soap
    -> call(new => 0)
    -> result;

my $credentials = retrieve($opt_authfile);

# Convert into the Header
my $authInfo = SOAP::Header->name(authInfo => $credentials);

print "Header:  ", Dumper($authInfo), "\n";

# Call your custom authenticated routines...
my $result = $soap->protected($service, $authInfo, 'foobar');

if ($result->fault) {
    print join ', ',
    $result->faultcode,
    $result->faultstring;