Cor - ji bo Perl pergalek OOP ya alternatîf

Zencîreyê bişopînin da ku Cor û Moose bidin ber hev. Nimûne kod:

class Point {
heye ($x, $y) :xwendevan :nivîskar :new :isa(Int);

rêbaza zelal() {
($x, $y) = (0, 0);
}
}

class Point3D isa Point {
$z heye :xwîner :nivîskar :new :isa(Int);

rêbaza zelal() {
$self->next::method;
$z = 0;
}
}

Source: linux.org.ru