#!/usr/bin/perl

use strict;
use warnings;

use SOAP::Lite;

SOAP::Lite->import( 'trace' );

my $base_url = 'https://www.sandbox.doba.com/soap/wsdl/ApiPartner';

my $product_url  = "${base_url}Search.wsdl";
my $order_url    = "${base_url}Order.wsdl";
my $retailer_url = "${base_url}Retailer.wsdl";

#my $product  = SOAP::Lite->service( $product_url );
#my $order    = SOAP::Lite->service( $order_url );
my $retailer = SOAP::Lite->new->service( $retailer_url );

my $data = \SOAP::Data->name(
  \SOAP::Data->name( 'authentication', \SOAP::Data->value(
    SOAP::Data->name( 'username', 'myusername' ),
    SOAP::Data->name( 'password', 'mypassword' ),
  ),

  \SOAP::Data->name( 'retailer_id', '123534' ),

));

#my $data = \SOAP::Data->name(
#	'authentication' => {
#		'username' => 'myusername',
#		'password' => 'mypassword',
#  },
#
#  'retailer_id' => '123565',
#
#);

my $r = $retailer->hasPartnerPermission( $data );

print '?';