sub parent {
    my ( $self, $parent ) = @_;
    $self->{parent} = $parent if defined($parent);
    return $self->{parent};
}