<br><div class="gmail_quote">2008/4/28 Lucas Mateus <<a href="mailto:lucasmateus.oliveira@gmail.com">lucasmateus.oliveira@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;">
<span style="font-family: courier new,monospace;"><div class="Ih2E3d">> 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><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>- -<br>"o animal satisfeito dorme". - Guimarães Rosa