Cor, Perl için alternatif bir OOP sistemidir

Cor ve Moose'u karşılaştırmak için bağlantıyı takip edin. Örnek kod:

sınıf Noktası {
has ( $x, $y ) :okuyucu :yazar :yeni :isa(Int);

yöntem temizleme() {
( $x, $y ) = ( 0, 0 );
}
}

sınıf Point3D isa Noktası {
$z var :okuyucu :yazar :yeni :isa(Int);

yöntem temizleme() {
$self->sonraki::method;
$z = 0;
}
}

Kaynak: linux.org.ru

Yorum ekle