| Objeto :: Accessor. Object :: Accessor é um módulo Perl que fornece uma interface para criar acessadores por objeto. |
Baixe Agora |
Objeto :: Accessor. Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Jos Boumans
- Site do editor:
- http://search.cpan.org/~kane/
Objeto :: Accessor. Tag
Objeto :: Accessor. Descrição
Objecto :: Acessador é um módulo Perl que fornece uma interface para criar por assessores objeto. Objecto :: Acessador é um módulo Perl que fornece uma interface para criar por assessores objeto (em oposição a por assessores classe, como, por exemplo, de classes :: Acessador fornece) .Você pode optar por subclasse este módulo, e, assim, a sua utilização acessores no seu próprio módulo, ou para armazenar um objeto objeto :: Accessor dentro de seu próprio objeto, e acesso aos assessores de lá. Veja a sinopse para examples.SYNOPSIS ### usando o objeto $ obj = Objeto :: Accessor-> novo; # Criar o objeto $ obj = Objeto :: Accessor-> new (@List); # Criar o objeto com assessores $ obj = Objeto :: Accessor-> new (% h); # Criar o objeto com assessores # e sua permitir que os manipuladores $ bool = $ obj-> mk_accessors ( 'foo'); # Criar acessores $ bool = $ obj-> mk_accessors (# criar acessores com entrada {foo => ALLOW_HANDLER}); # Validação $ clone = $ obj-> mk_clone; # Criar um clone do objeto original # sem os dados de $ bool = $ obj-> mk_flush; # Limpar todos os dados @List = $ obj-> ls_accessors; # Recupera uma lista de todos os acessores # para este objeto $ bar = $ obj-> foo ( 'bar'); # Set 'foo' para 'bar' $ bar = $ obj-> foo (); # Recuperar 'bar' novamente $ sub = $ obj-> pode ( 'foo'); # Recuperar coderef para # 'foo' acessor $ bar = $ sub -> ( 'bar'); # Set 'foo' via coderef $ bar = $ sub -> (); # Recuperar 'bar' por coderef ### usando o objeto como pacote de classe base Meu :: Class; 'Objeto :: Accessor' uso base; $ Obj = Meu :: Class-> new; # Criar objeto de base $ bool = $ obj-> mk_accessors ( 'foo'); # Criar acessores, etc ... ### fazer toda tentativa de acesso a assessores inexistentes fatais ### (padrão para false) $ Objeto :: Accessor :: FATAL = 1; ### ativar a depuração $ Objeto :: Accessor :: DEBUG = 1; ### Uso Avançado - chamadas de retorno {my $ obj = Objeto :: Accessor-> new ( 'foo'); $ Obj-> register_callback (sub {...}); $ Obj-> foo (1); # Essas chamadas invocar o callback você registrados $ obj-> foo () # que lhe permite mudar o # comportamento get / set e o que é retornado para o chamador. } ### uso avançado - atributos lvalue {my $ obj = Objeto :: Accessor :: Lvalue-> new ( 'foo'); imprimir $ obj-> foo = 1; # Imprime 1} ### Uso Avançado - escopo valores de atributos {my $ obj = Objeto :: Accessor-> new ( 'foo'); $ Obj-> foo (1); imprimir $ obj-> foo; # Imprime 1 ### ligam o alcance do valor do atributo 'foo' ### ao âmbito da '$ x' - quando $ x sai de ### escopo, 'valor anterior do foo será restaurada { $ obj-> foo (2 => my $ x); imprimir $ obj-> foo, '', $ x; # Imprime '22'} imprimir $ obj-> foo; # Imprime 1} Requisitos: · Perl.
Objeto :: Accessor. Software Relacionado