Cor - in alternatyf OOP systeem foar Perl

Sjoch de keppeling foar in ferliking fan Cor en Moose. Foarbyld koade:

klasse Punt {
hat ($x, $y): lêzer: skriuwer: nij: isa (Int);

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

klasse Point3D isa Point {
hat $z:lêzer:skriuwer:nij:isa(Int);

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

Boarne: linux.org.ru