Cor - jocus ratio OOP pro Perl

Vide nexum ad comparationem Cor et alces. Sample signum:

class Point {
has ( $x, $y ) : lector : scriptor : novus :isa(It);

methodus patet () {
( $x, $y ) = ( 0, 0 );
}
}

class Point3D isa Point {
has $z : lector : scriptor : novus :isa(It);

methodus patet () {
$ self - > next : : method ;
$z = 0;
}
}

Source: linux.org.ru