Cor - alternatīva OOP sistēma Perl

Skatiet saiti, lai salīdzinātu Cor un Moose. Koda paraugs:

klase Punkts {
ir ( $x, $y ) :reader :writer :new :isa(Int);

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

class Point3D isa Point {
ir $z :reader :writer :new :isa(Int);

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

Avots: linux.org.ru