Цор - алтернативни ООП систем за Перл

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

класа Тачка {
има ( $к, $и ) :реадер :вритер :нев :иса(Инт);

метод цлеар() {
( $к, $и ) = (0, 0);
}
}

цласс Поинт3Д иса Поинт {
има $з :реадер :вритер :нев :иса(Инт);

метод цлеар() {
$селф->нект::метход;
$з = 0;
}
}

Извор: линук.орг.ру