Cor - yiyan OOP eto fun Perl

Wo ọna asopọ fun lafiwe ti Cor ati Moose. Apeere koodu:

ojuami kilasi {
ní ($ x, $y): òǹkàwé: òǹkọ̀wé: tuntun: isa(Int);

ọna ko () {
($x, $y) = ( 0, 0);
}
}

kilasi Point3D Isa Point {
ní $z: òǹkàwé: òǹkọ̀wé: tuntun: isa (Int);

ọna ko () {
$ ara-> tókàn :: ọna;
$z = 0;
}
}

orisun: linux.org.ru