1#!perl -w 2#!d:\perl\bin\perl.exe 3 4# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko -- 5 6use SOAP::Lite +autodispatch => 7 uri => 'http://www.soaplite.com/My/Examples', 8 proxy => 'http://localhost/', 9# proxy => 'http://localhost/cgi-bin/soap.cgi', # local CGI server 10# proxy => 'http://localhost/', # local daemon server 11# proxy => 'http://localhost/soap', # local mod_perl server 12# proxy => 'https://localhost/soap', # local mod_perl SECURE server 13# proxy => 'tcp://localhost:82', # local tcp server 14 on_fault => sub { my($soap, $res) = @_; 15 die ref $res ? $res->faultdetail : $soap->transport->status, "\n"; 16 } 17; 18 19print getStateName(1), "\n\n"; 20print getStateNames(12,24,26,13), "\n\n"; 21print getStateList([11,12,13,42])->[0], "\n\n"; 22print getStateStruct({item1 => 10, item2 => 4})->{item2}, "\n\n"; 23