Cor అనేది పెర్ల్ కోసం ప్రత్యామ్నాయ OOP సిస్టమ్

కోర్ మరియు మూస్ పోలిక కోసం లింక్‌ని చూడండి. నమూనా కోడ్:

క్లాస్ పాయింట్ {
( $x, $y ) : రీడర్ : రైటర్ : కొత్త : isa (Int);

పద్ధతి స్పష్టమైన () {
($x, $y) = (0, 0 );
}
}

class Point3D isa Point {
$z : రీడర్ : రైటర్ : కొత్త : isa (Int);

పద్ధతి స్పష్టమైన () {
$self->తదుపరి::పద్ధతి;
$z = 0;
}
}

మూలం: linux.org.ru

ఒక వ్యాఖ్యను జోడించండి