Cor - Perl 的替代 OOP 系統

請參閱連結以了解 Cor 和 Moose 的比較。範例程式碼：

類點{
有 ( $x, $y ) :reader :writer :new :isa(Int);

方法清除() {
( $x, $y ) = ( 0, 0 );
}
}

類別 Point3D 是一個點 {
有 $z :reader :writer :new :isa(Int);

方法清除() {
$self->下一個::方法；
$z = 0;
}
}

來源： linux.org.ru