Cor - córas OOP eile do Perl

Féach an nasc chun comparáid a dhéanamh idir Cor agus Moose. Cód samplach:

pointe ranga {
tá ( $x, $y ) :léitheoir :scríbhneoir :nua :isa(Int);

modh soiléir() {
( $x, $y ) = ( 0, 0 );
}
}

Rang Pointe3D isa Point {
tá $z :léitheoir :scríbhneoir :nua :isa(Int);

modh soiléir() {
$self->next::modh;
$z = 0;
}
}

Foinse: linux.org.ru

Add a comment