Select Code to Download

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

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

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