Cor - njira ina ya OOP ya Perl

Onani ulalo wofananiza wa Cor ndi Moose. Chitsanzo kodi:

kalasi point {
ali ndi ( $x, $y ) :wowerenga :wolemba :watsopano :isa(Int);

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

kalasi Point3D ndi mfundo {
ali ndi $z :reader :writer :new :isa(Int);

njira clear() {
$self-> lotsatira::njira;
$z = 0;
}
}

Source: linux.org.ru