-textvariable =>$mockOb->search

sub search{
	my $self = shift();
	if(@_) {
		$self->{search} = shift();
		$self->{search} =~ s/^\s+|\s+$//g;
	}
	return $self->{search};
}

##</code><code>##

-textvariable =>$mockOb->searchRef

sub searchRef{
	my $self = shift();
	
	if(@_) {
		$self->{search} = shift();
		$self->{search} =~ s/^\s+|\s+$//g;
	}
	
	return \$self->{handelspartnerSuche};
}