Cor Perl-erako OOP sistema alternatibo bat da

Jarraitu esteka Cor eta Moose alderatzeko. Lagin kodea:

klase puntua {
dauka ( $x, $y ) :irakurlea :idazlea :berria :isa(Int);

metodo garbi () {
( $x, $y ) = ( 0, 0 );
}
}

klasea Point3D puntua da {
$z du :reader :writer :new :isa(Int);

metodo garbi () {
$auto->hurrena::metodoa;
$z = 0;
}
}

Iturria: linux.org.ru