[SP-pm] Variavel somente leitura
Nelson Ferraz
nferraz em gmail.com
Segunda Abril 28 11:51:38 PDT 2008
Desenvolvendo um pouco a sugestão do Solli, você pode colocar a lista
de permissões num hash:
my %can_change = (
'AlgumaCoisa::pode' => 1,
'AlgumaCoisa::tambem_pode' => 1,
'AlgumaCoisa::nao_pode' => 0,
);
sub host {
my $self = shift;
my $who_is_calling_me = ( caller(1) )[3];
if (@_) {
if ( $can_change{$who_is_calling_me} ) {
$self->{host} = $_[0];
} else {
die "Ta louco meu !!!\n";
}
}
return $self->{host};
}
Mais detalhes sobre a lista de discussão SaoPaulo-pm