1package My::OperationTest; 2 3=begin WSDL 4 5_IN in $string 6_FAULT My::Foo 7_RETURN $string 8_DOC bla bla 9 10=cut 11 12sub testGeneral {} 13 14=begin WSDL 15 16_IN in $string 17_OUT out $string 18_INOUT inout $string 19 20=cut 21 22sub testInOut {} 23 24=begin WSDL 25 26_IN in @string 27_RETURN @string 28 29=cut 30 31sub testArray {} 32 33=begin WSDL 34 35_IN in @string 36 37=cut 38 39sub testEmpty {} 40 41=begin WSDL 42 43_IN in @string 44_ONEWAY 45 46=cut 47 48sub testOneway {} 49 50=begin WSDL 51 52=cut 53 54sub testNoReturnNoParam {} 55 56sub testWithoutPod {} 57 581; 59