Classe :: Accessor. Classe :: Accessor é uma ferramenta automatizada de geração de acessadores.
Baixe Agora

Classe :: Accessor. Classificação e resumo

Classe :: Accessor. Tag

Módulo Perl. perl gerador acessador classe de acessador Accessor C.

Classe :: Accessor. Descrição

Classe :: Accessor é uma ferramenta automatizada de geração de acessadores. Classe :: Accessor é uma ferramenta automatizada de geração de acesso.Synopsis pacote de pacote; Use a base QW (Classe :: Accessor); Employee-> MK_Accessors (QW (Nome Selval)); # Enquanto isso, em um pedaço de código próximo! # Classe :: Accessor fornece novo (). meu $ mp = foo-> novo ({nome => "marty", papel => "japh"}); meu trabalho de $ = $ mp-> # recebe $ mp -> {função} $ mp-> salário (400.000); # define $ mp -> {salário} = 400000 (eu desejo) # como meu @info = @ {$ mp} {qw (função de nome (nome)} meu @info = $ mp-> get (qw (função de nome)); # $ mp -> {salário} = 400000 $ mp-> conjunto ('salário', 400000); este módulo gera automaticamente acessadores / mutadores para a sua classe. A maioria do tempo, os acessadores de escrita é um exercício em corte e colagem. Você costuma acabar com uma série de métodos como este: Sub nome {My $ self = Shift; if (@_) {$ auto -> {name} = $ _ ; } retornar $ auto -> {nome}; } Sub Salário {My $ self = Shift; if (@_) {$ auto -> {salário} = $ _ ; } Retornar $ auto -> {salário}; } # etc ... um para cada pedaço de dados no seu objeto. Enquanto alguns serão únicos, fazendo cheques de valor e truques especiais de armazenamento, a maioria será simplesmente exercícios em repetição. Não só é um mau estilo ter um monte de código repetitivo, mas também é simplesmente não preguiçoso, que é a verdadeira tragédia. Se você fizer seu módulo uma subclasse de classe :: Accessor e declarar seus campos de acesso com MK_Accessors (), então você Encontre-se com um conjunto de acessadores gerados automaticamente que podem até ser personalizados! A configuração básica é muito simples: pacote My :: Class; Use a base QW (Classe :: Accessor); Meu :: Class-> MK_Accessors (QW (Foo Bar Car)); feito. My :: Class Now tem simples foo (), bar () e car () acessadores definidos. Requisitos: · Perl.

Classe :: Accessor. Software Relacionado