Cor - një sistem alternativ OOP për Perl

Shikoni lidhjen për një krahasim të Cor dhe Moose. Shembull i kodit:

pika e klasës {
ka ( $x, $y ) :lexues :writer :new :isa(Int);

metoda e qartë() {
($x, $y) = (0, 0);
}
}

klasa Point3D është pika {
ka $z :lexues :writer :new :isa(Int);

metoda e qartë() {
$self->next::metoda;
$z = 0;
}
}

Burimi: linux.org.ru

Shto një koment