Waca link kanggo comparison saka Cor lan Moose. Kode sampel:
kelas titik {
wis ($x, $y): maca: panulis: anyar: isa(Int);
metode clear() {
($x, $y ) = ( 0, 0 );
}
}
kelas Point3D isa Point {
wis $z:reader:writer:new:isa(Int);
metode clear() {
$self->next::metode;
$z = 0;
}
}
Source: linux.org.ru