Cor - альтернативна ООП система для Perl

За посиланням, порівняння Cor і Moose. Приклад коду:

class Point {
has ( $x, $ y ) :reader :writer :new :isa(Int);

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

class Point3D isa Point {
має $z :reader :writer :new :isa(Int);

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

Джерело: linux.org.ru