# Parent
sub get_child_id {

  my $self=shift;
  my $child=shift;
  # Find the index of the child. Left as exercise for the reader (read: I'm too lazy :) ).
  return $child_index;
}