#!/usr/bin/perl
use strict; 
use warnings;
use XML::Compile::WSDL11;      
use XML::Compile::SOAP11;
use XML::Compile::Transport::SOAPHTTP;
use XML::Compile::Schema;
use Log::Report mode => 'DEBUG';
use Data::Dumper;
my $server		= 'uc:pw@ourhost';	
my %incidentfilter= ( condition=>{ name=>'severity',operator=>'EQ',value=>'CRITICAL' } );
my $incidentwsdl	= "IncidentBean.wsdl";
my $incidentAPI 	= XML::Compile::WSDL11->new( $incidentwsdl );
my $getIncidents 	= $incidentAPI->compileClient( operation=>'getIncidents', server=>$server );
my $incidentinfo	= $getIncidents->( \%incidentfilter );
warn Dumper %incidentfilter;
warn Dumper $incidentinfo;
# 	Tested with XML::Compile 2.13, XML::Compile::SOAP 2.11, XML::Compile::Cache 0.94, Log::Report 0.26