Cor - ລະບົບ OOP ທາງເລືອກສໍາລັບ Perl

ປະຕິບັດຕາມການເຊື່ອມຕໍ່ເພື່ອປຽບທຽບ Cor ແລະ Moose. ລະຫັດຕົວຢ່າງ:

ຈຸດຫ້ອງຮຽນ {
has ( $x, $y ) :reader :writer :new :isa(Int);

ວິທີການຈະແຈ້ງ() {
( $x, $y ) = ( 0, 0 );
}
}

ຫ້ອງຮຽນ Point3D isa ຈຸດ {
ມີ $z :reader :writer :new :isa(Int);

ວິທີການຈະແຈ້ງ() {
$self->ຕໍ່ໄປ::ວິທີການ;
$z = 0;
}
}

ແຫຼ່ງຂໍ້ມູນ: linux.org.ru