Cor သည် Perl အတွက် အစားထိုး OOP စနစ်တစ်ခုဖြစ်သည်။

Cor နှင့် Moose နှိုင်းယှဉ်ချက်အတွက် လင့်ခ်ကို ကြည့်ပါ။ နမူနာကုဒ်-

အတန်းအမှတ် {
has ($x, $y) :reader :writer :new :isa(Int);

နည်းလမ်း clear() {
( $x, $y ) = ( 0, 0 );
}
}

အတန်းအစား Point3D isa Point {
z :reader :writer :new :isa(Int);

နည်းလမ်း clear() {
$self->next::နည်းလမ်း;
$z = 0;
}
}

source: linux.org.ru