Cor - imwe nzira yeOOP yePerl

Ona chinongedzo chekuenzanisa kweCor naMoose. Sample code:

kirasi Point {
ine ( $x, $y ) :muverengi :munyori :new :isa(Int);

nzira yakajeka () {
( $x, $y ) = ( 0, 0);
}
}

kirasi Point3D iPoindi {
ine $z :muverengi :munyori :new :isa(Int);

nzira yakajeka () {
$self->inotevera::nzira;
$z = 0;
}
}

Source: linux.org.ru

Voeg