Cor - usa ka alternatibo nga sistema sa OOP alang sa Perl

Tan-awa ang link alang sa pagtandi sa Cor ug Moose. Pananglitan nga code:

class Point {
adunay ($x, $y ) :magbabasa :magsusulat :bag-o :isa(Int);

pamaagi klaro() {
($x, $y ) = ( 0, 0 );
}
}

klase Point3D usa ka Punto {
naay $z :reader :writer :new :isa(Int);

pamaagi klaro() {
$kaugalingon->sunod::pamaagi;
$z = 0;
}
}

Source: linux.org.ru