Cor - Perl uchun muqobil OOP tizimi

Kor va Mooseni taqqoslash uchun havolaga qarang. Kod namunasi:

sinf nuqtasi {
ega ( $x, $y ) :o‘quvchi :yozuvchi:yangi :isa(Int);

usuli clear() {
( $x, $y ) = ( 0, 0 );
}
}

Point3D sinfi nuqta {
$z ga ega :o'quvchi :yozuvchi :yangi :isa(Int);

usuli clear() {
$self->keyingi::metod;
$z = 0;
}
}

Manba: linux.org.ru