Select Code to Download

package HashBasedObject;
sub new {
...
  return {%$self};
}
1;

package ArrayBasedObject;
sub new {
...
  return [@$self];
}
1;