Cor – një sistem alternativ OOP për Perl

Në këtë lidhje, krahasimi midis Cor dhe Moose. Shembulli i kodit:

klasa Point {
ka ( $x, $y ) :lexues :shkrues :ri :isa(Int);

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

klasa Point3D isa Point {
ka $z :lexues :shkrues :ri :isa(Int);

metoda qartë () {
$self->next::metoda;
$z = 0;
}
}

Burimi: linux.org.ru