Cor - पर्ल के लिए एक वैकल्पिक OOP सिस्टम

कोर और मूस की तुलना करने के लिए लिंक का अनुसरण करें। नमूना कोड:

क्लास पॉइंट {
है ( $x, $y ) :पाठक :लेखक :नया :isa(Int);

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

क्लास प्वाइंट3डी ईसा प्वाइंट {
$z है :पाठक :लेखक :नया :isa(Int);

विधि स्पष्ट() {
$स्वयं->अगला::विधि;
$z = 0;
}
}

स्रोत: linux.org.ru