Cor нь Perl-д зориулсан өөр OOP систем юм

Кор ба Моус хоёрын харьцуулалтыг холбоосыг үзнэ үү. Жишээ код:

ангийн цэг {
байна ( $x, $y ) :уншигч : бичигч :шинэ :isa(Int);

тодорхой арга () {
( $x, $y ) = ( 0, 0 );
}
}

анги Point3D бол Point {
$ z :уншигч : бичигч :шинэ :isa(Int);

тодорхой арга () {
$self->next::method;
$z = 0;
}
}

Эх сурвалж: linux.org.ru