Cor - alternatiivne OOP-süsteem Perli jaoks

Cori ja Moose võrdluseks vaadake linki. Näidiskood:

klass Punkt {
has ( $x, $y ) :reader :writer :new :isa(Int);

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

klass Point3D isa punkt {
on $z :lugeja :kirjutaja :uus :isa(Int);

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

Allikas: linux.org.ru