Select Code to Download

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

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

package objectA;

...
}

1;