Vidu la ligon por komparo de Cor kaj Moose. Ekzempla kodo:
klaso Punkto {
havas ( $x, $y ) :leganto :verkisto :nova :isa(Int);
metodo klara () {
( $x, $y ) = ( 0, 0 );
}
}
klaso Point3D estas Punkto {
havas $z :reader :writer :new :isa(Int);
metodo klara () {
$mem->sekva::metodo;
$z = 0;
}
}
fonto: linux.org.ru