| AI :: Freehal :: Klasse Unterstützung für die Erstellung von Standard-"Inn-Out" -Klätern |
Jetzt downloaden |
AI :: Freehal :: Klasse Ranking & Zusammenfassung
- Lizenz:
- Perl Artistic License
- Name des Herausgebers:
- Tobias Schulz
- Website des Verlags:
- http://search.cpan.org/~tschulz/
AI :: Freehal :: Klasse Stichworte
AI :: Freehal :: Klasse Beschreibung
Unterstützung für die Erstellung von Standard-"Inn-Out" -Klätern AI :: FreeHAL :: Klasse ist ein Perl-Modul, das Unterstützung für das Erstellen von Standard-"Inn-Out-Klassen" anbietet.Synopsis-Paket MyClass; Verwenden Sie AI :: FreeHal :: Klasse; # Speicherung für Objektattribute erstellen ... MY% Name: Attr; Mein% Rang: Attr; meine% Snum: Attr; mein% public_data: attr; # Umgang mit Initialisierung von Objekten dieser Klasse ... Sub Build {My ($ self, $ obj_id, $ arg_ref) = @_; $ Name {$ obj_id} = check_name ($ arg_ref -> {Name}); $ Rang {$ obj_id} = check_rank ($ arg_ref -> {Rang}); $ SNUM {$ obj_id} = _Gen_uniq_serial_num (); } # Griff Cleanup von Objekten dieser Klasse ... sub demolish {My ($ self, $ obj_id) = @_; _Recycle_serial_num ($ SNUM {$ obj_id}); } # Griff unbekannter Methodenaufrufe ... sub automethod {mein ($ self, $ obj_id, @other_args) = @_; # Rendieren Sie alle öffentlichen Daten ... Wenn (m / a Get _ (. *) /) {# Methodenname in $ _ my $ get_what = $ 1; sub {return $ public_data {$ obj_id} {$ get_what}; }} warnen "kann nicht $ method_name on", ref $ self, "objekt"; Rückkehr; # Der Anruf wird abgelehnt, indem kein Sub-REF} zurückgegeben wird. c) 2005 von O'Reilly Media, Inc. und mit Erlaubnis nachgedruckt. Anforderungen: · Perl.
AI :: Freehal :: Klasse Zugehörige Software