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