[SP-pm] Variavel somente leitura

[Nelson Ferraz]

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};
}