sub insert{
  my $self = shift;
  $self->{ANZ} = shift; # zugriff interna, ok
  my $dbo = Shop::Warenkorb->new; # inherit from Shop
  $dbo->insert; # keine Parameter
}