Cor - ระบบ OOP ทางเลือกสำหรับ Perl

ดูลิงค์สำหรับการเปรียบเทียบ Cor และ Moose รหัสตัวอย่าง:

คลาสพอยต์ {
มี ( $x, $y ) :reader :writer :new :isa(Int);

วิธีการที่ชัดเจน() {
( $x, $y ) = ( 0, 0 );
}
}

คลาส Point3D isa พอยต์ {
มี $z :reader :writer :new :isa(Int);

วิธีการที่ชัดเจน() {
$ตนเอง->ถัดไป::วิธีการ;
$z = 0;
}
}

ที่มา: linux.org.ru

เพิ่มความคิดเห็น