Cor es un sistema de programación orientada a objetos alternativo para Perl

Consulte el enlace para ver una comparación de Cor y Moose. Código de muestra:

punto de clase {
tiene ( $x, $y ) :lector :escritor :nuevo :isa(Int);

método claro() {
( $x, $y ) = ( 0, 0 );
}
}

clase Point3D es un punto {
tiene $z :lector :escritor :nuevo :isa(Int);

método claro() {
$self->siguiente::método;
$z = 0;
}
}

Fuente: linux.org.ru