sub set_parent {
    my ( $self, $parent ) = ( $_[0], $_[1] );
    $parent[$$self] = $parent;
    return $self;
}

sub get_parent {
    my $self = $_[0];    
    return $parent[$$self];
}