sub new_from_parent { die "Should be overriden.\n" }

sub rebless {
    my $self = shift;
    my @possible_child_classes = @_;
    for my $child_class (@possible_child_classes) {
        # etc. using $self instead of $obj.