rvlahov has asked for the wisdom of the Perl Monks concerning the following question:
--------------------------------------------------------package OrangeSoap::Test; =for interface [interface: pure] =cut =for interface str addthis(str thisstring); =cut sub addthis { my ($this, $thisstring);<br> return '***' . $thisstring . '***';<br> }
------------------------------------------------------------<%@ WebService class="StringServer3" Language="perl" %> package StringServer3; #use namespace "OrangeSoap.Test"; =for interface [System.Web.Services.WebMethod] str Concat(str str1, str str2); [System.Web.Services.WebMethod] str Concat2(str str1, str str2); =cut sub Concat{ my ($this, $str1, $str2) = @_; #my $s1 = thisstring; return($str1 . $str2 . $s1); } sub Concat2{ my ($this, $str1, $str2) = @_; return($str1 . $str2 . 'method 2'); }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: .PerlNet .asmx
by dingus (Friar) on Dec 10, 2002 at 08:37 UTC | |
Re: .PerlNet .asmx
by tachyon (Chancellor) on Dec 10, 2002 at 15:36 UTC |