Cor - sistem OOP alternatif untuk Perl

Lihat tautan untuk perbandingan Cor dan Moose. Kode sampel:

Kelas Poin {
memiliki ( $x, $y ) :pembaca :penulis :baru :isa(Int);

metode jelas() {
( $x, $y ) = ( 0, 0 );
}
}

kelas Point3D isa Poin {
memiliki $z :pembaca :penulis :baru :isa(Int);

metode jelas() {
$diri->selanjutnya::metode;
$z = 0;
}
}

Sumber: linux.org.ru

Tambah komentar