# definiere neue Routine/Methode im Namensraum DateTime
sub DateTime::set_business_days {
  # uebernehme das Objekt, ueber das wir aufgerufen wurden (sogar ueberfluessig hier)
  my $self = shift;
  # setze den Hash der Geschaeftstage zurueck, damit keine Altlasten uebrig sind
  %business_days = ();
  # setze den Hash neu; fuer jedes gegebene Argument (die stehen in @_) wird im
  # Hash %business_days ein neues Schlüssel-Wert-Paar erzeugt; Nummer_Wochentag => 1
  $business_days{$_} = 1          for @_;
}