Cor - mfumo mbadala wa OOP kwa Perl

Tazama kiunga cha kulinganisha Cor na Moose. Msimbo wa sampuli:

alama ya darasa {
ina ( $x, $y ) :msomaji :mwandishi :mpya :isa(Int);

njia clear() {
( $x, $y ) = ( 0, 0);
}
}

darasa Point3D ni Pointi {
ina $z :reader :writer :new :isa(Int);

njia clear() {
$self-> next::njia;
$z = 0;
}
}

Chanzo: linux.org.ru