Cor - алтернативна ООП система за Perl

Вижте връзката за сравнение на Cor и Moose. Примерен код:

клас точка {
има ($x, $y) :reader :writer :new :isa(Int);

метод clear() {
($x, $y) = (0, 0);
}
}

клас Point3D е точка {
има $z :reader :writer :new :isa(Int);

метод clear() {
$self->next::method;
$z = 0;
}
}

Източник: linux.org.ru