Cor - enye inkqubo yeOOP yePerl

Jonga ikhonkco lothelekiso lweCor kunye neMoose. Umzekelo ikhowudi:

indawo yeklasi {
ine ( $x, $y ) :umfundi :umbhali :omtsha :isa(Int);

indlela ecacileyo () {
( $x, $y ) = ( 0, 0 );
}
}

iklasi Point3D inqaku {
ine-$z :umfundi :umbhali :entsha :isa(Int);

indlela ecacileyo () {
$ self-> elandelayo::indlela;
$z = 0;
}
}

umthombo: linux.org.ru

Yongeza izimvo