| Objeto :: Insideout. Objeto :: Insideout é um módulo abrangente de suporte de objeto por dentro. |
Baixe Agora |
Objeto :: Insideout. Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Jerry D. Hedden
- Site do editor:
- http://search.cpan.org/~jdhedden/
Objeto :: Insideout. Tag
Objeto :: Insideout. Descrição
Objeto :: Insideout é um módulo abrangente de suporte de objeto por dentro. Objeto :: Insideout é um conjunto abrangente de suporte de objetos de fora do objeto.Synopsis pacote minha :: Classe; {usar objeto :: de dentro; # Numeric Field # With Combined Get + Set Accessor My @data: Field: Digite (numérico): Accessor (dados); # Leva 'entrada' (ou 'entrada', etc.) como um parâmetro obrigatório para -> novo () my% init_args: initargs = ('entrada' => {'regex' => qr / ^ entrada $ / ^ 'Obrigatório' => 1, 'tipo' => 'numérico',},); # Lidar com args específicos de classe como parte de -> New () subit init: init {my ($ self, $ args) = @_; # Coloque o parâmetro 'Entrada' em 'Data' $ Self-> set (@data, $ args -> {'entrada'}); }} pacote minha :: Class :: Sub; {Usar objeto :: Insideout QW (My :: Class); # List List # com Standard 'get_x' e 'set_x' acessores # Leva 'Informações' como um parâmetro de lista opcional para -> Novo () # valor adicionado automaticamente ao Array @info # padrões para Meu @info: Campo: Tipo (lista): padrão (info): arg ('nome' => 'info', 'padrão' => 'vazio'); } pacote foo; {usar objeto :: de dentro; # CAMPO CONTENDO MEUS :: OBJETAS DE CLASSE # COM ACESSOR COMBINADO # Plus Automatic Parameter Processing On Object Creation Meu @foo: Type (My :: Class): Tudo (foo); } pacote principal; Meu $ obj = My :: Classe :: Sub-> Novo ('Entrada' => 69); Minha $ informação = $ obj-> get_info (); # Meus $ Data = $ obj-> dados (); # 69 $ obj-> dados (42); $ data = $ obj-> dados (); # 42 $ obj = minha :: Classe :: Sub-> Novo ('Informações' => 'Ajuda', 'Entrada' => 86); $ data = $ obj-> dados (); # 86 $ informação = $ obj-> get_info (); # $ obj-> set_info (QW (Foo Bar Baz)); $ info = $ obj-> get_info (); # meu $ foo_obj = foo-> novo ('foo' => $ obj); $ foo_obj-> foo () -> dados (); # 86Erquirements: · Requisitos de Perl: · Perl.
Objeto :: Insideout. Software Relacionado