| Ai :: FreeHAL :: Class Supporto per la creazione di classi standard "interne" |
Scarica ora |
Ai :: FreeHAL :: Class Classifica e riepilogo
- Licenza:
- Perl Artistic License
- Nome editore:
- Tobias Schulz
- Sito web dell'editore:
- http://search.cpan.org/~tschulz/
Ai :: FreeHAL :: Class Tag
Ai :: FreeHAL :: Class Descrizione
Supporto per la creazione di classi standard "interne" AI :: FreeHAL :: Class è un modulo perl che offre supporto per la creazione di classi standard "interne ".synopsis Package MyClass; Usa AI :: FreeHAL :: Class; # Crea archiviazione per gli attributi dell'oggetto ... il mio nome%: ATT; My% rank: atz; My% Snum: atz; My% Public_Data: atz; # Maniglia l'inizializzazione di oggetti di questa classe ... sub build {my ($ sé, $ obj_id, $ arg_ref) = @_; $ name {$ obj_id} = Check_name ($ arg_ref -> {name}); $ rank {$ obj_id} = check_rank ($ arg_ref -> {rank}); $ SNUM {$BJ_ID} = _GEN_UNIQ_SERIAL_NUM (); } # Maniglia Pulizia di oggetti di questa classe ... Sub Demolish {My ($ sé, $ obj_id) = @_; _recycle_serial_num ($ snum {$ obj_id}); } # Maniglia Metodo sconosciuto Chiamate ... Sub AutomeThod {My ($ sé, $ obj_id, @other_args) = @_; # Restituisci qualsiasi dato pubblico ... IF (m / A get _ (. *) /) {# Nome del metodo Passati in $ _ My $ Get_What = $ 1; restituisce sub {return $ Public_Data {$ obj_id} {$ Get_What}; }} warn "non può chiamare $ metodo_name on", rifutare $ sé, "oggetto"; Restituzione; # La chiamata viene rifiutata non restituendo un sottocer ref} Questo modulo fornisce strumenti che aiutano a implementare la struttura della classe "Inside Out Object" in modo comodo e standard.Porzioni del seguente codice e documentazione da "Best Practical Perl" di copyright ( c) 2005 da O'Reilly Media, Inc. e ristampato con il permesso. Requisiti: · Perl.
Ai :: FreeHAL :: Class Software correlato