Select Code to Download

my $obj = Class->new(...your args...);
my $subobj = Class::SubClass->new($obj->original_args);

my $obj = Class->new(...your args...);
my $subobj = Class::SubClass->clone_from_parent($obj);
...
  ...set up %args by calling methods on $obj to get info...
  return __PACKAGE__->new(\%args);
}