package OrangeSoap::Test;


=for interface
 [interface: pure]
=cut


=for interface
 str addthis(str thisstring);
=cut



sub addthis {
 my ($this, $thisstring);<br>

 return '***' . $thisstring . '***';<br>

}

##</code><code>##


<%@ 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');

}