Cor як системаи алтернативии OOP барои Perl мебошад

Барои муқоисаи Кор ва Муз ба истиноди нигаред. Рамзи мисол:

нуқтаи синф {
дорад ( $ x, $ y ): хонанда : нависанда : нав : isa (Int);

усули равшан () {
($x, $y) = (0, 0);
}
}

синфи Point3D Нуқта аст {
дорои $ z : хонанда : нависанда : нав : isa (Int);

усули равшан () {
$self->next::метод;
$z = 0;
}
}

Манбаъ: linux.org.ru

Илова Эзоҳ