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

[Andre Carneiro]

Usei bastante o Class::Acessor, bem legal! Mas acabei virando fã do Moose,
graças ao Eden e ao Lorn;

<code>

package Dog;

use Moose; # ja faz use strict :D
has name => ( is => 'rw' );

1;
</code>


Enquanto isso em algum script...

<code>

use Dog;

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

</code>


Cheers!

2010/1/29 Nelson Ferraz <nferraz at gmail.com>

> > 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
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm at pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>



-- 
André Garcia Carneiro
Analista/Desenvolvedor Perl
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20100129/bcd1cc6d/attachment.html>