| Classe :: DST Classe :: STD é um módulo Perl para suportar a criação de classes padrão "de fora". |
Baixe Agora |
Classe :: DST Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Damian Conway
- Site do editor:
- http://search.cpan.org/~dconway/
Classe :: DST Tag
Classe :: DST Descrição
Classe :: Std é um módulo Perl para suportar a criação de classes padrão "de dentro para fora". Classe :: STD é um módulo Perl para suportar a criação de classes padrão "de dentro". Use Classe :: DST; # Criar armazenamento para atributos de objetos ... Meu% Nome: Attr; My% Rank: Attr; My% Snum: Attr; meu% public_data: attr; # Lidar com a inicialização de objetos desta classe ... Sub Build {My ($ self, $ OBJ_ID, $ arg_ref) = @_; $ NAME {$ OBJ_ID} = Check_name ($ arg_ref -> {nome}); $ rank {$ obj_id} = check_rank ($ arg_ref -> {rank}); $ snum {$ obj_id} = _gen_uniq_serial_num (); } # Lidar com a limpeza de objetos desta classe ... Sub demolir {my ($ self, $ obj_id) = @_; _recycle_serial_num ($ snum {$ obj_id}); } # Lidar com chama de método desconhecido ... Sub autometethod {my ($ self, $ obj_id, @other_args) = @_; # Retorna quaisquer dados públicos ... se (m / a obter _ (. *) /) {# Nome do método passado em $ _ meu $ get_what = $ 1; retorno sub {return $ public_data {$ obj_id} {$ get_what}; }} Avisar "Não é possível ligar para $ método_name", Ref $ self, "Object"; Retorna; # A chamada é recusada por não retornar um sub Ref} Este módulo fornece ferramentas que ajudam a implementar a estrutura de classe "OBJECT" de dentro para fora de uma maneira conveniente e padrão. Requisitos: · Perl.
Classe :: DST Software Relacionado