Cor is een alternatief OOP-systeem voor Perl

Zie de link voor een vergelijking van Cor en Moose. Voorbeeldcode:

klasse Punt {
heeft ($x, $y) :lezer :schrijver :new :isa(Int);

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

klasse Point3D is een punt {
heeft $z :reader :writer :new :isa(Int);

methode clear() {
$self->volgende::methode;
$z = 0;
}
}

Bron: linux.org.ru