Cor - ett alternativt OOP-system för Perl

Se länken för en jämförelse av Cor och Moose. Exempelkod:

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

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

klass Point3D isa Point {
har $z :reader :writer :new :isa(Int);

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

Källa: linux.org.ru