Cor - Perl үшін балама OOP жүйесі

Кор мен Музды салыстыру үшін сілтемені қараңыз. Үлгі код:

сынып нүктесі {
бар ( $x, $y ) :оқушы :жазушы :жаңа :isa(Int);

әдіс clear() {
( $x, $y ) = ( 0, 0 );
}
}

Point3D класы нүкте {
бар $z :оқушы :жазушы :жаңа :isa(Int);

әдіс clear() {
$self->next::method;
$z = 0;
}
}

Ақпарат көзі: linux.org.ru