Парадигмы OO и инкапсулированные переменные экземпляра в Perl5

Question

Мне нужен способ сделать действительно инкапсулированные переменные в Perl, без использования каких-либо фреймворков, таких как Moose, чтобы вы могли обращаться к переменным экземпляра только через getters и seters. Должны быть частные переменные экземпляра.

Подпрограммы, соответственно, не являются проблемой, потому что вы можете определить их так, чтобы их можно было использовать только через экземпляр, соответственно, ссылку. Но переменные вы всегда можете получить через имя пакета, например class-vars.

Есть ли способ предотвратить это?

Answer 1

Чтобы сделать действительно частные переменные, которые вы должны использовать замыкания:

{ 
    my $x; 

    sub get { 
     return $x; 
    } 

    sub set { 
     $x = shift; 
    } 
} 

set(3); 
print get(); # prints 3 
print $x; # ERROR 

# Example with objects 
package Class; 

sub new { 
    bless {}, 'Class'; 
} 
{ 
    my $storage = {}; 

    sub get { 
     $self = shift; 
     return $storage->{ "$self" };    
    } 

    sub set { 
     $self = shift; 
     $storage->{ "$self" } = shift; 
    } 
} 

package main; 
print Class::x; #ERROR 

$z = Class::new(); 
$z->set(3); 

$y = Class::new(); 
$y->set(5); 
print $y->get(); # 5 
print $z->get(); # 3 

$x является локальным по отношению к блоку. Ни один из них, кроме set и get, может получить к нему доступ.
«$ self» будет выглядеть как «Class = HASH (0x1cf9160)». Из-за того, что каждый объект имеет свой собственный адрес в памяти, «$ self» никогда не столкнется.

Но на самом деле вы не обязаны делать это в другом случае, что будет палки в колесе вашего

Answer 2

Это звучит, как вы пытаетесь, чтобы помешать людям получить доступ к экземплярам переменных, отличные через аксессор ; это правильно?

Perl - это язык для вежливых людей, и то, как вы прекращаете программистам делать то, что вам не нужно, это попросить их не делать этого. Да, есть хаки, и наиболее очевидным здесь было бы сделать каждый объект закрытием (here's an article about it from the Perl Journal), но вокруг них почти всегда есть способы, поэтому вы не сможете остановить решительного дерзкого хакера

1 от Larry Wall's excellent attributions - это, что объясняет мою точку превосходно.

У Perl нет увлечений с соблюдением конфиденциальности. Он предпочел бы, чтобы вы остались вне его гостиной, потому что вы не были приглашены, не потому, что у него есть дробовик

Answer 3

Люди пытались достичь такого рода вещи с наизнанку объектами. This presentation by David Golden объясняет это прекрасно:

• изнутри наружу предметы первой представленные голландской Perl хакера Абигейл в 2002

• Весна 2002 - Первое упоминание в Amsterdam.pm,

• 28 июня, 2002 - YAPC NA «Два альтернативных способа проведения ОО»

• 1 июля 2002 г. - Первое упоминание о Perlmonks

• Получил недавнее внимание (известность?) В качестве рекомендуемой наилучшей практики с публикацией Дамиана Конвея Perl Best Practices

• Несмотря на их преимущества, они приносят значительную сложность и не повсеместно приветствуются

Есть целый number of modules, которые пытаются облегчить этот тип программирования.

Я нахожу их довольно громоздкими, и с тех пор они выпали из положения.

Вы также можете найти их упоминается в perldoc perlobj:

В прошлом сообщество Perl экспериментировал с техникой, называемой «внутри-из объектов». Объект out-out хранит свои данные вне ссылки на объект, индексируется по уникальному свойству объекта, например адресу памяти, а не самому объекту. Это имеет преимущество, заключающееся в обеспечении инкапсуляции атрибутов объекта, поскольку их данные не хранятся в самом объекте.

Этот метод был популярен некоторое время (и был рекомендован в лучших практиках Дамиана Конвей Перла), но так и не получил всеобщего усыновления. Модуль Object::InsideOut на CPAN обеспечивает всестороннюю реализацию этого метода, и вы можете увидеть его или другие модули с наименьшим из них в дикой природе.