1package TestSOAP::convert; 2use strict; 3use warnings; 4 5sub convert { 6 my ($self, %args) = @_; 7 my $mode = $args{mode}; 8 my $string = $args{string}; 9 my $response = ($mode eq 'uc') ? uc($string) : lc($string); 10 return {results => $response}; 11} 12 131; 14