#  In testpar.pl ...
...
print join ': ' , map $_->() , $objA->parameter( 'a.x' );
...


#  In A ...
package A;
...
sub parameter
{
  ...
  return
    ( \&parameter_name( $param )
    , \&parameter_value( $self->{ values }->{ $para } )
    ) ;
}
...