Приватные методы в Perl с корректным отображением стека вызовов

perl_private_methods_named.pl

# Private accessors/methods with correct "caller"

use Sub::Name;

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

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