sub parents {
  my $self = shift;
  push @{$self->{parents}}, @_ if @_;
  return @{$self->{parents}};
}