Beispiel Destruktoren erweitern um Subklasse von Subklasse

Damit man auch mal sieht, wie man eine Subklasse von einer Subklasse
erstellt wurde als Beispiel ein 'RacingHorse' hinzugefügt. Dieses ist
eine Ableitung von 'Horse' welches eine Ableitung von 'Animal' ist.
Siehe 'Perl - Objekte, Refernzen und Module' Kapitel 10.
Abschnitt: 'Klassenvariablen benutzen'
Erzeugte Objekte in Klassenvariable zwischenspeichern

Damit man zur Not auch über seine gesamten Objekte iterieren kann,
und diese evtl. quer über den gesamten Code verstreut sind, wird
nun jedesmal, wenn ein neues Objekt angelegt wird in der globalen
Klassenvariable '%REGISTRY' der Name des Objektes abgelegt.
Abgeschwächte Refernz implementieren

Damit das RaceHorse nicht zeitgleich mit allen anderen Tieren, sondern
ab dem Moment, wo es nicht mehr gebraucht wird, gelöscht wird, wird
eine "abgeschwächte" Refernz auf das Elternobjekt verwendet.
Dazu muss das Modul: 'WeakRef' installiert sein.
Uebung 1 von Kapitel 10 des Buches Perl - Objekte, Referenzen und
Module

Die Klasse RaceHorse wurde so modifiziert, dass die früheren Renner-
gebnisse aus enem DBM-Hash ausgelesen werden. Dafür wurden die Basis-
Klasse (Animal) und die Instanzmethode (RaceHorse->named) angepasst.