sub erster {
  my $self = shift;
  my $q = $self->query();
  # machwas
  return $self->zweiter_rm($q);
}

sub zweiter_rm {
  my $self = shift;
  my $q = shift || $self->query();
  # machwas
}