package SOAPServer;

use strict;
use warnings;

sub myfunction
{
	my $class = shift;

	my $self = {};
	
	bless ($self, $class);
	
	my $one = shift;
	my $two = shift;
	
	$self->{one} = $one;
	$self->{two} = $two;
	
	return $self;
}

1;