Cor — un sistema OOP alternativo per Perl

Link per il confronto tra Cor e Moose. Esempio di codice:

classe Punto {
ha ( $x, $y ) :lettore :scrittore :nuovo :isa(Int);

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

classe Punto3D isa Punto {
ha $z :lettore :scrittore :nuovo :isa(Int);

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

Fonte: linux.org.ru