Protected и private методы Perl?

Подскажите пожалуйста как оформить protected и private методы в ООП Perl. Спасибо.
  • Вопрос задан
  • 2339 просмотров
Решения вопроса 1
@Ptktysq
ООП Perl не имеет ничего общего с ООП C++-подобных языков.
Если очень хочется, то можно использовать анонимную функцию как приватный метод и передавать в него $self первым параметром:

package MyClass;

my $private_method = sub {
    my $self = shift;
    # ...
  };

sub public_method {
  my $self = shift;

  $private_method->($self);
}


Кстати, такой вызов быстрее, чем $object->name.
Ответ написан
Комментировать
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы