perl-Class-Accessor

Este módulo gera automaticamente acessores/mutadores para a sua classe. Na maior parte do tempo, escrever acessores é um exercício de copiar e colar. Normalmente acaba com uma série de métodos como estes: sub name { my $self = shift; if(@_) { $self->{name} = $_[0]; } return $self->{name}; } sub salary { my $self = shift; if(@_) { $self->{salary} = $_[0]; } return $self->{salary}; } Um para cada dado no seu objeto. Embora alguns sejam únicos, com verificações de valor e truques especiais de armazenamento, a maioria será simplesmente exercícios de repetição. Não só é mau estilo ter um monte de código repetitivo, como também simplesmente não é preguiçoso, que é a verdadeira tragédia. Se tornar o seu módulo uma subclasse de Class::Accessor e declarar os seus campos de acessores com mk_accessors(), encontrará um conjunto de acessores gerados automaticamente que podem até ser personalizados! A configuração básica é muito simples: package Foo; use base qw(Class::Accessor); Foo->mk_accessors( qw(far bar car) ); Pronto. Foo agora tem acessores simples far(), bar() e car() definidos. Em alternativa, se quiser seguir as diretrizes de _best practice_ do Damian, pode usar: package Foo; use base qw(Class::Accessor); Foo->follow_best_practice; Foo->mk_accessors( qw(far bar car) ); *Nota:* deve chamar 'follow_best_practice' antes de chamar 'mk_accessors'.