###############
sub set_param {
###############

	my $self = shift;
	my ($name, $value) = @_;

    $self->{$name} = $value;

    return;
}


###############
sub get_param {
###############

	my $self = shift;
	my ($name) = @_;

    return $self->{$name} || '';
}