Usei bastante o Class::Acessor, bem legal! Mas acabei virando fã do Moose, graças ao Eden e ao Lorn;<br><br><code><br><br>package Dog;<br><br>use Moose; # ja faz use strict :D<br>has name => ( is => 'rw' );<br>
<br>1;<br></code><br><br><br>Enquanto isso em algum script...<br><br><code><br><br>use Dog;<br><br>my $dog = Dog->new(name => 'Scooby');<br>print $dog->name;<br><br></code><br><br><br>Cheers!<br>
<br><div class="gmail_quote">2010/1/29 Nelson Ferraz <span dir="ltr"><<a href="mailto:nferraz@gmail.com">nferraz@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="im">> Agora, eu prefiro usa my $self = $_[0], pq eh menos elegante mas eh uma<br>
> chamada de funcao a menos.<br>
<br>
</div>Nesse caso, eu prefiro:<br>
<br>
my ($self) = @_;<br>
<div class="im"><br>
> Outra coisa<br>
> deselegante que eu faço é acessar diretamente, mesmo que apenas para<br>
> leitura, as propriedades do objeto - $self->{SysName}, $self->{status} - por<br>
> preguiça pq eu poderia criar um autoload e pq eu nao sei ainda como<br>
> torna-las private no Perl.<br>
<br>
</div>Eu gosto do modulo Class::Accessor. Exemplo:<br>
<br>
package Dog;<br>
<br>
use base 'Class::Accessor';<br>
mk_accessors('name');<br>
<br>
use Dog;<br>
my $dog = Dog->new( name => 'Tobby' );<br>
print $dog->name();<br>
<br>
<a href="http://www.perl.org.br/Artigos/ArtigoModulosRecomendadosCPAN" target="_blank">http://www.perl.org.br/Artigos/ArtigoModulosRecomendadosCPAN</a><br>
_______________________________________________<br>
<div><div></div><div class="h5">SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>André Garcia Carneiro<br>Analista/Desenvolvedor Perl<br><br><br>