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

Следете ја врската за да ги споредите Кор и Мус. Примерок код:

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

метод јасно() {
($x, $y) = (0, 0);
}
}

класа Point3D isa Point {
има $z :reader :writer :new :isa(Int);

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

Извор: linux.org.ru