Cor - madadin tsarin OOP na Perl

Duba hanyar haɗin don kwatanta Cor da Moose. Misali code:

Matsayin aji {
yana da ($ x, $y): mai karatu: marubuci: sabo : isa(Int);

hanyar bayyana () {
($x, $y) = ( 0, 0);
}
}

class Point3D isa Point {
yana da $z :mai karatu :writer :new :isa(Int);

hanyar bayyana () {
$self->na gaba:: hanya;
$z = 0;
}
}

source: linux.org.ru