Приватные методы

perl_private_methods.pl

# Private accessors/methods

# Помещаем ссылку на локальную анонимную функцию в локальную переменную
my $name = sub { 
   my $self = shift; 
   ... 
} 

# Используем как обыкновенный метод, но доступен оно только внутри класса
$self->$name(); 
$self->$name('viktor');