[SP-pm] Printer.pm - aberto a comentarios

[Nelson Ferraz]

> Agora, eu prefiro usa my $self = $_[0], pq eh menos elegante mas eh uma
> chamada de funcao a menos.

Nesse caso, eu prefiro:

my ($self) = @_;

> Outra coisa
> deselegante que eu faço é acessar diretamente, mesmo que apenas para
> leitura, as propriedades do objeto - $self->{SysName}, $self->{status} - por
> preguiça pq eu poderia criar um autoload e pq eu nao sei ainda como
> torna-las private no Perl.

Eu gosto do modulo Class::Accessor. Exemplo:

package Dog;

use base 'Class::Accessor';
mk_accessors('name');

use Dog;
my $dog = Dog->new( name => 'Tobby' );
print $dog->name();

http://www.perl.org.br/Artigos/ArtigoModulosRecomendadosCPAN