sub parameter {
   ...
   return map { NameValTuple->new( name => $_, val => $rv{$_} } keys(%rv);
}

##</code><code>##

sub parameter {
   ...
   return NameValTuple->new( name => $name, val => $val );
}

##</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;

	print "__ parameter para[$para]	\n";
	my $param = $para =~ m/^([^\.]*\.)(.*?)$/i ? $2 : $para;
	print "__ parameter param[$param]	- val[$self->{ values }->{ $para }]\n";
	
	return NameValTuple->new( $param, $self->{ values }->{ $para } );
}

package NameValTuple;

sub new {
		my $class	= shift;
        my $self	= {
        				_key	=> shift,
        				_val	=> shift || '',
        };
        bless $self, $class;
        print ">> NameValTuple new key[$self->{_key}] val[$self->{_val}]\n";
        return $self;
    }

sub name {
	my $self  = shift;
	return $self->{_key};
}
sub val {
	my $self  = shift;
	return $self->{_val};
}

1;