#!/usr/bin/perl

use objectA;

my %myhash = (
			'a.x' => 1,
			'b.y' => 2,
			'c.x' => 3,
			);

my $objA = objectA->new();
$objA->map_query( \%myhash );

print $_->name, ': ', $_->val, "\n" for $objA->parameter( 'a.x' );
print $_->name, ': ', $_->val, "\n" for $objA->parameter( 'b.y' );

return;

##</code><code>##

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;