Pull to refresh

Perl6 — Классы

Reading time 4 min
Views 4.9K
1. Особенности работы с переменными и литералами в Perl6
2. Perl6 — Операции над переменными, анонимные блоки
3. Perl6 — Условные операторы, циклы
4. Perl6 — Работа с функциями

Последние несколько дней я читал раздел по работе с объектами в Perl6. К сожалению я так и не смог понять некоторые моменты, и надеюсь что те кто уже смог их понять подскажут, в чем же дело. Как и раньше, все описанные возможности будут сопровождаться небольшими экспериментами или примерами, чтобы пояснить как это работает, или как нужно использовать.
Приступим:


В Perl6 есть два возможных способа объявить класс:
-сделать весь файл описанием класса
class Name;
has $.field;
...
method Func() {...};

-объявить класс с помощью конструкции
class Name
 {
     has $.field;
 }

Можно как и в языке C++ указать лишь имя класса, дав его описание позднее:
class Name {...};
my $var = Name.new;
class Name {has $.elem};

Если последней строчки не будет то произойдет ошибка при компиляции
Так же есть возможность сделать следующее:
my $className = class Name
 {
     has $.field is rw;
 }
my $var1 = Name.new;
my $var2 = $className.new;
$var1.field = 10;
$var2.field = 5;
say $var1.field, ' ', $var2.field;

В результате увидим строку '10 5'
Можно создать анонимный класс с помощью конструкции
my $anonClass = class :: {has $.field};
my $var = $anonClass.new;

Уже созданные переменные могут быть использованы для создания новых переменных:
my $var1 = ClassName.new;
my $var2 = $var1.new;

Однако создание происходит без копирования данных.

Теперь подробнее о том что можно указывать при объявлении:
для указания поля используется ключевое слово has:
class Name
 {
     has Int $.publicMember;
     has $!privateMember;
     has @.publicArray is rw;
     has %!privateHash;
     has $.a is rw;
     has $.b is rw = 'Значение по умолчанию';
 }
my $v = Name.new;
say $v.publicMember;  #выведет "Int()"
#$v.publicMember = 10 - Ошибка, переменная readonly
#say $v!privateMember - Ошибка
$v.mas = 1, 2, 3;
#say $v!privateHash - Ошибка
$v.a = 'new value';
say $v.b  #Выведет "Значение по умолчанию"

Так же стоит отметить, что в теле метода можно изменять приватные переменные, даже если указано is readonly (Однако я не могу сказать, это так и задумано, или сказывается незаконченность вирт. машины)

Методы у классов указываются ключевым словом method:
class Name
 {
     has $!privateMember = 5;

     method GetPrivateMember()
      {
          return $!privateMember;
      }
      
     method SetPrivateMember($value)
      {
          $!privateMember = $value if $value > 0;
      }
 }
my $var = Name.new;
say $var.GetPrivateMember;
$var.SetPrivateMember(10);
$var.SetPrivateMember: 20;


Методы могут быть объявлены приватными:
method !PrivateMethod()
 {
     say 'Hello!';
 }

Можно указать через какую переменную будет доступен объект (инвокант), у которого вызывается метод:
method Func($self: $param1, $param2)
 {
     $self.Func2($param1);
 }

Имя переменной не обязательно должно быть $self
method Func($someName: $param1, $param2)
 {
     $someName!PrivateMethod($param1);
 }

Если эту переменную не указывать то сам объект будет доступен как 'self'
method Func($param1, $param2)
 {
     self.PublicMethod($param1);
     self!PrivateMethod($param2);
 }


Для вызова в теле метода другого метода этого класса используется следующая конструкция
self!PrivateMethod();
self.PublicMethod();

Например
class Name
 {
     method !A()
      {
          say "!A";
      }
     
     method A($s:)
      {
          $s!A();
      }
      
     method B()
      {
          self!A;
          self.C;
          say "B";
      }
      
     method C()
      {
          say "C";
      }
 }

При этом возможно делать вызовы self.A и self!A

Для доступа к полям класса в теле метода используется теже самые имена, что и при объявлении:
class Name
 {
     has $.a;
     has $!b;
     
     method PrintValues()
      {
          say $.a;
          say $!b;
      }
 }

Также можно написать self.a но нельзя написать self!b, т.к. в этом случае будет подразумеваться вызов приватного метода b, а не обращение к переменной b

Если имени класса при объявлении указать is rw то все поля, которые будут содержаться в этом классе станут доступны для записи без указания is rw для каждого поля в отдельности:
class Name is rw
 {
     has $.a;
     has $.b;
 }


Также в классах можно объявлять submethod'ы. Отличие их от обычных методов в том, что submethod наследоваться дочерним классом не будет.

Теперь о конструкторах
Можно указать какие действия выполнить при создании нового экземпляра класса:
class Name
 {
     has $.arg1 is rw = 10;
     has $!arg2;
     submethod BUILD(:$namedArg1, :$namedArg2)
      {
          self.arg1 = $namedArg1 if $namedArg1>0;
          $!arg2 = $namedArg2;
      }
 }
my $var = Name.new(:namedArg2(200), :namedArg1<Hello>);

Есть одна вещь которая мне непонятна: мне пришлось писать self.arg1 а не $.arg1, т.к. мне выдавалась ошибка «Virtual call $.a may not be used on partially constructed objects».
Я не могу понять, так и задумано или же это просто ещё не до конца проработанная часть. Но в любом случае, такой конструктор работает нормально.

Также можно указывать деструктор, который будет вызываться автоматически GarbageCollector'ом.
submethod DESTROY()
 {
     say 'DESTROY';
 }

Но на этот раз, вышеуказанной надписи при проведении экспериментов я так и не смог увидеть. Подозреваю что эта часть тоже ещё не доделана.

В Perl6 наследование организуется следующей конструкцией:
class Name {has $.a};
class Name2 is Name {has $.b};
my $var = Name2.new;
say $var;  #Name2.new(b => Any, a => Any)


Возможно множественное наследование, в результате которого может получиться что имена функций или полей в классах будут совпадать:
class Name
 {
     has $.a is rw = 10;
     has $.c is rw = 15;
     method A() {say "Name ", $.a;}
 }
class Name2
 {
     has $.b is rw = 20;
     has $.c is rw = 25;
     method A() {say "Name2 ", $.b;}
 }
class Name3 is Name is Name2
 {
     method A()
      {
          self.Name2::A();
          say $.c;
      }
 }
my $var = Name3.new;
$var.a = 100;
$var.b = 200;
$var.A;

В данном случае будут выведены на экран две строчки:
Name2 200
15

Если не переопределять функцию A в дочернем класе, то функция Name::A перекроет функцию Name2::A, также происходит с переменной $.c
Как я понимаю строка self.Name2::A(); выполняет метод Name2::A() для объекта self, однако все мои догадки, как это работает портит тот факт, что на имя self.Name2 выдается ошибка, а так же нельзя написать self.(&Name2::A) или что-то вроде этого. Буду рад если кто-нибудь из знающих людей подскажет.

Конечно описанные здесь возможности это лишь часть из того что можно делать с объектами (например я даже не упомянул о делегировании, ролях — аналогов интерфейсов в с++), но пока что я не хотел бы так сильно углубляться в эту тему, а продолжить изучение других возможностей Perl6. А пока что для начала освоения языка хватит и описанного.
Tags:
Hubs:
+25
Comments 0
Comments Leave a comment

Articles