[SP-pm] Printer.pm - aberto a comentarios
Nelson Ferraz
nferraz at gmail.com
Fri Jan 29 05:23:05 PST 2010
> 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
More information about the SaoPaulo-pm
mailing list