Cor is 'n alternatiewe OOP-stelsel vir Perl

Sien die skakel vir 'n vergelyking van Cor en Moose. Voorbeeld kode:

klaspunt {
het ($x, $y):leser:skrywer:nuut:isa(Int);

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

klas Point3D isa Point {
het $z :leser :skrywer :nuut :isa(Int);

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

Bron: linux.org.ru