#!/usr/bin/perl

use 5.018;
use strict;
use warnings;

use Data::Dumper qw{Dumper};
use XML::Compile::SOAP11;

use XML::Compile::WSDL11;
use XML::Compile::Transport::SOAPHTTP;
use XML::CompileX::Schema::Loader;


my $WsdlUrl;


$WsdlUrl = "http://abcdemes04/CamstarExternal/camstar.svc";


my $wsdl   = XML::Compile::WSDL11->new();
my $loader = XML::CompileX::Schema::Loader->new(
    wsdl => $wsdl,
    uris => $WsdlUrl,
);

print Dumper(\$wsdl);

print ">>>>---------------------->>>>\n";
$loader->collect_imports();
print Dumper(\$loader);

print "<<<<----------------------<<<<\n";
$wsdl->compileCalls();

print "\n\n";
exit(0);