package objectA;

sub new {
		my $class = shift;
        my $self  = {};
        bless $self, $class;
        return $self;
    }

sub map_query {

	my $self = shift;
	my $hash = shift;
	map { $self->{ values }->{ $_ } = $$hash{ $_ }; } keys %{ $hash };
}
    
sub parameter {
	my $self = shift;
	my $para = shift;
	
	my $param = $para =~ m/^([^\.]*\.)(.*?)$/i ? $2 : $para;
	
#	return { sub name{ $param; }, sub value{ $self->{ values }->{ $para } || ''; } };
	my $name = \&parameter_name( $param );
	my $val  = \&parameter_value( $self->{ values }->{ $para } );
	return { $name, $val };
}

sub parameter_name {
	my $param  = shift;
	return $param;
}
sub parameter_value {
	my $parval  = shift;
	return $parval || '';
}

1;