Cor - mokhoa o mong oa OOP bakeng sa Perl

Sheba sehokelo bakeng sa papiso ea Cor le Moose. Mohlala oa khoutu:

ntlha ea sehlopha {
e na le ( $x, $y ) :'mali :mongoli :e ncha :isa(Int);

mokhoa o hlakileng () {
( $x, $y ) = ( 0, 0);
}
}

sehlopha sa Point3D ke ntlha {
e na le $z :reader :writer :new :isa(Int);

mokhoa o hlakileng () {
$ self-> latelang:: mokhoa;
$z = 0;
}
}

Source: linux.org.ru