Perl protected and private methods?

Question

Perl

Please tell me how to arrange protected and private methods in OOP Perl. Thank you.

Answer 1

The OOP of Perl has nothing to do with the OOP of C++-like languages.
If you really want to, you can use an anonymous function as a private method and pass $self to it as the first parameter:

package MyClass;

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

sub public_method {
  my $self = shift;

  $private_method->($self);
}

By the way, such a call is faster than $object->name.