Classe :: HPLOO. Classe :: HPLOO é uma maneira mais fácil de declarar classes no Perl, com base na classes popular {...} estilo e epod.
Baixe Agora

Classe :: HPLOO. Classificação e resumo

Classe :: HPLOO. Tag

Módulo Perl. Aulas declarar classes. declarar Aulas EPOD.

Classe :: HPLOO. Descrição

Classe :: HPLOO é uma maneira mais fácil de declarar classes no Perl, com base na popular classe {...} estilo e epod. Classe :: HPLOO é uma maneira mais fácil de declarar classes no Perl, com base na classe popular de estilo e epod.usage use Classe :: HPLOO; Classe Foo Extende Bar, BAZ {USE LWP :: Simples QW (GET); ## Importe o método Get () para este pacote. Attr (array foo_list, INT Idade, nome de string, foo) ## definir atributos. vars ($ global_var); ## O mesmo que: use vars qw ($ global_var); meu ($ local_var); ## construtor / inicializador: sub foo {$ isso -> {attr} = $ _ ; } ## Métodos com variáveis de entrada declaradas: sub get_pages ($ base, @pages,% opções) {myhtmls; se ($ Opções {proxy} {...} foreach my $ páginas_i (@pages) {my $ URL = "$ Base / $ páginas_i"; Meu $ HTML = GET ($ URL); empurre (@htmls, $ HTML); $ this-> cache ($ URL, $ HTML); } Retornar @htmls; } ## Methos como um Normal Perl Sub: Sub Cache {My ($ URL, $ HTML) = @_; $ isso -> {cache} {$ url} = $ html; } sub attributes_example {$ this-> set_foo_list (qw (a b c d e f)); meu @l = $ this-> get_foo_list; $ this-> set_age (30); $ this-> set_name ("Joe"); $ this-> set_foo (tempo ()); Imprimir "Nome:". $ this-> get_name. "N"; Imprimir "Idade:". $ this-> get_age. "N"; Imprimir "Foo:". $ this-> get_foo. "N"; }} ## Exemplo de uso da classe: pacote principal; meu $ foo = novo foo (123); $ foo-> get_pages ('http://www.perlmonks.com/', , {proxy => 'localhost: 8080'}); Requisitos: · Perl.

Classe :: HPLOO. Software Relacionado