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