Solli, faz muito sentido.<br><br><br><br><div class="gmail_quote">2008/4/28 Solli Honorio <<a href="mailto:shonorio@gmail.com">shonorio@gmail.com</a>>:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br><div class="gmail_quote"><div class="Ih2E3d">2008/4/28 Lucas Mateus <<a href="mailto:lucasmateus.oliveira@gmail.com" target="_blank">lucasmateus.oliveira@gmail.com</a>>:<br></div><div class="Ih2E3d"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<span style="font-family: courier new,monospace;"><div>> Mas mesmo assim isto
parece meio estranho, pois a minha dúvida com relação a este problema é
se vc > não quer que alguém externo as tuas rotinas façam esta alteração,
ou se é as tuas rotinas mesmo (o > que não faz o menor sentido pra mim,
já que neste contexto vc está programando e pode definir que > tipo de
ação cada rotina executará).<br>
<br></div>
Solli, aceite a afirmação: isso é necessário.<br>
</span></blockquote><div><br></div></div></div><span style="font-family: courier new,monospace;">tudo bem cara, eu aceito a tua afirmação. Só que tem um detalhe nesta história. Vc não está impedindo que alguém altere o teu valor, apenas está alterando a maneira de fazer isto. Se eu eu precisava apenas fazer a atribuição simples '$variavel = valor', estou tendo que fazer outras 'maracutaias' para atualizar o valor.<br>
<br>é difícil dar outra alternativa sem saber extamente o teu problema, mas na minha visão OO poderia ajudar se você definir a "variável" em questão como 'Read Only' (utilizando o Class::Accessor) e aí nenhum método da classe poderá alterar o conteúdo. Desta maneira se vc quiser alterar o conteúdo terá se instanciar com outro valor.<br>
<br>Outra alternativa é utilizar o 'caller' para restringir realmente quem você quer que tenha acesso de 'write' na 'propertie', tipo :<br><br><code><br>package AlgumaCoisa;<br>use base qw(Class::Accessor);<br>
<br>__PACKAGE__->mk_accessors(qw(host));<br><br>sub host {<br> my $self = shift;<br> my $who_is_calling_me = ( caller(1) )[3];<br><br> if (@_) {<br> if ( $who_is_calling_me eq "AlgumaCoisa::pode" ) {<br>
$self->{host} = $_[0];<br> } else {<br> die "Ta louco meu !!!";<br> }<br> }<br><br> return $self->{host};<br>}<br><br>sub pode {<br> my $self = shift;<br> $self->host('troquei');<br>
}<br><br>sub nao_pode {<br> my $self = shift;<br> $self->host('troquei');<br>}<br><br>1;<br><br></code><br clear="all"></span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Pra mim, o código acima faz mais sentido já que estou limitando qual método tem acesso de gravação. Claro que este cara ainda tem alguns limitantes, mas já dá para ter uma boa idéia sobre o meu questionamento sobre a real utilidade do código que vc está vendo e como estabelecer uma restrição mais consistente.</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Abraços,</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Solli M. Honório</span><br style="font-family: courier new,monospace;">
<br>- -<div><div></div><div class="Wj3C7c"><br>"o animal satisfeito dorme". - Guimarães Rosa
</div></div><br>_______________________________________________<br>
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></blockquote></div><br>