1#!perl -w 2#!d:\perl\bin\perl.exe 3 4# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko -- 5 6use SOAP::Transport::IO; 7 8SOAP::Transport::IO::Server 9 10 # you may specify as parameters for new(): 11 # -> new( in => 'in_file_name' [, out => 'out_file_name'] ) 12 # -> new( in => IN_HANDLE [, out => OUT_HANDLE] ) 13 # -> new( in => *IN_HANDLE [, out => *OUT_HANDLE] ) 14 # -> new( in => \*IN_HANDLE [, out => \*OUT_HANDLE] ) 15 16 # -- OR -- 17 # any combinations 18 # -> new( in => *STDIN, out => 'out_file_name' ) 19 # -> new( in => 'in_file_name', => \*OUT_HANDLE ) 20 21 # -- OR -- 22 # use in() and/or out() methods 23 # -> in( *STDIN ) -> out( *STDOUT ) 24 25 # -- OR -- 26 # use default (when nothing specified): 27 # in => *STDIN, out => *STDOUT 28 29 # don't forget, if you want to accept parameters from command line 30 # \*HANDLER will be understood literally, so this syntax won't work 31 # and server will complain 32 33 -> new(@ARGV) 34 35 # specify path to My/Examples.pm here 36 -> dispatch_to('/Your/Path/To/Deployed/Modules', 'Module::Name', 'Module::method') 37 -> handle 38; 39