Cor - alternativni OOP sistem za Perl

Glej povezavo za primerjavo Cora in Moosea. Primer kode:

class Point {
ima ( $x, $y ) :reader :writer :new :isa(Int);

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

razred Point3D je točka {
ima $z :reader :writer :new :isa(Int);

metoda clear() {
$self->next::method;
$z = 0;
}
}

Vir: linux.org.ru