view release on metacpan or  search on metacpan

WSDLTest.pm  view on Meta::CPAN

# WSDLTest - A class to test WSDL::Generator
package WSDLTest;

# new($param)
#
#	$param = { param1 => $something,
#	           param2 => $somethingelse,
#	         };
#	Returns a SoapTest object
#
sub new {
	my $class = shift;
	my $param = shift;
	my $self = { 'param1' => $param->{param1},
	             'param2' => $param->{param2} };
	return bless $self => $class;
}


# test1($msg)
#
#	Returns [ [$msg,1,2,3], [4,5], [6,7] ]
#
sub test1 {
		my ($self, $msg) = @_;
        return [ [$msg,1,2,3], [4,5], [6,7] ];
}

# test2($msg)
#
#	Returns { param1  => $something,
#	          param2  => $somethingelse,
#	          message => $msg
#	         };
#
sub test2 {
	my $self = shift;
	my $string = shift;
	return { 'param1'  => $self->{param1},
             'param2'  => $self->{param2},
             'message' => $string };
}


1;