Cor - पर्लसाठी पर्यायी OOP प्रणाली

कोर आणि मूसच्या तुलनेसाठी लिंक पहा. नमुना कोड:

वर्ग बिंदू {
आहे ( $x, $y ) :वाचक :लेखक :नवीन :isa(इंट);

पद्धत स्पष्ट() {
( $x, $y) = ( 0, 0);
}
}

वर्ग Point3D isa Point {
$z :reader :writer :new :isa(Int);

पद्धत स्पष्ट() {
$self->next::method;
$z = 0;
}
}

स्त्रोत: linux.org.ru